Mis on VBA TextBox Excelis?
VBA TextBox on üks paljudest Exceli UserFormi juhtelementide juhtelementidest. VBA TextBox võib olla mugav, kui soovite kasutajalt sisestada andmeid, näiteks tema nimi, vanus, aadress, palk jne. Kasutades TextBoxi juhtimist, saate lubada kasutajatel sisestada sellist teavet ja säästa palju teie aega ning trükivigu. . VBA TextBox võib koosneda staatilistest või dünaamilistest andmetest.
UserForm ise on väga kasulik tööriist, millel on erinevad juhtimisvõimalused, näiteks TextBox, MsgBox ja InputBox jne., Mis pakuvad praktilisemat viisi kasutajalt andmete hankimiseks, et saaksite neid andmeid funktsionaalselt töödelda ja sellest välja saada kasulikku teavet. .
Selles artiklis saate saada praktilisi kogemusi Excel VBA TextBoxis.
Näited Excel VBA TextBoxist
Allpool on erinevad näited VBA TextBoxist Excelis.
Selle VBA TextBox Exceli malli saate alla laadida siit - VBA TextBox Exceli mallNäide nr 1 - kuidas tekstiboksi VBA-sse sisestada?
Allpool on toodud juhised tekstiboksi lisamiseks Excelisse VBA.
1. samm: avage Exceli fail ja vajutage VBA paanile navigeerimiseks nuppu Alt + F11.
2. samm: Nagu me juba arutasime, on TextBox UserFormis saadaval olev suvand. Seega peame sisestama VFE-sse UserFormi. Minge sisestusmenüüsse > klõpsake nuppu Kasutajavorm .
3. samm: niipea kui sisestate VBA-sse UserFormi, näete sellega seotud tööriistakasti suvandit ja UserFormiga on seotud erinevad suvandid.
4. samm: valige selles tööriistakastis tekstikast .
5. samm: lohistage see tekstikast kasutaja vormile.
6. samm: vajutageF4, et näha UserFormi atribuute (Teise võimalusena saate seda teha, klõpsates hiire parema nupuga sisestatud UserFormil). Need atribuudid võimaldavad teil teha vajalikke muudatusi, näiteks muuta UserFormi nime, et sellele hõlpsalt juurde pääseda.
Mõned muud põhimuudatused, mida saate teha UserFormi atribuutide paanil, on näiteks fondi muutmine, suuruse muutmine jne.
7. samm: sisestage tekst nagu „ Tere tulemast VBA tekstiboksi! ”TextBoxis UserFormi alt.
Nii saate luua VBA tekstiboksi.
Näide 2 - VBA tekstiboksi väärtuse seadmine
Vaatame, kuidas saaksime TextBoxile väärtused seada. Mõnikord on väärtuste seadmine kohustuslik, vastasel juhul sisestab kasutaja kõik, mis neid huvitab.
1. samm. Sisestage uus kasutajavorm VBE-sse. Minge menüüsse Sisesta ja klõpsake nuppu UserForm.
2. samm: valige UserFormi tööriistadest TextBox ja lohistage see rakendusse UserForm.
3. samm: sisestage CommandButton UserFormi samamoodi, nagu lisasite TextBoxi.
4. samm: muutke käskude nupu pealdis atribuutide all olevaks Edasta . Käsunupu atribuutide juurde saab navigeerida, kui paremklõpsake käsunupul> käsul Atribuudid .
5. samm: tehke topeltklõps nupul Saada või paremklõpsake sellel ja valige Kuva kood .
6. samm: sisestage koodi alltoodud alamprotseduuri all uue koodi rida.
Kood:
Privaatne alam CommandButton1_Click () TextBox1.Value = "Minu nimi on Lalit!" Lõpu alam
See esiletõstetud kood võimaldab teil tekstiboksile väärtuse määrata paremal, kahepoolsete jutumärkidega suletud. Tekstiboksi väärtuse määramiseks võite kasutada ka omadust TextBox.Text, mitte TextBox.Values.
7. samm: selle koodi käivitamiseks klõpsake nuppu F5 või nuppu VBE, et käivitada see kood, näete tühja tekstiboksiga UserFormi. Niipea, kui vajutad esitamisnuppu, kuvatakse seal tekstiboksile määratud tekst.
Näide nr 3 - piirake tekstiboksi sisestust ainult numbriliste väärtuste aktsepteerimisega
Järgige järgmisi samme:
1. samm: sisestage oma VBA-s uus UserForm ja lisage sinna tekstikast.
2. samm: muutke jaotises Atribuudid tekstiboksi nimi väärtuseks „ My_Age ”.
3. samm: topeltklõpsake tekstikastil või paremklõpsake seda ja valige Kuva kood .
Esialgset alaprotseduuri näete järgmiselt:
Kood:
Privaatne alammenüü My_Age_Change () lõpp alam
4. samm: proovige nüüd lisada tingimus, mis algab tähisega Kui ei.
Kood:
Private Sub My_Age_Change () Kui ei lõpe Sub
5. samm: paluge kompilaatoril kontrollida, kas TextBoxi „My_Age” väärtus on numbriline või mitte, kasutades tingimuse If ees IsNumeric Keyword.
Kood:
Privaatne alamosa My_Age_Change () Kui see pole arvuline (My_Age.Value) Lõpeta alamhulk
6. samm: nii nagu iga IF-i tingimus nõuab, lisage selle jaoks märksõna Seejärel .
Kood:
Private Sub My_Age_Change () Kui ei ole numbriline (My_Age.Value), siis lõpetage Sub
Selles kooditükis palute kompilaatoril kontrollida, kas kasutaja TextBoxi sisestatud väärtus on numbriline või mitte. Kui see pole arvuline, mida siis teha? Järgige järgmist sammu.
7. samm: lisage MsgBoxi abil kommentaar, näiteks „Vabandust! Lubatud on ainult numbrid. ”, Kui väärtus TextBoxis ei ole numbriline.
Kood:
Privaatne alam My_Age_Change () Kui see pole arvuline (My_Age.Value), siis MsgBox "Vabandust! Lubatud on ainult numbrid." Lõpu alam
8. samm: sulgege see IF-lause, kasutades märksõna End IF.
Kood:
Privaatne alam My_Age_Change () Kui see pole arvuline (My_Age.Value), siis MsgBox "Vabandust! Lubatud on ainult numbrid." End If End Sub
9. samm. Nüüd käivitage see kood, vajutades klaviatuuril nuppu F5 või VBE nuppu Käivita ja vaadake väljundit. Saate tekstiboksi, nagu allpool näidatud:
Proovin sisestada sellesse täisarvu ja uurida, kas see lubab mul sama sisestada või mitte.
Bingo, see võimaldab mul salvestada täisarvu.
Proovime nüüd lisada sellesse tekstivälja natuke ujukit (väärtus koos kümnendkohtadega) ja uurime, kas see võimaldab meil sama sisestada.
Kontrollime, kas see tekstkast võimaldab meil selle alla salvestada negatiivseid väärtusi või mitte. Ma kirjutan mõne negatiivse arvu ja kontrollin.
Noh! Noh !! Noh, see edastab mulle teate, et lubatud on ainult numbrid. See juhtus seetõttu, et see algselt kirjutatud kood on IF-tingimusega, kuid sellel pole mingit ümbersuunamist, mida teha, kui arv pole positiivne. Pealegi ei saa vanus olla negatiivne. Õige? Seetõttu saan ma hoiatussõnumi, nagu ülal näete. Kui klõpsate sõnumikastis OK ja proovite numbrit sisestada, lubab see teil seda teha. Kuid ma ei soovita seal reegleid rikkuda.
Lõpuks proovime kastis mõnda tekstistringi ja vaatame, kas see võimaldab seda salvestada tekstikasti või mitte.
Nagu õigustatult võisin, takistas süsteem mind kohe pärast esimese stringitähe sisestamist sõnumi viskamisega seda teha. Selle põhjuseks on asjaolu, et oleme oma koodis maininud tingimust, kus öeldakse, et kui väärtus pole arvuline, visake kasutaja poole sõnum, milles öeldakse, et lubatud on ainult arvväärtused.
Asjad, mida meeles pidada
- VBA TextBox on UserFormi eriline võimalus. Mis on loodud kasutajalt sisendi saamiseks.
- TextBoxi väärtuste seadmiseks on kaks meetodit: kasutades TextBox.Text ja kasutades TextBox.Value.
- Mõnikord on kohustuslik piirata kasutaja sisestamist, et saaksime õiget tüüpi andmeid.
Soovitatavad artiklid
See on VBA tekstiboksi juhend. Siin arutleme, kuidas luua tekstiboksi Excel VBA-s koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -
- Kuidas kasutada VBA IsNumeric funktsiooni?
- Kombineeritud kasti loomine Excelis
- Sisestage CheckBox Excelisse
- VBA UCASE funktsioon Excelis
- Kuidas sulgeda UserForm VBA-s?