Mes žinome, kaip darbalapyje mažąsias raides paversti didžiosiomis, bet kaip naudojant VBA konvertuoti mažąsias į didžiąsias? Automatizuodami procesą, gali tekti konvertuoti lapo tekstą į didžiąsias raides.
Darbo lape mes naudojame funkciją UPPER, kad mažosios raidės būtų didžiosios. VBA turime panašią funkciją. Pavadinimas yra funkcija „UCase“. „UCase“ reiškia „UpperCase“.
UCase funkcijos sintaksė:
= UCase (Styginė)
Čiaeilutėgali būti kodo eilutė arba nuoroda į eilutę.
Taigi dabar, kai žinome apie funkciją, kuri gali būti naudojama mažosioms raidėms pakeisti į didžiąsias eilutes, naudokime ją praktiniame pavyzdyje.
Konvertuokite visą lape esantį tekstą į didžiąsias raides
Čia turime paprastą užduotį paversti visą tam tikro lapo tekstą darbo knygoje į didžiąsias raides. L
Gauti kodą tekstui konvertuoti į didžiąsias raides; norėdami paleisti VB redaktorių, turime atlikti toliau nurodytus veiksmus
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
Nukopijuokite žemiau esantį kodą į darbalapio modulį (ne įprastą modulį).
Antrasis didžiųjų raidžių kodas1 ()
Application.ScreenUpdating = Netiesa
Dim Rng kaip diapazonas
Dim c As Diapazonas
Dėl klaidos Tęsti toliau
Nustatykite Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Už kiekvieną c In Rng
c. Vertė = UCase (c. Vertė)
Kitas c
Application.ScreenUpdating = Tiesa
Pabaiga Sub
Kaip tai veikia?
Aukščiau pateiktas kodas yra parašytas „sheet1“ modulyje. Aukščiau pateiktas kodas konvertuos visą lapo1 tekstą į didžiąsias raides.
Pagrindinės aukščiau esančio kodo eilutės yra šios:
Nustatykite Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Už kiekvieną c In Rng
c. Vertė = UCase (c. Vertė)
Kitas c
Čia mes naudojame „Cells“ klasės funkciją „SpecialCells“ ir perduodame argumentus xlCellTypeConstants. Tai grąžina ląstelių ir diapazonų, kuriuose yra konstantos, sąrašą.
Toliau mes naudojame for for, kad išvardytume kiekvieną langelį. Tada mes pakeičiame tą langelio vertę naudodami UCase funkciją.
Čia pareiškimasc. Vertė = UCase (c. Vertė) atnaujina kiekvieno langelio reikšmes didžiosiomis raidėmis.
2 pavyzdys: konvertuokite A stulpelio tekstą į didžiąsias raides.
Šiame pavyzdyje mes turime paversti tik teksto A stulpelį. Galbūt norėsite tai padaryti, kai konkrečiuose stulpeliuose yra specialus tekstas, kuris turi būti rašomas tik didžiosiomis raidėmis.
Antrasis didžiųjų raidžių kodas2 () Application.ScreenUpdating = Netiesa
Šviesos langelis kaip diapazonas
Kiekvienam diapazono langeliui („$ A $ 1:“ ir diapazonas („$ A $ 1“). SpecialCells (xlLastCell) .Address)
Jei Len (ląstelė)> 0, tada ląstelė = UCase (ląstelė)
Kitas langelis
Application.ScreenUpdating = Tiesa
Pabaiga Sub
Kodas yra beveik toks pat kaip ir ankstesniame pavyzdyje. Vienintelis pakeitimas yra šios eilutės:
Kiekvienam diapazono langeliui („$ A $ 1:“ ir diapazonas („$ A $ 1“). SpecialCells (xlLastCell) .Address)
Jei Len (ląstelė)> 0, tada ląstelė = UCase (ląstelė)
Kitas langelis
Čia mes sukuriame dinaminį diapazoną naudodami liniją Diapazonas („$ A $ 1:“ ir diapazonas („$ A $ 1“). SpecialCells (xlLastCell). Adresas). Ši eilutė sukuria diapazoną nuo A1 langelio iki paskutinio langelio, kuriame yra bet kokia A stulpelio reikšmė.
Tada mes kartojame kiekvieną langelį ir atnaujiname jį didžiosiomis raidėmis.
Failą galite atsisiųsti žemiau.
Parsisiųsti - VBA konvertuoti tekstą iš mažųjų į didžiąsias - xlsm
Taigi taip, vaikinai, taip galite atnaujinti mažąsias raides į didžiąsias. Tikiuosi, kad buvau pakankamai aiškinantis. Jei turite abejonių dėl šio straipsnio ar bet kurios kitos su VBA susijusios užklausos. Paklauskite manęs komentarų skiltyje žemiau.
Kaip naudoti „TRIM“ funkciją „Excel“: TRIM funkcija naudojama stygoms apipjaustyti ir bet kokiems galiniams ar priekiniams tarpams išvalyti. Tai labai padeda mums išvalyti duomenis.
Kaip naudoti funkciją „CLEAN“ programoje „Excel“: Valymo funkcija naudojama išvalyti nespausdinamus simbolius iš eilutės. Ši funkcija dažniausiai naudojama su TRIM funkcija, norint išvalyti importuotus užsienio duomenis.
Pakeiskite tekstą iš eilutės pabaigos, pradedant nuo kintamos padėties: Norėdami pakeisti tekstą iš eilutės pabaigos, naudojame funkciją REPLACE. Funkcija PAKEISTI naudoja teksto padėtį eilutėje, kad ją pakeistų.
Kaip patikrinti, ar eilutėje yra vienas iš daugelio „Excel“ tekstų: Norėdami sužinoti, ar eilutėje yra kelių tekstų, naudojame šią formulę. Mes naudojame SUM funkciją, kad apibendrintume visas atitiktis ir atliktume logiką, kad patikrintume, ar eilutėje yra bet kuri iš kelių eilučių.
Skaičiuoti langelius, kuriuose yra konkretaus teksto: Paprasta COUNTIF funkcija padarys stebuklą. Norėdami suskaičiuoti kelių langelių, kuriuose yra tam tikra eilutė, skaičių, naudojame pakaitos simbolių operatorių su funkcija COUNTIF.
„Excel“ funkcija „PAKEISTI VISUOMENĖS“: Funkcijos REPLACE ir SUPSTITUTE yra labiausiai nesuprantamos funkcijos. Norėdami rasti ir pakeisti tam tikrą tekstą, naudojame funkciją SUBSTITUTE. Kai REPLACE naudojamas pakeisti eilutės simbolių skaičių…
Populiarūs straipsniai:
50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų leis dar greičiau dirbti naudojant „Excel“.
Kaip naudotis „Excel VLOOKUP“ funkcija| Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.
Kaip naudotis „Excel“ Funkcija COUNTIF| Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečias vertes, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.
Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.
