VBA CHR | Získejte znak kódu ASCII pomocí funkce CHR

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,

CharCode = Toto je povinný parametr. Jedná se o ASCII kód, 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

Tuto šablonu VBA CHR Excel si můžete stáhnout zde - Šablona VBA CHR Excel

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ů uvedený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 uvedena 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 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 znázorněno 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“. Tam 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, číslice 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