Примусово застосувати правильний, верхній або нижній регістр автоматично - приклади коду VBA

Чи потрібно автоматично змінювати текст комірки на Правильний, Верхній або Нижній регістр після введення користувачем? Для цього існує кілька способів, а також можливі різні вимоги. Ось приклад, який автоматично змінює все після того, як це введено у певний стовпець. Сподіваюся, ви зможете будувати з цього прикладу!

1. Натисніть клавіші ALT і F11, щоб відкрити вікно коду

2. Двічі клацніть назву аркуша, який потрібно автоматично створити

змінити регістр

3. Вставте цей код у вікно коду:

Змінити текст на належний регістр

Код для Правильний футляр

Приватний підпрацювальний аркуш_Зміна (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Тоді Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub

Змінити текст на верхній регістр

За Верхній регістр можна змінити

StrConv (Target, vbProperCase)

до

Ucase (ціль)

Змінити текст на нижній регістр

За Нижній регістр можна змінити

StrConv (Target, vbProperCase)

до

Lcase (ціль)