VBA TextBox - Příklady vytvoření textového pole v Excel VBA (Excel Excel)

Obsah:

Anonim

Co je VBA TextBox v Excelu?

VBA TextBox je jedním z mnoha ovládacích prvků z ovládacích prvků UserForm v Excelu. VBA TextBox se může hodit, když chcete mít vstup od uživatele, jako je jeho jméno, věk, adresa, plat atd. Pomocí ovládacího prvku TextBox můžete uživatelům umožnit vkládat tento druh informací a ušetřit spoustu času i překlepy. . VBA TextBox se může skládat ze statických nebo dynamických dat.

UserForm sám o sobě je velmi užitečným nástrojem, který má různé možnosti ovládání, jako jsou TextBox, MsgBox a InputBox atd., Které poskytují praktičtější způsob, jak získat data od uživatele, takže můžete funkčně zpracovat tato data a zjistit z nich užitečné informace. .

V tomto článku získáte praktické zkušenosti s Excel VBA TextBox.

Příklady Excel VBA TextBox

Níže jsou uvedeny různé příklady VBA TextBox v Excelu.

Tuto šablonu Excel VBA TextBox Excel si můžete stáhnout zde - VBA TextBox Excel Excel Template

Příklad č. 1 - Jak vložit textBox do VBA?

Níže jsou kroky pro vložení TextBoxu do Excel VBA.

Krok 1: Otevřete soubor Excel a stiskněte Alt + F11 pro navigaci do podokna VBA.

Krok 2: Jak jsme již diskutovali, TextBox je možnost dostupná v UserForm. Musíme tedy do VBE vložit UserForm. Přejděte do nabídky Vložit > Klepněte na položku UserForm .

Krok 3: Jakmile vložíte UserForm do VBA, uvidíte možnost Toolbox, která je s ní spojena a mají různé možnosti spojené s UserForm.

Krok 4: V tomto panelu nástrojů vyberte TextBox .

Krok 5: Přetáhněte toto textové pole ve formuláři uživatele.

Krok 6: Stisknutím klávesy F4 zobrazíte vlastnosti UserForm (Alternativně to můžete udělat klepnutím pravým tlačítkem na vloženou UserForm). Tyto vlastnosti umožňují provádět některé nezbytné změny, jako je změna názvu UserForm, aby k němu byl snadno přístupný.

Některé další základní změny, které můžete udělat s podoknem vlastností UserForm, jsou jako změna písma, změna velikosti atd.

Krok 7: Zadejte text jako „ Vítejte ve VBA TextBox! ”V textovém poli pod UserForm.

Takto můžete vytvořit textové pole VBA.

Příklad č. 2 - Nastavení hodnoty na VBA TextBox

Uvidíme, jak můžeme nastavit hodnoty pro TextBox. Je někdy povinné nastavit hodnoty jinak, uživatel vloží cokoli, o co má zájem.

Krok 1: Vložte nový UserForm do VBE. Přejděte do nabídky Vložit > klikněte na UserForm.

Krok 2: Z nástrojů UserForm vyberte TextBox a přetáhněte jej do UserForm.

Krok 3: Vložte CommandButton do UserForm stejným způsobem, jako jste přidali TextBox.

Krok 4: Ve vlastnostech změňte titulek příkazového tlačítka na „ Odeslat “. K vlastnostem příkazového tlačítka můžete přejít kliknutím pravým tlačítkem myši na příkazové tlačítko> klepnutím na Vlastnosti .

Krok 5: Poklepejte na tlačítko Odeslat nebo na něj klikněte pravým tlačítkem a vyberte Zobrazit kód .

Krok 6: Do kódu vložte řádek nového kódu do dílčího postupu, jak je uvedeno níže.

Kód:

 Private Sub CommandButton1_Click () TextBox1.Value = "Mé jméno je Lalit!" End Sub

Tento zvýrazněný kód umožňuje přiřadit hodnotu vpravo uzavřenou ve dvojitých uvozovkách textovému poli. Můžete také použít vlastnost TextBox.Text namísto TextBox.Values ​​k nastavení hodnoty pro TextBox.

Krok 7: Stiskem tlačítka F5 nebo Run pod VBE spustíte tento kód, uvidíte UserForm s prázdným TextBoxem. Jakmile stisknete tlačítko Odeslat, objeví se v něm text přiřazený TextBoxu.

Příklad č. 3 - Omezte vstup textového pole tak, aby přijímal pouze číselné hodnoty

Postupujte podle následujících kroků:

