Acest tutorial va demonstra cum se utilizează funcțiile UCASE, LCASE și STRCONV în VBA.
În timp ce lucrați în VBA, trebuie adesea să convertiți șirurile în minuscule, majuscule sau minuscule. Acest lucru este posibil folosindUCase, LCază și StrConv funcții.
Aceste funcții sunt importante atunci când manipulați șirurile în VBA, așa cum este și VBA caz sensibil. Dacă doriți să faceți ca VBA să nu facă sensibilitate la majuscule, trebuie să adăugați Option Comparați textul în partea de sus a modulului dvs. Puteți afla mai multe despre acest lucru aici: Preveniți VBA Case Sensitive
UCase - Conversia șirului în majuscule
The UCase funcția în VBA convertește toate literele unui șir în majuscule. Există un singur argument, care poate fi un șir, o variabilă cu șir sau o valoare de celulă. Această funcție este adesea utilizată dacă doriți să comparați două șiruri. Iată codul pentru funcția UCase:
12345678 | Dim strText Ca șirDim strTextUCase As StringstrText = "rulează funcția cu majuscule"strTextUCase = UCase (strText)MsgBox strTextUCase |
În exemplu, dorim să convertim toate literele din strText variabilă cu majuscule și atribuiți șirul convertit la strTextUCase variabil. La final apelăm caseta de mesaj cu șirul convertit:
LCase - Conversia șirului în minuscule
Dacă doriți să convertiți toate literele unui șir în minuscule, trebuie să utilizați LCază funcţie. Această funcție are un singur argument, același cu UCase. Acesta este codul pentru funcția LCase:
12345678 | Dim strText Ca șirDim strTextLCase As StringstrText = "RUNNING lowerCASE FUNCTION"strTextLCase = LCase (strText)MsgBox strTextLCase |
În acest exemplu, convertim toate literele șirului din A1 în minuscule. După aceea, șirul convertit este atribuit celulei A1.
StrConv - Conversia șirului în caz adecvat
The StrConv funcția vă permite să convertiți un șir de text în majuscule. Funcția are două argumente. Mai întâi este șirul pe care doriți să îl convertiți. Al doilea este tipul de conversie pe care îl doriți. Pentru a converti un șir într-un caz corect, trebuie să îl setați la vbProperCase. Codul funcției este:
12345678 | Dim strText Ca șirDim strTextProperCase As StringstrText = "rulează funcția de caz corectă"strTextProperCase = StrConv (strText, vbProperCase)MsgBox strTextProperCase |
Veți vedea pe exemplu cum funcționează funcția. Acesta ia șirul din celula B1, îl convertește în majuscule și returnează valoarea din celula A1.
StrConv - Conversia șirului cu majuscule sau minuscule
Folosind funcția StrConv, puteți converti, de asemenea, 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 majusculă, inferioară și corectă - Funcții majuscule în acces
Toate exemplele de mai sus funcționează exact la fel în Access VBA ca în Excel VBA.
1234 | Private Sub ClientName_AfterUpdate ()'aceasta va converti textul din caseta cu numele clientului în majusculeMe.ClientName = UCase (Me.ClientName)Sfârșitul Sub |