Funkce Excel VBA CHR
VBA CHR je vestavěná funkce, která spadá do kategorie řetězcových / textových funkcí a slouží k získání znaku ekvivalentního kódu ASCII. Ekvivalentní funkcí aplikace Excel Workspace v CHR je Application.WorksheetFunction.CHAR.
Níže je uvedena syntaxe Chr.
Tato funkce má jeden argument. Kde,
Charco de = Toto je povinný parametr. Jedná se o kód ASCII, pro který má být získán ekvivalentní znak.
Funkce vrací hodnotu řetězce označující znak ekvivalentní danému kódu ASCII. ASCII je podmnožina standardu kódování znaků Unicode a je tvořena 128 symboly v znakové sadě. Symboly se skládají z velkých, malých písmen, čísel, speciálních znaků, včetně řídicích znaků, a interpunkčních znamének. Každý symbol ve znakové sadě má ekvivalentní desítkovou hodnotu (0 až 127), hexadecimální hodnotu a osmičkovou hodnotu.
Příklad
Krok 1 : V listu aplikace Excel přidejte 2 texty záhlaví do buňky A1 a C1, jak je znázorněno na obrázku níže. Sloupec A pro zadání kódu ASCII a sloupec C pro tisk odpovídajícího znaku vypočítaného pomocí funkce CHR.
Krok 2 : Postupujte podle kroků zobrazených v další části a vytvořte tlačítko v sešitu aplikace Excel (přejděte prosím na článek) a změňte jeho titulek na „Klikněte sem“.
Krok 3 : Napište následující fragment kódu do VBA. Kód načte hodnotu z buňky A2, která je dána jako vstup do funkce CHR. Výsledek se načte v řetězci char1 a poté se přiřadí k buňce C2.
Kód:
Sub Button1_Click () 'Tato funkce vrací znak pro hodnotu zadanou v buňce A2 Dim char1 jako řetězec' Deklarovat proměnnou char1 jako řetězec char1 = Chr (Range ("A2"). Hodnota) 'Načíst hodnotu z buňky A2 Range ("C2 ") .Value = char1 'Tiskový výstup v buňce C2 End Sub
Krok 4: Uložte kód VBA Excel a vraťte se do sešitu aplikace Excel a zadejte vstupní hodnotu do buňky A2, jak je znázorněno níže.
Zadejte 65 jako vstup ASCII, jehož odpovídající znak se nachází v buňce C2.
Krok 5: Kliknutím na tlačítko „Klikněte sem“ vytisknete výsledek v buňce C2.
Sledujte výsledek vytištěný v buňce C2. Fragment kódu, který jsme napsali v kroku Krok 3, je zodpovědný za čtení vstupu z buňky A2, spuštění funkce Chr a tisk hodnoty v buňce C2, jak je uvedeno níže.
Zde je vstup zadán jako 65 a přijímaný výstup je A. Takže Chr (65) = A.
Krok 6 : Zkuste změnit vstup v buňce A2 a pozorujte, že získáte příslušný výstup v buňce C2, jak je znázorněno níže.
Např. CHR (37) =% atd.
Jak vytvořit tlačítko v aplikaci Excel?
Jako funkci VBA jej lze použít v kódu makra aplikace Excel, který se zadává pomocí editoru jazyka Microsoft Visual Basic integrovaného do MS Excel. Další informace najdete v níže uvedených krocích.
Krok 1: Zapněte režim vývojáře v aplikaci Excel
Chcete-li použít jakoukoli funkci VBA v aplikaci Excel, musíte zapnout režim vývojáře z nabídky Soubor-> Možnosti, jak je znázorněno na obrázku níže.
Klikněte na Soubor -> Možnosti -> Zákaznická lišta -> Vývojář -> OK
Ve výsledku bude do sešitu přidána nová možnost panelu nástrojů s názvem „Vývojář“, jak je znázorněno na obrázku níže.
Krok 2: Uložení sešitu
Uložte sešit aplikace Excel jako „sešit aplikace Excel podporující makra“.
Krok 3: Vložte ovládací prvek formuláře do sešitu
- Klikněte na kartu Vývojář. V podsekci Ovládací prvky klikněte na možnost Vložit ve VBA.
- Vyberte první ovládací prvek, tj. Tlačítko
- Pozorujte, že se kurzor sešitu změní na nakreslenou ikonu.
- Při pokusu o nakreslení tlačítka se otevře nové dialogové okno s názvem „Přiřadit makro“. Zde můžete zadat název makra, který bude použit v kódu VB, jak se dozvíme více. Např. Button1_Click. Klikněte na OK.
- Poté bude do sešitu automaticky vloženo tlačítko. Text titulku tlačítka lze upravit a lze jej upravit dvojitým kliknutím na tlačítko.
Krok 4: Napište kód VB
- Vyberte tlačítko a klikněte na úplně první možnost zleva pod podsekcí „Kód“ na kartě Vývojář, tj. „Visual Basic“.
- Tím se spustí nové okno projektu VBA, jak je znázorněno na obrázku níže.
- Jak je znázorněno na výše uvedeném obrázku, v okně kódu VB je naplněna prázdná kostra dříve vytvořeného makra, tj. Button1_Click.
- Definici makra můžete napsat podle svého záměru. Zde uvidíme příklad funkce VBA CHAR v následující části.
Krok 5: Přepínání mezi sešitem aplikace Excel a VB IDE
Mezi sešitem Excel a VB IDE můžete přepínat kliknutím na ikonu zcela vlevo pod nabídkou „Soubor“, tj. „Zobrazit Microsoft Excel“, jak je uvedeno níže.
Věci k zapamatování
- Funkce CHR může vrátit tisknutelné i netisknutelné znaky přítomné na klávesnici a srozumitelné počítači. Např. Písmena, čísla a další speciální znaky jsou tisknutelné znaky. Ostatní klávesy, například Enter, Mezera, Esc, jsou však netisknutelné znaky.
- CHR je funkce VBA a nelze ji použít v aplikaci Excel tak, jak je. Jeho odpovídající funkcí v aplikaci Excel je Application.WorksheetFunction.CHAR
