Содержание
Вам нужно автоматически изменять текст ячеек на правильный, верхний или нижний регистр после того, как пользователь вводит его? Есть несколько способов добиться этого и возможно несколько требований. Вот пример, который автоматически меняет все после ввода в определенный столбец. Надеюсь, вы сможете строить из этого примера!
1. Нажмите ALT и F11, чтобы открыть окно кода.
2. Дважды щелкните имя листа, которое вы хотите автоматически
изменить регистр
3. Поместите этот код в окно кода:
Изменить текст на правильный регистр
Код для Правильный случай
Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub
Изменить текст на верхний регистр
Для Верхний регистр ты можешь измениться
StrConv (цель, vbProperCase)
к
Ucase (цель)
Изменить текст на нижний регистр
Для Нижний регистр ты можешь измениться
StrConv (цель, vbProperCase)
к
Lcase (цель)
