Funcția Excel VBA UCase
Ucase în VBA este o funcție încorporată care este utilizată pentru a converti un șir de intrare furnizat acestuia în majuscule, ia un singur argument care este șirul ca intrare și ieșirea generată de această funcție este un șir, singurul lucru de păstrat în minte este că această funcție transformă toate funcțiile în majuscule, nu doar primul caracter.
Există situații în care trebuie să convertim unele dintre valorile textului cu majuscule în Excel. Acest lucru se poate face folosind o funcție SUPERIOR în funcția de foaie de lucru obișnuită și funcția UCase în codul VBA.
Dacă sunteți deja în căutarea funcției UPPER în VBA, atunci nu o veți găsi, nici măcar cu clasa de funcții a foii de lucru. În VBA, este o funcție de nume complet diferită și scurtă, adică „UCASE”. Aici „U” înseamnă „UPPER”, deci formula citește „MAJUSCU”.
Sintaxă
Acum, uitați-vă la sintaxa funcției UCASE.
Șir: Nu este altceva decât valoarea textului pe care încercăm să îl convertim în majuscule. Aceasta ar putea fi, de asemenea, o valoare directă sau o referință de celulă. Vom vedea ambele tipuri de exemple într-un timp scurt.
Cum se convertește textul cu majuscule folosind VBA Ucase?
Exemplul nr. 1
Să încercăm să convertim valoarea textului Excel VBA în text cu majuscule folosind funcția UCase.
Pasul 1: Porniți subprocedura prin crearea macro-ului.
Cod:
Sub UCase_Example1 () End Sub
Pasul 2: declarați variabila ca șir VBA.
Cod:
Sub UCase_Example1 () Dim k As String End Sub
Pasul 3: Atribuiți valoarea variabilei „k” aplicând funcția „UCASE”.
Pasul 4: Aici, un șir este valoarea textului nostru vizat pe care încercăm să îl convertim în majuscule, iar valoarea șirului este „excel VBA”.
Cod:
Sub UCase_Example1 () Dim k As String K = UCase ("excel vba") End Sub
Pasul 5: Să afișăm rezultatul variabilei în caseta de mesaj.
Cod:
Sub UCase_Example1 () Dim k As String k = UCase ("excel vba") MsgBox k End Sub
Ok, am terminat cu partea de codare VBA. Să rulăm macro-ul pentru a vedea rezultatul într-o casetă de mesaje.
Deci, funcția Majusculă a convertit valoarea textului „excel VBA” în „EXCEL VBA” într-o fracțiune de secunde.
Exemplul nr. 2
Să vedem exemplul utilizării unei referințe de celulă la funcție. Aceeași valoare de text pe care am introdus-o în celula A1.
Pasul 1: Vom arăta rezultatul în celula Range B1, deci codul va fi Range („B”). Valoare =
Cod:
Sub UCase_Example2 () Range ("B1"). Valoare = End Sub
Pasul 2: În celula B1 prin funcția UCASE, vom stoca datele, deci deschideți funcția UCASE.
Pasul 3: Aici, valoarea șirului este de referință celulă de data aceasta. Deci, dați referința celulei ca Range („A1”). Valoare.
Cod:
Sub UCase_Example2 () Range ("B1"). Value = UCase (Range ("A1"). Value) End Sub
Deci gata.
Rulați codul și vedeți rezultatul în celula B1.
Exemplul nr. 3
În exemplul de mai sus, am văzut singura valoare cu o singură celulă care trebuie convertită în majuscule. Imaginați-vă dacă aveți mai multe nume precum imaginea de mai jos.
În aceste cazuri, nu putem continua să scriem codul pentru fiecare linie, deci trebuie să atașăm formula cu bucle. Codul de mai jos va converti valorile textului de mai sus în majuscule simultan.
Cod:
Sub UCase_Example3 () Dim k As Long For k = 2 To 8 Cells (k, 2) .Value = UCase (Cells (k, 1) .Value) Următorul k End Sub
Aceasta va converti toate valorile textului în litere mari de la rândul 2 la rândul 8 după cum urmează.
Imaginați-vă dacă doriți să convertiți toate valorile de celulă selectate în litere mari, apoi folosiți codul de mai jos.
Cod:
Sub UCase_Example4 () Dim Rng As Range Set Rng = Selection For Each Rng In Selection Rng = UCase (Rng.Value) Next Rng End Sub
Pentru ca acest cod să funcționeze, mai întâi trebuie să selectăm intervalul de celule pe care dorim să le convertim în majuscule, apoi să rulăm macro-ul. Numai în intervalul selectat, va converti valorile textului în caractere majuscule.
