Forța corectă, majusculă sau minusculă automat - Exemple de cod VBA

Trebuie să schimbați automat textul unei celule în corect, majuscul sau minuscul după ce utilizatorul îl introduce? Există mai multe modalități de a realiza acest lucru și sunt posibile mai multe cerințe. Iată un exemplu care schimbă automat totul după ce a fost introdus într-o anumită coloană. Sperăm că puteți construi din acest exemplu!

1. Apăsați ALT și F11 pentru a deschide fereastra de cod

2. Faceți dublu clic pe numele foii pe care doriți să o faceți automat

schimbă cazul

3. Introduceți acest cod în fereastra de cod:

Schimbați textul în caz corect

Cod pentru Caz adecvat

Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = Fals dacă Target.Column = 5 Atunci Target = StrConv (Target, vbProperCase) End If Application.EnableEvents = True End Sub

Schimbați textul cu majuscule

Pentru Majuscule te poți schimba

StrConv (Țintă, vbProperCase)

la

Ucase (țintă)

Schimbați textul cu litere mici

Pentru Minuscule te poți schimba

StrConv (Țintă, vbProperCase)

la

Lcase (țintă)