VBA TextBox - Primeri za ustvarjanje TextBoxa v Excelu VBA (predloga Excela)

Kazalo:

Anonim

Kaj je VBA TextBox v Excelu?

VBA TextBox je eden od številnih elementov kontrolnikov UserForm v Excelu. VBA TextBox je lahko primeren, če želite vnesti uporabnika, kot so njegovo ime, starost, naslov, plača itd. S pomočjo TextBox-a lahko uporabnikom omogočite, da vnesejo tovrstne informacije in prihranijo veliko svojega časa ter napake pri tipkanju. . VBA TextBox je lahko sestavljen iz statičnih ali dinamičnih podatkov.

UserForm sam je zelo uporabno orodje, ki ima različne možnosti nadzora, kot so TextBox, MsgBox in InputBox itd., Ki omogočajo bolj praktičen način pridobivanja podatkov od uporabnika, tako da lahko te podatke funkcionalno obdelujete in iz njih izveste nekaj koristnih spoznanj. .

V tem članku boste dobili izkušnje z Excel VBA TextBox.

Primeri besedila Excel VBA TextBox

Spodaj so različni primeri VBA TextBox v Excelu.

To predlogo VBA TextBox Excel lahko prenesete tukaj - Predlogo VBA TextBox Excel

Primer # 1 - Kako vstaviti TextBox v VBA?

Spodaj so koraki za vstavljanje TextBoxa v Excel VBA.

1. korak: Odprite datoteko excela in pritisnite tipko Alt + F11, da se pomaknete do podokna VBA.

2. korak: Kot smo že razpravljali, je TextBox možnost, ki je na voljo v programu UserForm. Torej moramo v VBE vstaviti UserForm. Pojdite v meni Vstavljanje > Kliknite Uporabniški obrazec .

Korak 3: Takoj, ko v VBA vstavite UserForm, lahko vidite, da je z njim povezana možnost Toolbox in imajo različne možnosti, povezane z UserForm.

4. korak: V tem orodnem polju izberite TextBox .

5. korak: Ta TextBox povlecite na uporabniški obrazec.

6. korak: Pritisnite F4 in si oglejte lastnosti UserForma (lahko pa to storite tudi s klikom na vstavljen UserForm). Te lastnosti vam omogočajo, da naredite nekaj potrebnih sprememb, kot je sprememba imena UserForm, da boste do njega lahko dostopali enostavno.

Nekatere druge osnovne spremembe, ki jih lahko naredite s podoknom lastnosti UserForm, so: spreminjanje pisave, spreminjanje velikosti itd.

7. korak: Besedilo vnesite kot " Dobrodošli v VBA TextBox! ”V TextBoxu pod UserForm.

Tako lahko ustvarite VBA TextBox.

Primer # 2 - Nastavitev vrednosti na VBA TextBox

Poglejmo, kako lahko nastavimo vrednosti za TextBox. Včasih je treba vrednosti nastaviti drugače, uporabnik bo vnesel vse, kar jih zanima.

1. korak: V VBE vstavite nov uporabniški obrazec. Pojdite v meni Vstavljanje > kliknite UserForm.

2. korak: V orodjih UserForm izberite TextBox in ga povlecite v UserForm.

3. korak: V UserForm vstavite CommandButton na enak način, kot ste dodali TextBox.

4. korak: Spremenite napis napisnega gumba v » Pošlji « pod lastnostmi. Po lastnostih ukaznega gumba se pomaknite z desnim klikom na ukazni gumb> Kliknite Lastnosti .

5. korak: Dvokliknite gumb za oddajo ali z desnim klikom nanj in izberite Prikaži kodo .

6. korak: V kodo v spodnji postopek vstavite vrstico nove kode.

Koda:

 Zasebni Sub CommandButton1_Click () TextBox1.Value = "Moje ime je Lalit!" Končni pod

Ta označena koda vam omogoča, da TextBoxu dodelite desno na desni strani zapisano dvojno narekovaje. Za nastavitev vrednosti za TextBox lahko uporabite tudi lastnost TextBox.Text namesto TextBox.Values.

7. korak: Če želite zagnati to kodo, pritisnite tipko F5 ali Run pod VBE, boste videli UserForm s praznim TextBoxom. Takoj, ko pritisnete gumb za pošiljanje, se bo v njem pojavilo besedilo, dodeljeno TextBoxu.

Primer # 3 - Omejite vnos TextBox, da sprejema samo številčne vrednosti

Sledite spodnjim korakom:

1. korak: V VBA vstavite nov uporabniški obrazec in vanj dodajte TextBox.

