Știm cum să convertim textul cu litere mici în text cu majuscule pe foaia de lucru, dar cum putem converti litere mici în majuscule folosind VBA? În timp ce automatizați procesul, este posibil să aveți nevoie să convertiți textul de pe foaie în majuscule.
Pe foaia de lucru, folosim funcția UPPER pentru a scădea cu minuscule la majuscule. În VBA, avem o funcție similară. Numele este funcția este UCase. UCase înseamnă UpperCase.
Sintaxa funcției UCase:
= UCase (Şir)
Aicişirpoate fi un șir de cod dur sau o referință la șir.
Deci, acum, când știm despre funcția care poate fi utilizată pentru a schimba litere mici în șir majuscul, să o folosim într-un exemplu practic.
Conversia întregului text de pe o foaie în majuscule
Aici avem o sarcină simplă de a converti în majusculă tot textul unei foi date dintr-un registru de lucru. L
Pentru a obține codul pentru conversia textului în litere mari; trebuie să urmăm pașii de mai jos pentru a lansa editorul VB
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
Copiați codul de mai jos în modulul de foaie de lucru (nu un modul normal).
Sub UpperCaseCode1 ()
Application.ScreenUpdating = Fals
Dim Rng Ca Range
Dim c As Range
La eroare Reluați în continuare
Set Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Pentru fiecare c În Rng
c.Value = UCase (c.Value)
Următorul c
Application.ScreenUpdating = Adevărat
Sfârșitul Sub
Cum functioneazã?
Codul de mai sus este scris în modulul sheet1. Codul de mai sus va converti tot textul de pe foaia 1 în majuscule.
Liniile principale din codul de mai sus sunt:
Set Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Pentru fiecare c În Rng
c.Value = UCase (c.Value)
Următorul c
Aici folosim funcția SpecialCells din clasa Cells și trecem argumentele xlCellTypeConstants. Returnează o enumerare de celule și intervale care conțin constante.
Apoi folosim bucla for pentru a itera peste fiecare celulă din enumerare. Apoi schimbăm acea valoare a celulei folosind funcția UCase.
Aici afirmațiac.Value = UCase (c.Value) actualizează valorile din fiecare celulă cu text cu majuscule.
Exemplul 2: convertiți textul coloanei A în majuscule.
În acest exemplu, avem sarcina de a converti numai coloana text A. Poate doriți să faceți acest lucru atunci când anumite coloane conțin text special care trebuie să fie doar cu majuscule.
Sub UpperCaseCode2 () Application.ScreenUpdating = Fals
Dim celula ca interval
Pentru fiecare celulă din interval ("$ A $ 1:" și interval ("$ A $ 1"). SpecialCells (xlLastCell). Adresă)
Dacă Len (celulă)> 0 Atunci celulă = UCază (celulă)
Următoarea celulă
Application.ScreenUpdating = Adevărat
Sfârșitul Sub
Codul este aproape același cu exemplul anterior. Singura modificare pe care o avem este următoarele linii:
Pentru fiecare celulă din interval ("$ A $ 1:" și interval ("$ A $ 1"). SpecialCells (xlLastCell). Adresă)
Dacă Len (celulă)> 0 Atunci celulă = UCază (celulă)
Următoarea celulă
Aici creăm un interval dinamic folosind linia Range ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell). Adresă). Această linie creează un interval începând de la celula A1 până la ultima celulă care conține orice valoare în coloana A.
Apoi iterăm prin fiecare celulă și o actualizăm cu șiruri majuscule de la sine.
Puteți descărca fișierul de mai jos.
Descărcați - VBA pentru a converti textul de la mai mici la majuscule - xlsm
Deci, băieți, așa puteți actualiza textul cu litere mici în text cu majuscule. Sper că am fost suficient de explicativ. Dacă aveți îndoieli cu privire la acest articol sau la orice altă interogare legată de VBA. Întrebați-mă în secțiunea de comentarii de mai jos.
Cum se folosește funcția TRIM în Excel: Funcția TRIM este utilizată pentru tăierea șirurilor și curățarea oricărui spațiu final sau de la șir. Acest lucru ne ajută foarte mult în procesul de curățare a datelor.
Cum se utilizează funcția CLEAN în Excel: Funcția de curățare este utilizată pentru a curăța caractere neprimabile din șir. Această funcție este utilizată mai ales cu funcția TRIM pentru a curăța datele străine importate.
Înlocuiți textul de la capătul unui șir începând de la poziția variabilă: Pentru a înlocui textul de la sfârșitul șirului, folosim funcția REPLACE. Funcția REPLACE folosește poziția textului în șir pentru a-l înlocui.
Cum să verificați dacă un șir conține unul dintre textele din Excel: Pentru a afla dacă un șir conține mai multe texte, folosim această formulă. Folosim funcția SUM pentru a însuma toate meciurile și apoi efectuăm o logică pentru a verifica dacă șirul conține oricare dintre șirurile multiple.
Numărați celulele care conțin text specific: O funcție simplă COUNTIF va face magia. Pentru a număra numărul de celule multiple care conțin un șir dat, folosim operatorul wildcard cu funcția COUNTIF.
Funcția Excel REPLACE vs SUBSTITUTE: Funcțiile REPLACE și SUBSTITUTE sunt cele mai neînțelese. Pentru a găsi și a înlocui un text dat, folosim funcția SUBSTITUTE. În cazul în care REPLACE este utilizat pentru a înlocui un număr de caractere în șir …
Articole populare:
50 de comenzi rapide Excel pentru a vă crește productivitatea | Deveniți mai rapid la sarcina dvs. Aceste 50 de comenzi rapide vă vor face să lucrați și mai rapid pe Excel.
Cum se utilizează funcția Excel VLOOKUP| Aceasta este una dintre cele mai utilizate și populare funcții ale Excel, care este utilizată pentru a căuta valoarea din diferite intervale și foi.
Cum se utilizează excela Funcția COUNTIF| Numărați valorile cu condiții folosind această funcție uimitoare. Nu trebuie să vă filtrați datele pentru a număra anumite valori. Funcția Countif este esențială pentru a vă pregăti tabloul de bord.
Cum se utilizează funcția SUMIF în Excel | Aceasta este o altă funcție esențială a tabloului de bord. Acest lucru vă ajută să rezumați valori în condiții specifice.