VBA UCase funkcija | Konvertuokite tekstą į didžiąsias „Excel VBA“
„Excel VBA UCase“ funkcija
„Ucase“ VBA yra integruota funkcija, naudojama konvertuoti įvesties eilutę, pateiktą jai didžiosiomis raidėmis, reikia vieno argumento, kuris yra eilutė kaip įvestis, o šios funkcijos sukurtas išvestis yra eilutė, kurį reikia išlaikyti Turime omenyje tai, kad ši funkcija paverčia didžiąją raidę, o ne tik pirmą simbolį.
Yra situacijų, kai kai kurias teksto reikšmes turime konvertuoti į „UPPERCASE“ programoje „Excel“. Tai galima padaryti naudojant UPPER funkciją įprastoje darbalapio funkcijoje ir UCase funkciją VBA kode.
Jei VBA jau ieškote AUKŠTESNĖS funkcijos, jos nerasite net su darbalapio funkcijų klase. VBA yra visiškai kitokia ir trumpa pavadinimo funkcija, ty „UCASE“. Čia „U“ reiškia „VIRŠUTINIS“, todėl formulėje rašoma „VIRŠUTINĖ“.
Sintaksė
Dabar pažvelkite į UCASE funkcijos sintaksę.
Stygos: Tai ne kas kita, o tai, kokia yra teksto vertė, kurią bandome konvertuoti į didžiąją raidę. Tai taip pat gali būti tiesioginė vertė arba langelio nuoroda. Greitai pamatysime abiejų rūšių pavyzdžius.
Kaip konvertuoti tekstą į didžiąją raidę naudojant „VBA Ucase“?
Šį „VBA UCase Excel“ šabloną galite atsisiųsti čia - „VBA UCase Excel“ šablonas1 pavyzdys
Pabandykime konvertuoti teksto reikšmę „ excel vba“ į didžiųjų raidžių tekstą naudodami „UCase“ funkciją.
1 veiksmas: pradėkite antrinę procedūrą sukurdami makrokomandą.
Kodas:
Sub UCase_Pavyzdys1 () Pabaiga Sub
2 veiksmas: paskelbkite kintamąjį kaip VBA eilutę.
Kodas:
Sub UCase_Example1 () Dim k As String End Sub
3 žingsnis: Priskirkite reikšmę kintamajam „k“ pritaikydami funkciją „UCASE“.
4 žingsnis: Čia eilutė yra mūsų tikslinė teksto vertė, kurią bandome konvertuoti į didžiąsias raides, o eilutės vertė yra „excel vba“.
Kodas:
Sub UCase_Example1 () Dim k As String K = UCase ("excel vba") Pabaiga Sub
5 žingsnis: Parodykime kintamojo rezultatą pranešimo laukelyje.
Kodas:
Sub UCase_Example1 () Dim k As String k = UCase ("excel vba") MsgBox k End Sub
Gerai, mes baigėme VBA kodavimo dalį. Paleiskime makrokomandą, kad pamatytume rezultatą pranešimo laukelyje.
Taigi „Uppercase“ funkcija per kelias sekundes teksto vertę „excel vba“ pavertė „EXCEL VBA“.
2 pavyzdys
Pažvelkime į ląstelės nuorodos į funkciją naudojimo pavyzdį. Ta pati teksto reikšmė, kurią įvedžiau langelyje A1.
1 žingsnis: Rezultatą parodysime B1 diapazono langelyje, taigi kodas bus diapazonas („B“). Reikšmė =
Kodas:
Sub UCase_Example2 () diapazonas ("B1"). Reikšmė = End Sub
2 žingsnis: B1 langelyje per funkciją UCASE mes išsaugosime duomenis, todėl atidarykite UCASE funkciją.
3 žingsnis: Čia eilutės vertė šį kartą yra langelio nuoroda. Taigi nurodykite langelio nuorodą kaip diapazoną („A1“).
Kodas:
Sub UCase_Example2 () diapazonas ("B1"). Reikšmė = UCase (Range ("A1"). Reikšmė) Pabaiga Sub
Taigi, padaryta.
Paleiskite kodą ir pamatykite rezultatą B1 langelyje.
3 pavyzdys
Ankstesniame pavyzdyje matėme vienintelę vienos ląstelės vertę, kuri buvo konvertuota į didžiąsias raides. Įsivaizduokite, jei turite keletą pavadinimų, pavyzdžiui, žemiau esančiame paveikslėlyje.
Tokiais atvejais negalime toliau rašyti kodo kiekvienai eilutei, todėl formulę turime pridėti su kilpomis. Žemiau pateiktas kodas iš karto pavers aukščiau nurodytas teksto reikšmes didžiosiomis raidėmis.
Kodas:
Sub UCase_Pavyzdys3 () Dim k As Long For k = 2–8 langeliai (k, 2). Vertė = UCase (ląstelės (k, 1). Vertė) Kitas k End Sub
Tai pavers visas teksto reikšmes didžiosiomis raidėmis nuo 2 iki 8 eilutės taip.
Įsivaizduokite, jei norite konvertuoti visas pasirinktas langelio reikšmes į didžiąsias raides, tada naudokite žemiau pateiktą kodą.
Kodas:
Sub UCase_Pavyzdys4 () Dim Rng As Range Set Rng = kiekvieno pasirinkto Rng pasirinkimas Rng = UCase (Rng.Value) Kitas Rng End Sub
Kad šis kodas veiktų, pirmiausia turime pasirinkti langelių diapazoną, kurį norime konvertuoti į didžiąsias raides, tada paleisti makrokomandą. Tik pasirinktame diapazone jis konvertuos teksto reikšmes į didžiąsias raides.
