Funcția VBA UCase | Convertiți textul cu majuscule în Excel VBA

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, iar 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ă căutați deja funcția 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 complet diferită și funcția de nume scurt, adică „UCASE”. Aici „U” înseamnă „UPPER”, deci formula citește „MAIUSCU”.

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?

Puteți descărca acest șablon Excel VBA UCase aici - Șablon Excel 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 șirul este valoarea noastră de text vizată pe care încercăm să o 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 chestiune de câteva 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) Next k End 

Aceasta va converti toate valorile textului cu majuscule 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.