Принудително правилно, горни или малки букви автоматично - Примери за код на VBA

Трябва ли автоматично да промените текста на клетката на Правилен, Горен или Долен регистър, след като потребителят го въведе? Има няколко начина за постигане на това и са възможни множество изисквания. Ето пример, който автоматично променя всичко, след като е въведен в определена колона. Надяваме се, че можете да изградите от този пример!

1. Натиснете ALT и F11, за да отворите кодовия прозорец

2. Щракнете двукратно върху името на листа, което искате автоматично

промяна на случая

3. Поставете този код в кодовия прозорец:

Променете текста на подходящ регистър

Код за Правилен калъф

Private Sub Worksheet_Change (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 (цел)