Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Изменение во всём документе прописных букв, кроме одного, или нескольких столбцов
 
Sanja, Спасибо, а если несколько, то через запятую?
Изменение во всём документе прописных букв, кроме одного, или нескольких столбцов
 
А как тут столбцы указывать?
Изменение во всём документе прописных букв, кроме одного, или нескольких столбцов
 
Добрый день. Есть такой код. Как сделать, чтобы изменялись все прописные буквы, кроме, например: столбца M:
Код
Sub maxibel()
Dim rng As Range, cl As Range
    On Error Resume Next
    Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    On Error GoTo 0
    If Not rng Is Nothing Then
        Application.FindFormat.Clear
        rng.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=False, MatchByte:=False
        For Each cl In rng
            cl.Value = UCase(cl.Value)
        Next cl
    End If
End Sub
После применения макроса пропадают формулы
 
А ответьте пожалуйста. Можно прописные буквы делать во всех столбцах, кроме, например: M
После применения макроса пропадают формулы
 
JayBhagavan,Огромное спасибо. Всё работает. Только я 2-ю строчку удалил.
После применения макроса пропадают формулы
 
Андрей Гайкевич, перестаньте копировать целые собщения! Кнопка цитирования не для ответа.

Спасибо всё работает. Но мне ещё надо чтобы все буквы были прописными.
После применения макроса пропадают формулы
 
Ошибка 1004
После применения макроса пропадают формулы
 
TheBestOfTheBest , пишет Run-time error "13"
После применения макроса пропадают формулы
 
Напишите полностью пожалуйста как надо, а то я не понимаю "и т.д."
После применения макроса пропадают формулы
 
1.xlsx до изменений. 2.xlsx после. До применения макрос при нажатии на ячейку B2 видим в строке формулы "=E2", а после применения "IJITSU 1152 13X5.5 4X98 D58.6 ET35 BP / ЧЕРНЫЙ С ПОЛИРОВКОЙ". Мне бы хотелось чтобы там была формула, как в первом случае.
После применения макроса пропадают формулы
 
Сменил. Надеюсь теперь вы мне поможете.
После применения макроса пропадают формулы
 
Ребят применяю макрос на странице по замене запятой на точку и все буквы делаю прописные. Всё работает как надо,но при клике на ячейку пропадает формула. Как её вернуть? Вот код, за написание которого огромное спасибо Казанскому.
Код
Sub bb()
With ActiveSheet.UsedRange
  .Value = Evaluate("INDEX(UPPER(SUBSTITUTE(" & .Address & ","","",""."")),)")
End With
End Sub
Все прописные и замен запятой, на точку
 
кнопка цитирования не для ответа

А скажите пожалуйста куда это вводиться?
Все прописные и замен запятой, на точку
 
Добрый день. Понимаю, что для вас это мелочь, но для меня большая проблема. Имею документ Excel. Мне надо, чтобы во всем тексте были заглавные буквы, и "," заменилась на "." Именно в документе, а не в самой программе.
Страницы: 1
Наверх