Víme, jak převést malý text na velký text na listu, ale jak převedeme malá písmena na velká pomocí VBA? Při automatizaci procesu může nastat potřeba převést text na listu na velká písmena.
Na listu používáme funkci UPPER pro zmenšení malých písmen na uppecase. Ve VBA máme podobnou funkci. Název funkce je UCase. UCase je zkratka pro UpperCase.
Syntaxe funkce UCase:
= UCase (Tětiva)
Tadytětivamůže to být řetězec pevného kódu nebo odkaz na řetězec.
Takže teď, když víme o funkci, kterou lze použít ke změně malých písmen na velká písmena, použijme ji v praktickém příkladu.
Převést veškerý text na listu na velká písmena
Zde máme jednoduchý úkol převést veškerý text daného listu v sešitu na velká písmena. L
Získání kódu pro převod textu na velká písmena; pro spuštění VB editoru musíme postupovat níže
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
Zkopírujte níže uvedený kód do modulu listu (není to normální modul).
Sub UpperCaseCode1 ()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Při chybě Pokračovat Další
Nastavit Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Za každé c v Rng
c.Value = UCase (c.Value)
Další c
Application.ScreenUpdating = True
End Sub
Jak to funguje?
Výše uvedený kód je zapsán v modulu sheet1. Výše uvedený kód převede veškerý text na listu1 na velká písmena.
Hlavní řádky ve výše uvedeném kódu jsou:
Nastavit Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Za každé c v Rng
c.Value = UCase (c.Value)
Další c
Zde používáme funkci SpecialCells třídy Cells a předáváme argumenty xlCellTypeConstants. Vrátí výčet buněk a rozsahů, které obsahují konstanty.
Dále použijeme smyčku for k iteraci každé buňky ve výčtu. Dále změníme hodnotu této buňky pomocí funkce UCase.
Zde prohlášeníc.Value = UCase (c.Value) aktualizuje hodnoty v každé buňce velkými písmeny.
Příklad 2: Převod textu sloupce A na velká písmena.
V tomto příkladu máme za úkol převést pouze textový sloupec A. Můžete to udělat, když konkrétní sloupce obsahují speciální text, který musí být pouze velkými písmeny.
Sub UpperCaseCode2 () Application.ScreenUpdating = False
Dim buňka jako rozsah
Pro každou buňku v dosahu („$ A $ 1:“ & Range („$ A $ 1“). SpecialCells (xlLastCell) .Address)
Pokud Len (buňka)> 0 Pak buňka = UCase (buňka)
Další buňka
Application.ScreenUpdating = True
End Sub
Kód je téměř stejný jako v předchozím příkladu. Jedinou změnou, kterou máme, jsou tyto řádky:
Pro každou buňku v dosahu („$ A $ 1:“ & Range („$ A $ 1“). SpecialCells (xlLastCell) .Address)
Pokud Len (buňka)> 0 Pak buňka = UCase (buňka)
Další buňka
Zde pomocí čáry vytvoříme dynamický rozsah Rozsah („$ A $ 1:“ & Range („$ A $ 1“). SpecialCells (xlLastCell) .Address). Tento řádek vytvoří rozsah počínaje buňkou A1 až po poslední buňku, která obsahuje libovolnou hodnotu v sloupci A.
Poté iterujeme každou buňku a aktualizujeme ji velkými řetězci.
Soubor si můžete stáhnout níže.
Stáhnout - VBA pro převod textu z malých na velká - xlsm
Takže ano, lidi, takto můžete aktualizovat malý text na velký. Doufám, že jsem to vysvětlil dostatečně. Máte -li jakékoli pochybnosti týkající se tohoto článku nebo jakéhokoli jiného dotazu souvisejícího s VBA. Zeptejte se mě v sekci komentáře níže.
Jak používat funkci TRIM v Excelu: Funkce TRIM se používá k oříznutí řetězců a vyčištění všech koncových nebo úvodních mezer od řetězce. To nám hodně pomáhá v procesu čištění dat.
Jak používat funkci CLEAN v Excelu: Funkce Clean se používá k vyčištění netisknutelných znaků z řetězce. Tato funkce se většinou používá s funkcí TRIM k vyčištění importovaných cizích dat.
Nahradit text od konce řetězce počínaje od proměnné polohy: K nahrazení textu z konce řetězce používáme funkci VYMĚNIT. Funkce REPLACE používá k nahrazení pozici textu v řetězci.
Jak zkontrolovat, zda řetězec obsahuje jeden z mnoha textů v aplikaci Excel: Abychom zjistili, zda řetězec obsahuje některý z více textů, použijeme tento vzorec. Pomocí funkce SUMA sečteme všechny shody a poté provedeme logiku, abychom zkontrolovali, zda řetězec obsahuje některý z více řetězců.
Počítejte buňky, které obsahují konkrétní text: Jednoduchá funkce COUNTIF udělá kouzlo. Pro počítání počtu více buněk, které obsahují daný řetězec, používáme zástupný operátor s funkcí COUNTIF.
Funkce Excel REPLACE vs SUBSTITUTE: Funkce REPLACE a SUBSTITUTE jsou nejvíce nepochopenými funkcemi. K nalezení a nahrazení daného textu používáme funkci SUBSTITUTE. Kde se REPLACE používá k nahrazení řady znaků v řetězci…
Oblíbené články:
50 zkratek aplikace Excel pro zvýšení produktivity | Získejte rychleji svůj úkol. Těchto 50 klávesových zkratek vám umožní pracovat v Excelu ještě rychleji.
Jak používat funkci Excel VLOOKUP| Toto je jedna z nejpoužívanějších a nejoblíbenějších funkcí Excelu, která slouží k vyhledávání hodnot z různých rozsahů a listů.
Jak používat Vynikat Funkce COUNTIF| Pomocí této úžasné funkce spočítejte hodnoty s podmínkami. K počítání konkrétních hodnot nemusíte data filtrovat. Funkce Countif je nezbytná pro přípravu řídicího panelu.
Jak používat funkci SUMIF v aplikaci Excel | Toto je další základní funkce řídicího panelu. To vám pomůže shrnout hodnoty za konkrétních podmínek.