Čo je VBA TextBox v Exceli?
VBA TextBox je jedným z mnohých ovládacích prvkov ovládacích prvkov UserForm v Exceli. VBA TextBox sa môže hodiť, keď chcete mať vstup od užívateľa, ako je meno, vek, adresa, plat atď. Pomocou ovládacieho prvku TextBox môžete povoliť používateľom vkladať tento druh informácií a ušetriť veľa času a preklepov., VBA TextBox môže pozostávať zo statických alebo dynamických údajov.
UserForm sám o sebe je veľmi užitočným nástrojom, ktorý má rôzne možnosti ovládania, ako sú TextBox, MsgBox a InputBox, atď., Ktoré poskytujú praktickejší spôsob získavania údajov od používateľov, aby ste ich mohli funkčne spracovať a zistiť z nich užitočné informácie.,
V tomto článku získate praktické skúsenosti s programom Excel VBA TextBox.
Príklady Excel VBA TextBox
Nižšie sú uvedené rôzne príklady textového poľa VBA v programe Excel.
Túto šablónu Excel VBA TextBox Excel si môžete stiahnuť tu - šablónu Excel VBA TextBoxPríklad č. 1 - Ako vložiť textové pole do jazyka VBA?
Nižšie sú uvedené kroky na vloženie TextBoxu do Excelu VBA.
Krok 1: Otvorte súbor programu Excel a stlačte Alt + F11, aby ste prešli na tablu VBA.
Krok 2: Ako sme už diskutovali, TextBox je voľba dostupná v UserForm. Preto musíme vložiť UserForm do VBE. Prejdite do ponuky Vložiť > Kliknite na položku UserForm .
Krok 3: Akonáhle vložíte UserForm do VBA, uvidíte s ním priradenú možnosť Toolbox a s UserForm sú spojené rôzne možnosti.
Krok 4: V tomto paneli nástrojov vyberte TextBox .
Krok 5: Potiahnite toto textové pole vo formulári používateľa.
Krok 6: Stlačením klávesu F4 zobrazíte vlastnosti UserForm (Prípadne to môžete urobiť kliknutím pravým tlačidlom myši na vloženú UserForm). Tieto vlastnosti vám umožňujú vykonať niektoré potrebné zmeny, ako je zmena názvu UserForm, aby ste k nemu mali jednoduchý prístup.
Niektoré ďalšie základné zmeny, ktoré môžete vykonať v paneli vlastností UserForm, sú napríklad zmena písma, zmena veľkosti atď.
Krok 7: Zadajte text ako „ Vitajte vo VBA TextBox! ”V TextBoxe v UserForm.
Takto môžete vytvoriť textové pole VBA.
Príklad č. 2 - Nastavenie hodnoty na VBA TextBox
Pozrime sa, ako môžeme nastaviť hodnoty pre TextBox. Niekedy je povinné nastaviť hodnoty inak, používateľ vloží čokoľvek, čo je v jeho záujme.
Krok 1: Vložte nový UserForm do VBE. Prejdite do ponuky Vložiť > kliknite na položku UserForm.
Krok 2: Z nástrojov UserForm vyberte TextBox a pretiahnite ho do UserForm.
Krok 3: Vložte CommandButton do UserForm rovnakým spôsobom, ako ste pridali TextBox.
Krok 4: V rámci vlastností zmeňte nadpis príkazového tlačidla na „ Odoslať “. Na vlastnosti príkazového tlačidla sa môžete pohybovať kliknutím pravým tlačidlom myši na príkazové tlačidlo> kliknutím na položku Vlastnosti .
Krok 5: Dvakrát kliknite na tlačidlo Odoslať alebo kliknite pravým tlačidlom myši a vyberte položku Zobraziť kód .
Krok 6: Do kódu vložte riadok nového kódu do čiastkového postupu, ako je uvedené nižšie.
kód:
Private Sub CommandButton1_Click () TextBox1.Value = "Moje meno je Lalit!" End Sub
Tento zvýraznený kód vám umožňuje priradiť hodnotu napravo uzavretú v úvodzovkách do textového poľa. Na nastavenie hodnoty pre TextBox môžete použiť vlastnosť TextBox.Text namiesto TextBox.Values.
Krok 7: Stlačením klávesy F5 alebo Run pod VBE spustite tento kód, uvidíte UserForm s prázdnym TextBoxom. Akonáhle stlačíte tlačidlo Odoslať, tam sa v ňom objaví text priradený k TextBoxu.
Príklad č. 3 - Obmedzenie vstupu textového poľa na akceptovanie iba číselných hodnôt
Postupujte podľa nasledujúcich krokov:
Krok 1: Vložte nový UserForm do svojho VBA a do neho pridajte TextBox.
Krok 2: Zmeňte názov TextBoxu v časti Vlastnosti na „ My_Age “.
Krok 3: Dvakrát kliknite na TextBox alebo kliknite naň pravým tlačidlom myši a vyberte Zobraziť kód .
Počiatočný čiastkový postup uvidíte takto:
kód:
Private Sub My_Age_Change () End Sub
Krok 4: Teraz skúste pridať podmienku If, ktorá začína na If Not.
kód:
Private Sub My_Age_Change () Ak nie je koniec Sub
Krok 5: Požiadajte kompilátora, aby skontroloval, či je hodnota textového poľa „My_Age“ numerická alebo nepoužíva IsNumeric kľúčové slovo pred podmienkou If Not.
kód:
Súkromné Sub My_Age_Change () Ak nie je číselné (My_Age.Value) End Sub
Krok 6: Ako sa vyžaduje každá podmienka IF, za to pridajte kľúčové slovo Then .
kód:
Súkromné Sub My_Age_Change () Ak nie je číselné (My_Age.Value), potom End Sub
V tejto časti kódu žiadate kompilátor, aby skontroloval, či je hodnota zadaná používateľom v rámci TextBoxu číselná alebo nie. Ak to nie je číselné, čo robiť? Postupujte podľa nasledujúceho kroku.
Krok 7: S použitím MsgBoxu pridajte komentár ako „Prepáčte! Povolené sú iba čísla. “, Ktoré sa zobrazia, ak hodnota v textovom poli nie je číselná.
kód:
Súkromné Sub My_Age_Change () Ak nie je číselné (My_Age.Value), potom MsgBox "Prepáčte! Povolené sú iba čísla." End Sub
Krok 8: Teraz zatvorte tento príkaz IF pomocou kľúčového slova End IF.
kód:
Súkromné Sub My_Age_Change () Ak nie je číselné (My_Age.Value), potom MsgBox "Prepáčte! Povolené sú iba čísla." End If End Sub
Krok 9: Teraz spustite tento kód tak, že stlačíte tlačidlo F5 z klávesnice alebo tlačidlo Spustiť z VBE a uvidíte výstup. Dostanete textový blok, ako je to znázornené nižšie:
Teraz sa snažím do nej vložiť celočíselnú hodnotu a uvidím, či mi to skutočne umožňuje vkladať to isté alebo nie.
Bingo, umožňuje mi to uložiť celú hodnotu.
Teraz skúste pridať toto float (Value with Decimal points) do tohto textového poľa a uvidíme, či nám to umožní vložiť to isté.
Pozrime sa, či nám toto textové pole umožňuje uložiť nejaké negatívne hodnoty alebo nie. Napíšem nejaké záporné číslo a skontrolujem.
Dobre! No !! No !!!, strieľa mi správu, že sú povolené iba čísla. Stalo sa tak, pretože tento kód je pôvodne napísaný s podmienkou IF, nemá riešenie, čo robiť, ak číslo nie je kladné. Vek navyše nemôže byť negatívny. Správny? Preto sa zobrazuje výstražné hlásenie, ako vidíte vyššie. Ak však v okne správy kliknete na tlačidlo OK a pokúsite sa zadať číslo, umožní vám to. Ale neodporúčam tam porušovať pravidlá.
Nakoniec vyskúšame nejaký textový reťazec v poli a uvidíme, či umožňuje jeho uloženie do textového poľa alebo nie.
Ako sa správne predpokladalo, systém, ktorý som zadal prvé reťazcové písmeno, mi zabránil, aby som to urobil hodením správy. Je to z toho dôvodu, že sme v našom kóde uviedli podmienku, ktorá hovorí, že ak hodnota nie je číselná, pošlite používateľovi správu, ktorá hovorí, že sú povolené iba číselné hodnoty.
Čo je potrebné pamätať
- VBA TextBox je špeciálnou možnosťou v rámci UserForm. Je navrhnutý tak, aby prevzal vstup od samotného používateľa.
- Existujú dve metódy na nastavenie hodnôt pre TextBox: pomocou TextBox.Text a pomocou TextBox.Value.
- Niekedy je potrebné obmedziť vstup používateľa, aby sme získali správny typ údajov.
Odporúčané články
Toto je príručka pre VBA TextBox. Tu diskutujeme o tom, ako vytvoriť textový blok v programe Excel VBA, spolu s praktickými príkladmi a šablónou programu Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -
- Ako používať číselnú funkciu VBA?
- Vytvorenie rozbaľovacieho zoznamu v Exceli
- Vložte začiarkavacie políčko v programe Excel
- VBA UCASE Funkcia v Exceli
- Ako zatvoriť UserForm vo VBA?