Krok 1: Vložte nový UserForm do VBA a do něj přidejte TextBox.

Krok 2: Změňte název textového pole v části Vlastnosti na „ My_Age “.

Krok 3: Poklepejte na TextBox nebo klikněte pravým tlačítkem na něj a vyberte Zobrazit kód .

Počáteční dílčí postup uvidíte takto:

Kód:

 Private Sub My_Age_Change () End Sub

Krok 4: Nyní zkuste přidat podmínku If, která začíná If If.

Kód:

 Private Sub My_Age_Change () Pokud není End Sub

Krok 5: Požádejte kompilátora, aby zkontroloval, zda je hodnota textového pole „My_Age“ číselná nebo nepoužívá IsNumeric klíčové slovo před podmínkou If Not.

Kód:

 Private Sub My_Age_Change () Pokud není IsNumeric (My_Age.Value) End Sub

Krok 6: Jak se vyžaduje každá podmínka IF, přidejte do něj klíčové slovo Then .

Kód:

 Private Sub My_Age_Change () Pokud není IsNumeric (My_Age.Value), pak End Sub

V této části kódu žádáte kompilátor, aby zkontroloval, zda je hodnota zadaná uživatelem v textovém poli číselná nebo ne. Pokud to není číselné, co dělat? Postupujte podle následujícího kroku.

Krok 7: S použitím MsgBoxu přidejte komentář jako „Sorry! Jsou povolena pouze čísla. “, Která se zobrazí, pokud hodnota v textovém poli není číselná.

Kód:

 Soukromé Sub My_Age_Change () Pokud není IsNumeric (My_Age.Value), pak MsgBox "Promiňte! Povolena jsou pouze čísla." End Sub

Krok 8: Nyní zavřete tento příkaz IF pomocí klíčového slova End IF.

Kód:

 Soukromé Sub My_Age_Change () Pokud není IsNumeric (My_Age.Value), pak MsgBox "Promiňte! Povolena jsou pouze čísla." End If End Sub

Krok 9: Nyní spusťte tento kód stisknutím klávesy F5 z klávesnice nebo tlačítka Spustit z VBE a podívejte se na výstup. Získáte textový blok, jak je znázorněno níže:

Nyní se snažím do něj vložit celočíselnou hodnotu a uvidím, jestli mi to skutečně umožní vložit to samé nebo ne.

Bingo, umožňuje mi to uložit celočíselnou hodnotu.

Nyní se pokusíme přidat do tohoto textového pole nějaký plovoucí bod (hodnota s desetinnými místy) a uvidíme, zda nám to umožní zadat stejné.

Podívejme se, jestli nám toto textové pole umožňuje ukládat pod ním záporné hodnoty. Napíšu nějaké záporné číslo a zkontroluji.

Studna! Studna!! No, střílí mi zpráva, že jsou povolena pouze čísla. Stalo se to proto, že tento kód byl původně napsán s podmínkou IF, nemá řešení, jak postupovat, pokud je číslo neaktivní. Navíc věk nemůže být negativní. Že jo? Proto se mi zobrazuje upozornění, jak můžete vidět výše. Pokud však klepnete na tlačítko OK v okně se zprávou a zkusíte zadat číslo, umožní vám to. Ale nedoporučuji tam porušovat pravidla.

Nakonec zkusíme nějaký textový řetězec v poli a uvidíme, jestli to umožní, aby byl uložen v textovém poli nebo ne.

Jak jsem správně očekával, jakmile jsem zadal první řetězcový dopis, systém mi to zabránil tím, že jsem házel zprávu. Je to proto, že jsme v našem kódu uvedli podmínku, která říká, že pokud hodnota není číselná, zahoďte prosím zprávu směrem k uživateli, která říká, že jsou povoleny pouze číselné hodnoty.

Co si pamatovat

  • VBA TextBox je speciální možnost v UserForm. Což je navrženo tak, aby převzalo vstup od samotného uživatele.
  • Hodnoty pro textové pole lze nastavit dvěma způsoby: pomocí TextBox.Text a pomocí TextBox.Value.
  • Někdy je nutné omezit vstup uživatele tak, abychom získali správný typ dat.

Doporučené články

Toto je průvodce VBA TextBox. Zde diskutujeme o tom, jak vytvořit textový blok v Excelu VBA, spolu s praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. Jak používat VBA IsNumeric funkci?
  2. Vytváření pole se seznamem v Excelu
  3. Vložit CheckBox v Excelu
  4. Funkce VBA UCASE v Excelu
  5. Jak zavřít UserForm ve VBA?