2016 - [решено] Как сделать первую букву в ячейке заглавной?

[NickM]

Перерыл все настройки Excel, но так и не смог понять как сделать так, чтобы в колонке №2 (В) первая буква автоматом становилась заглавной. Самое смешное, что в Word'е есть опция "Делать первую букву в ячейке таблицы заглавной", но вот в Excel'е в аналогичном месте (настройки правописания) этот пункт попросту отсутствует. Дичь какая-то...



Гугл в ответ на соответствующий запрос выдает только всяческие формулы, которые применяются к уже заполненным таблицам, а мне нужно настроить пустую таблицу, так сказать, на будущее.

[a_axe]

Изменение регистра текста

Цитата:



В отличие от Microsoft Word, в Microsoft Excel нет кнопки Изменить регистр для изменения прописной буквы. Однако можно использовать функции UPPER, LOWER или PROPER, чтобы автоматически изменить регистр существующего текста на верхний, нижний или правильный регистр. Функции — это просто встроенные формулы, предназначенные для выполнения определенных задач, в данном случае преобразования текстового регистра.

[a_axe]

Avatar-Lion, стандартными средствами такое в лоб не получить, а вы не хотите поместить в VBA редакторе в код нужного листа код наподобие такого:



Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns.Item(2)) Is Nothing Then
Debug.Print VarType(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value)
    If VarType(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value) = 8 Then
        Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value = UCase(Left(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value, 1)) & Mid(Intersect(Target, Me.Columns.Item(2)).Cells(1, 1).Value, 2)
    End If
End If
End Sub

Создавать регулярку большого смысла не вижу, скорее всего это будет дольше по времени.

[Avatar-Lion]

NickM, Нет, это не годится, я же сказал - для пустой таблицы.



a_axe, О, прикольно. Вроде работает. Спасибо большое.