2. korak: Spremenite ime TextBoxa v razdelku z lastnostmi v " My_Age ".

3. korak: Dvokliknite TextBox ali z desno miškino tipko kliknite in izberite View Code .

Začetni poddostop boste lahko videli spodaj:

Koda:

 Zasebni pod My_Age_Change () Končni pod

4. korak: Zdaj poskusite dodati pogoj If, ki se začne z If Not.

Koda:

 Zasebni Sub My_Age_Change () Če se ne konča Sub

5. korak: Prosite prevajalca, da preveri, ali je vrednost TextBox-a "My_Age" numerična ali ne uporablja IsNumeric ključne besede pred pogojem If Not.

Koda:

 Zasebni pod My_Age_Change () Če ni IsNumeric (My_Age.Value) End Sub

6. korak: Kot zahteva vsak pogoj IF, dodajte ključno besedo Nato .

Koda:

 Zasebni pod My_Age_Change () Če ni IsNumeric (My_Age.Value), nato Končajte Sub

V tem delu kode prosite prevajalca, da preveri, ali je vrednost, ki jo je uporabnik vnesel pod TextBoxom, numerična ali ne. Če ni numerično, kaj storiti? Sledi naslednji korak.

7. korak: Z uporabo MsgBox dodajte komentar, kot je "Oprostite! Dovoljene so samo številke. "Prikaže se, če vrednost v TextBoxu ni numerična.

Koda:

 Private Sub My_Age_Change () Če ni IsNumeric (My_Age.Value), potem MsgBox "Oprostite! Dovoljene so samo številke." Končni pod

8. korak: Zdaj zaprite to izjavo IF z uporabo ključne besede End IF.

Koda:

 Private Sub My_Age_Change () Če ni IsNumeric (My_Age.Value), potem MsgBox "Oprostite! Dovoljene so samo številke." End If End Sub

9. korak: Zdaj zaženite to kodo s pritiskom na tipko F5 s tipkovnice ali gumbom Zaženi iz VBE in si oglejte izhod. Dobili boste TextBox, kot je prikazano spodaj:

Zdaj poskušam vnesti vrednost Integerja in vidim, ali mi dejansko omogoča, da vnesem isto ali ne.

Bingo, omogoča mi, da shranim celo število.

Zdaj pa poskusimo v to besedilno polje dodati nekaj float (vrednost z decimalnimi točkami) in preverimo, ali nam omogoča, da vnesemo isto.

Preverimo, ali nam to besedilno polje omogoča, da pod njega shranimo nekatere negativne vrednosti ali ne. Vtipkal bom neko negativno številko in preveril.

No! No !! No !!!, strelja mi sporočilo, v katerem je rečeno, da so dovoljene samo številke. Zgodilo se je, ker je ta koda, ki je bila sprva napisana, v pogoju IF, nima rešitve, kaj storiti, če številka ni pozitivna. Poleg tega starost ne more biti negativna. Prav? Zato prejemam opozorilno sporočilo, kot lahko vidite zgoraj. Če pa v polju s sporočilom kliknete V redu in poskusite vnesti številko, vam bo to omogočilo. Ne bom pa priporočal, da se pravila prekršijo tam.

Na koncu poskusimo nekaj besedilnega niza v polju in preverimo, ali omogoča isto, da se shrani v besedilno polje ali ne.

Kot sem upravičeno pričakoval, mi je sistem takoj, ko sem vnesel prvo črko niza, preprečil, da sem to storil tako, da sem vrgel sporočilo. To je zato, ker smo v kodi omenili pogoj, če vrednost ni številčna, prosimo, da uporabniku vrnete sporočilo, da so dovoljene samo številčne vrednosti.

Stvari, ki jih je treba zapomniti

  • VBA TextBox je pod UserForm posebna možnost. Ki je zasnovan tako, da lahko sam prispeva uporabnika.
  • Za nastavitev vrednosti za TextBox obstajata dva načina: z uporabo TextBox.Text in z TextBox.Value.
  • Včasih je obvezno omejiti vnos uporabnika, tako da dobimo pravo vrsto podatkov.

Priporočeni članki

To je vodnik za VBA TextBox. Tukaj razpravljamo o tem, kako ustvariti TextBox v Excelu VBA skupaj s praktičnimi primeri in naloženo predlogo Excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. Kako uporabljati številčno funkcijo VBA?
  2. Ustvarjanje kombinirane škatle v Excelu
  3. V Excel vstavite CheckBox
  4. VBA UCASE funkcija v Excelu
  5. Kako zapreti uporabniški obrazec v VBA?