Макрос переводит все первые буквы значений ячеек в выделенном диапазоне в верхний регистр [vba]
Код
Sub Status_n1() Dim Upper As Range Set Upper = Selection For Each Upper In Upper If Upper <> "" Then Upper = UCase(Left(Upper, 1)) + Right(Upper, Len(Upper) - 1) Next Upper End Sub
[/vba]
Макрос переводит все первые буквы значений ячеек в выделенном диапазоне в верхний регистр [vba]
Код
Sub Status_n1() Dim Upper As Range Set Upper = Selection For Each Upper In Upper If Upper <> "" Then Upper = UCase(Left(Upper, 1)) + Right(Upper, Len(Upper) - 1) Next Upper End Sub
Sub firstToUp() Dim x, i&, c& x = Selection.Value If IsArray(x) Then For i = 1 To UBound(x, 1) For c = 1 To UBound(x, 2) x(i, c) = UCase(Left(Trim(x(i, c)), 1)) & Mid(Trim(x(i, c)), 2) Next Next Selection.Resize(UBound(x, 1), UBound(x, 2)) = x Else Selection.Value = UCase(Left(Trim(x), 1)) & Mid(Trim(x), 2) End If End Sub
[/vba]
Ну и я добавлю для потомков [vba]
Код
Sub firstToUp() Dim x, i&, c& x = Selection.Value If IsArray(x) Then For i = 1 To UBound(x, 1) For c = 1 To UBound(x, 2) x(i, c) = UCase(Left(Trim(x(i, c)), 1)) & Mid(Trim(x(i, c)), 2) Next Next Selection.Resize(UBound(x, 1), UBound(x, 2)) = x Else Selection.Value = UCase(Left(Trim(x), 1)) & Mid(Trim(x), 2) End If End Sub
В модуль добавляете макрос, выделяете диапазон и запускаете. Как это сделать - обьяснять долго, так что лучше воспользуйтесь поиском (как добавить макрос в excel, как запустить макрос).
В модуль добавляете макрос, выделяете диапазон и запускаете. Как это сделать - обьяснять долго, так что лучше воспользуйтесь поиском (как добавить макрос в excel, как запустить макрос).SkyPro
Здравствуйте! Подскажите пожалуйста, как сделать дни недели на русском языке с большой буквы, если формат ячеек ДДДД ? Пробовал применять макросы, приведенные выше, меняется слово "пятница" на "05.01.1900". При этом удаляются формулы из ячейки. Или как тогда скопировать только значение в виде текста "пятница" в соседнюю ячейку, чтобы дальше можно было с этим значением работать (вставить куда нужно в виде текста). [moder]Создайте новую тему. Эта тема закрыта[/moder]
Здравствуйте! Подскажите пожалуйста, как сделать дни недели на русском языке с большой буквы, если формат ячеек ДДДД ? Пробовал применять макросы, приведенные выше, меняется слово "пятница" на "05.01.1900". При этом удаляются формулы из ячейки. Или как тогда скопировать только значение в виде текста "пятница" в соседнюю ячейку, чтобы дальше можно было с этим значением работать (вставить куда нужно в виде текста). [moder]Создайте новую тему. Эта тема закрыта[/moder]aequit
Сообщение отредактировал aequit - Понедельник, 02.03.2015, 14:18