în timp ce lucrați în VBA, de multe ori trebuie să convertiți șiruri de caractere în minuscule, majuscule sau majuscule. Acest lucru este posibil prin utilizarea funcțiilor UCase, LCase și StrConv.
aceste funcții sunt importante atunci când manipulați șiruri în VBA, deoarece VBA este sensibil la majuscule. Dacă doriți să faceți VBA case-insensibil, trebuie să adăugați opțiunea compara Text în partea de sus a modulului. Puteți afla mai multe despre acest lucru aici: Prevent VBA Case Sensitive
UCase – conversia String la majuscule
funcția UCase în Vba convertește toate literele unui șir în majuscule. Există un singur argument, care poate fi un șir, variabilă cu șir sau o valoare de celulă. Această funcție este adesea utilizată dacă doriți să comparați două șiruri de caractere. Aici este codul pentru funcția UCase:
|
1
2
3
4
5
6
7
8
|
Dim strText ca String
Dim strTextUCase ca String
strText = „rularea funcției majuscule”
strTextUCase = UCase (strText)
MsgBox strTextUCase
|
în exemplu, dorim să convertim toate literele variabilei strText în majuscule și să atribuim șirul convertit variabilei strTextUCase. La sfârșit, apelăm caseta de mesaje cu șirul convertit:
imagine 1. Utilizarea funcției UCase în VBA
LCase – convertiți șirul în Litere Mici
dacă doriți să convertiți toate literele unui șir în litere mici, trebuie să utilizați funcția LCase. Această funcție are un argument, la fel ca UCase. Acesta este codul pentru funcția LCase:
|
1
2
3
4
5
6
7
8
|
Dim strText ca String
Dim strTextLCase ca String
strText = „rularea funcției minuscule”
strTextLCase = LCase (strText)
MsgBox strTextLCase
|
în acest exemplu, convertim toate literele șirului de la A1 în litere mici. După aceea, șirul convertit este atribuit celulei A1.
Imaginea 2. Utilizarea funcției LCase în VBA
StrConv-conversia String la caz propriu
funcția StrConv vă permite să convertiți un șir de text în caz propriu. Funcția are două argumente. Primul este șirul pe care doriți să îl convertiți. Al doilea este tipul de conversie pe care doriți. Pentru a converti un șir într-un caz adecvat, trebuie să îl setați la vbProperCase. Codul funcției este:
|
1
2
3
4
5
6
7
8
|
Dim strText As String
Dim strTextProperCase As String
strText = „running proper case function”
strTextProperCase = StrConv(strText, vbProperCase)
MsgBox strTextProperCase
|
You will see on the example how the function works. Este nevoie de șirul din celula B1, îl convertește în caz propriu și returnează valoarea în celula A1.
Imaginea 3. Utilizarea funcției StrConv în VBA
StrConv-convertiți șirul în majuscule sau minuscule
utilizând funcția StrConv, puteți converti și un șir în majuscule sau minuscule. Pentru a face acest lucru, trebuie doar să setați al doilea argument la vbUpperCase sau vbLowerCase:
|
1
|
strTextConverted = StrConv (strText, vbUpperCase)
|
|
1
|
strTextConverted = StrConv (strText, vbLowerCase)
|
VBA superior, inferior, și corespunzătoare caz – caz funcții în Access
toate exemplele de mai sus funcționează exact la fel în Access VBA ca în Excel VBA.
|
1
2
3
4
|
privat sub ClientName_AfterUpdate ()
‘aceasta va converti textul din caseta Nume client în majuscule
Me.ClientName = UCase ( Mă.ClientName)
End Sub
|
