Vieme, ako previesť malý text na veľký text na hárku, ale ako pomocou VBA konvertujeme malé písmená na veľké? Pri automatizácii procesu môže byť potrebné previesť text na hárku na veľké písmená.
Na pracovnom hárku používame funkciu HORNÉ na malé písmená a naopak. Vo VBA máme podobnú funkciu. Názov funkcie je UCase. UCase je skratka pre UpperCase.
Syntax funkcie UCase:
= UCase (Reťazec)
Tureťazecmôže to byť reťazec pevného kódu alebo odkaz na reťazec.
Takže teraz, keď vieme o funkcii, ktorou je možné zmeniť malé písmená na veľké reťazce, použime to na praktickom príklade.
Previesť všetok text na hárku na veľké písmená
Tu máme jednoduchú úlohu previesť všetok text daného listu v zošite na veľké písmená. L
Získať kód na konverziu textu na veľké písmená; na spustenie editora VB musíme postupovať podľa nižšie uvedených krokov
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
Skopírujte nižšie uvedený kód do modulu pracovného hárka (nie je to normálny modul).
Sub UpperCaseCode1 ()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Pri chybe Pokračovať Ďalej
Nastaviť Rng = bunky. Špeciálne bunky (xlCellTypeConstants, 2)
Za každé c v Rng
c.Value = UCase (c.Value)
Ďalej c
Application.ScreenUpdating = True
Koniec pod
Ako to funguje?
Vyššie uvedený kód je zapísaný v module sheet1. Vyššie uvedený kód prevedie všetok text na hárku1 na veľké písmená.
Hlavné riadky vo vyššie uvedenom kóde sú:
Nastaviť Rng = bunky. Špeciálne bunky (xlCellTypeConstants, 2)
Za každé c v Rng
c.Value = UCase (c.Value)
Ďalej c
Tu používame funkciu SpecialCells triedy Cells a odovzdávame argumenty xlCellTypeConstants. Vráti enumeráciu buniek a rozsahov, ktoré obsahujú konštanty.
Ďalej použijeme slučku for na iteráciu každej bunky v zozname. Ďalej hodnotu tejto bunky zmeníme pomocou funkcie UCase.
Tu je vyhláseniec.Value = UCase (c.Value) aktualizuje hodnoty v každej bunke veľkým textom.
Príklad 2: Previesť text stĺpca A na veľké písmená.
V tomto prípade máme za úlohu previesť iba textový stĺpec A. Možno to budete chcieť urobiť, keď konkrétne stĺpce obsahujú špeciálny text, ktorý musí byť zadaný iba veľkými písmenami.
Sub UpperCaseCode2 () Application.ScreenUpdating = False
Dim bunka ako rozsah
Pre každú bunku v rozsahu („$ A $ 1:“ a rozsah („$ A $ 1“). SpecialCells (xlLastCell). Adresa)
Ak je Len (bunka)> 0, potom bunka = UCase (bunka)
Ďalšia bunka
Application.ScreenUpdating = True
Koniec pod
Kód je takmer rovnaký ako v predchádzajúcom príklade. Jedinou zmenou, ktorú máme, sú tieto riadky:
Pre každú bunku v rozsahu („$ A $ 1:“ a rozsah („$ A $ 1“). SpecialCells (xlLastCell). Adresa)
Ak je Len (bunka)> 0, potom bunka = UCase (bunka)
Ďalšia bunka
Tu pomocou čiary vytvoríme dynamický rozsah Rozsah ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell) .Address). Tento riadok vytvára rozsah od bunky A1 po poslednú bunku, ktorá obsahuje akúkoľvek hodnotu v stĺpci A.
Potom prejdeme každou bunkou a aktualizujeme ju veľkými reťazcami.
Súbor si môžete stiahnuť nižšie.
Stiahnuť - VBA Na prevod textu z malých na veľké - xlsm
Takže áno, chlapci, takto môžete aktualizovať malý text na veľký. Dúfam, že som bol dostatočne vysvetľujúci. Ak máte akékoľvek pochybnosti týkajúce sa tohto článku alebo akéhokoľvek iného dotazu súvisiaceho s VBA. Opýtajte sa ma v sekcii komentárov nižšie.
Ako používať funkciu TRIM v Exceli: Funkcia TRIM sa používa na orezanie reťazcov a čistenie všetkých koncových alebo úvodných medzier od reťazca. To nám veľmi pomáha v procese čistenia údajov.
Ako používať funkciu CLEAN v programe Excel: Funkcia Clean sa používa na vyčistenie netlačiteľných znakov z reťazca. Táto funkcia sa väčšinou používa s funkciou TRIM na čistenie importovaných zahraničných údajov.
Nahradiť text od konca reťazca počnúc od variabilnej pozície: Na nahradenie textu z konca reťazca používame funkciu REPLACE. Funkcia REPLACE používa na nahradenie pozíciu textu v reťazci.
Ako skontrolovať, či reťazec obsahuje jeden z mnohých textov v programe Excel: Na nájdenie kontroly, či reťazec obsahuje viacnásobný text, použijeme tento vzorec. Na zhrnutie všetkých zápasov použijeme funkciu SUMA a potom vykonáme logiku, aby sme skontrolovali, či reťazec obsahuje niektorý z viacerých reťazcov.
Spočítajte bunky, ktoré obsahujú konkrétny text: Kúzlo urobí jednoduchá funkcia COUNTIF. Na spočítanie počtu viacerých buniek, ktoré obsahujú daný reťazec, používame zástupný znak s funkciou COUNTIF.
Funkcia Excel REPLACE vs SUBSTITUTE: Funkcie REPLACE a SUBSTITUTE sú najviac nepochopenými funkciami. Na nájdenie a nahradenie daného textu používame funkciu SUBSTITUTE. Kde sa REPLACE používa na nahradenie niekoľkých znakov v reťazci …
Populárne články:
50 skratiek programu Excel na zvýšenie produktivity | Vykonajte svoju úlohu rýchlejšie. Týchto 50 skratiek vám umožní pracovať ešte rýchlejšie v Exceli.
Ako používať funkciu Excel VLOOKUP| Toto je jedna z najpoužívanejších a najobľúbenejších funkcií programu Excel, ktorá sa používa na vyhľadávanie hodnôt z rôznych rozsahov a hárkov.
Ako používať Excel Funkcia COUNTIF| Počítajte hodnoty s podmienkami pomocou tejto úžasnej funkcie. Na počítanie konkrétnych hodnôt nie je potrebné filtrovať údaje. Funkcia Countif je potrebná na prípravu palubnej dosky.
Ako používať funkciu SUMIF v programe Excel | Toto je ďalšia zásadná funkcia palubnej dosky. To vám pomôže zhrnúť hodnoty za konkrétnych podmienok.