[NickM]

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

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

[a_axe]

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

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

Код:

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, О, прикольно. Вроде работает. Спасибо большое.