Mikä on VBA TextBox Excelissä?
VBA TextBox on yksi monista Excel-käyttäjän UserForm-ohjaimien ohjauksista. VBA TextBoxista voi olla hyötyä, kun haluat saada käyttäjiltä tietoja, kuten heidän nimensä, iän, osoitteen, palkan jne. Käyttämällä TextBox-ohjausta, voit antaa käyttäjille syöttää tällaisia tietoja ja säästää paljon aikaa ja kirjoitusvirheitä. . VBA TextBox voi koostua staattisesta tai dynaamisesta tiedosta.
Itse UserForm on erittäin hyödyllinen työkalu, jolla on erilaisia ohjausvaihtoehtoja, kuten TextBox, MsgBox ja InputBox jne., Jotka tarjoavat käytännöllisemmän tavan saada tietoja käyttäjältä, jotta voit käsitellä näitä tietoja toiminnallisesti ja saada siitä hyödyllisiä oivalluksia. .
Tässä artikkelissa saat käytännön kokemusta Excel VBA TextBoxista.
Esimerkkejä Excel VBA TextBox -sovelluksesta
Alla on erilaisia esimerkkejä VBA TextBoxista Excelissä.
Voit ladata tämän VBA TextBox Excel -mallin täältä - VBA TextBox Excel TemplateEsimerkki 1 - Kuinka lisätä tekstilaatikko VBA: han?
Alla on vaiheet tekstilaatikon lisäämiseen Excel VBA -sovellukseen.
Vaihe 1: Avaa Excel-tiedosto ja paina Alt + F11 siirtyäksesi VBA-ruutuun.
Vaihe 2: Kuten olemme jo keskustelleet, TextBox on vaihtoehto, joka on saatavana UserFormissa. Joten meidän on lisättävä UserForm VBE: hen. Siirry Lisää valikko > Napsauta UserForm .
Vaihe 3: Heti kun lisäät UserFormin VBA: han, näet siihen liittyvän työkalupakki-vaihtoehdon, ja sillä voi olla erilaisia UserFormiin liittyviä vaihtoehtoja.
Vaihe 4: Valitse tässä työkaluruudussa TextBox .
Vaihe 5: Vedä tämä tekstilaatikko käyttäjälomakkeeseen.
Vaihe 6: Näpäytä FF4 nähdäksesi UserFormin ominaisuudet (Vaihtoehtoisesti voit tehdä tämän napsauttamalla hiiren kakkospainikkeella lisättyä UserFormia). Nämä ominaisuudet antavat sinun tehdä joitain tarpeellisia muutoksia, kuten muuttaa UserForm-nimeä voidaksesi käyttää sitä helposti.
Jotkut muut perimmäiset muutokset, jotka voit tehdä UserForm-ominaisuusikkunassa, ovat esimerkiksi fontin vaihtaminen, koon muuttaminen jne.
Vaihe 7: Syötä teksti nimellä ” Tervetuloa VBA TextBoxiin! ”Tekstiboksissa UserForm-kohdassa.
Näin voit luoda VBA-tekstikenttään.
Esimerkki 2 - arvon asettaminen VBA-tekstikenttään
Katsotaan kuinka voimme asettaa arvot TextBoxille. Joskus on pakollista asettaa arvot, muuten käyttäjä syöttää kaiken kiinnostavansa.
Vaihe 1: Lisää uusi UserForm VBE: hen. Siirry Lisää- valikkoon> napsauta UserForm.
Vaihe 2: Valitse UserForm-työkaluista TextBox ja vedä se UserForm-kansioon.
Vaihe 3: Aseta CommandButton UserForm-kohtaan samalla tavalla kuin lisäsit TextBoxin.
Vaihe 4: Muuta komentopainikkeen kuvateksti asetukseksi ” Lähetä ”. Voit navigoida komentopainikkeen ominaisuuksiin napsauttamalla hiiren oikealla painikkeella komentopainiketta> Napsauta Ominaisuudet .
Vaihe 5: Kaksoisnapsauta lähetä-painiketta tai napsauta sitä hiiren kakkospainikkeella ja valitse Näytä koodi .
Vaihe 6: Lisää koodiin rivi uutta koodia alla olevassa alaproseduurissa.
Koodi:
Yksityinen osa CommandButton1_Click () TextBox1.Value = "Minun nimeni on Lalit!" End Sub
Tämän korostetun koodin avulla voit määrittää arvon oikealla, kaksoislainausmerkeinä suljettuna tekstilaatikkoon. Voit myös käyttää TextBox.Text-ominaisuutta TextBox.Values-asemesta asettaaksesi TextBox-arvon.
Vaihe 7: Paina F5 tai Suorita-painiketta VBE: n alla suorittaaksesi tämän koodin, näet UserForm-kentän, jonka tekstiruutu on tyhjä. Heti kun napsautat lähetä-painiketta, TextBoxille määritetty teksti ilmestyy siihen.
Esimerkki 3 - Rajoita tekstilaatikon syöttäminen vain numeeristen arvojen hyväksymiseen
Noudata seuraavia vaiheita:
Vaihe 1: Lisää uusi UserForm VBA: han ja lisää siihen tekstilaatikko.
Vaihe 2: Muuta Ominaisuudet-osiossa olevan TextBox-nimen nimeksi ” My_Age ”.
Vaihe 3: Kaksoisnapsauta TextBoxia tai napsauta sitä hiiren kakkospainikkeella ja valitse Näytä koodi .
Näet alkuperäisen alimenettelyn seuraavasti:
Koodi:
Yksityinen ali My_Age_Change () End Sub
Vaihe 4: Yritä nyt lisätä If-ehto, joka alkaa Jos ei.
Koodi:
Yksityinen ali My_Age_Change () Jos ei lopeta alaosaa
Vaihe 5: Pyydä kääntäjää tarkistamaan, onko TextBox “My_Age” arvo numeerinen vai ei käytössä IsNumeric Avainsana Jos ei-ehdon edessä.
Koodi:
Yksityinen osa My_Age_Change () Jos ei ole numeerinen (My_Age.Value) End Sub
Vaihe 6: Kuten jokainen IF-ehto vaatii, lisää siihen sitten avainsana.
Koodi:
Yksityinen osa My_Age_Change () Jos ei ole numeerista (My_Age.Value), sitten Lopeta Sub
Pyydät tässä koodinpätkässä kääntäjää tarkistamaan, onko käyttäjän tekstilaatikkoon syöttämä arvo numeerista vai ei. Jos se ei ole numeerinen, mitä sitten tehdä? Seuraa seuraavaa vaihetta.
Vaihe 7: Lisää MsgBox-sovelluksella kommentti, kuten “Anteeksi! Vain numerot ovat sallittuja. ”Näkyy, jos TextBoxin arvo ei ole numeerinen.
Koodi:
Yksityinen osa My_Age_Change () Jos ei ole numeerista (My_Age.Value) Sitten MsgBox "Anteeksi! Vain numerot ovat sallittuja." End Sub
Vaihe 8: Sulje nyt tämä IF-lauseke käyttämällä avainsanaa End IF.
Koodi:
Yksityinen osa My_Age_Change () Jos ei ole numeerista (My_Age.Value) Sitten MsgBox "Anteeksi! Vain numerot ovat sallittuja." End If End Sub
Vaihe 9: Suorita nyt tämä koodi napsauttamalla F5-painiketta näppäimistöltä tai Suorita-painiketta VBE: ltä ja katso lähtö. Saat tekstilaatikon alla olevan kuvan mukaisesti:
Yritän nyt syöttää siihen kokonaisluvun ja nähdä, salliiko se tosiasiallisesti minun syöttää saman vai ei.
Bingo, sen avulla voin tallentaa kokonaisluvun.
Yritämme nyt lisätä tähän kelloan kelluvaa arvoa (arvo desimaalipisteillä) ja katsotaan, sallitaanko sen syöttäminen samaan.
Tarkistetaan, salliiko tämä tekstiruutu tallentaa negatiivisia arvoja sen alle. Kirjoitan jonkin negatiivisen luvun ja tarkistan.
Hyvin! Hyvin!! No, se antaa minulle viestin, jossa sanotaan, että vain numerot ovat sallittuja. Se tapahtui, koska tämä alun perin kirjoitettu koodi on IF-eholla, sillä ei ole kiertotapaa, mitä tehdä, jos luku ei ole positiivinen. Lisäksi ikä ei voi olla negatiivinen. Oikea? Siksi saan varoitusviestin, kuten yllä näette. Jos kuitenkin napsautat viestiruudussa OK ja yrität antaa numeron, se antaa sinun tehdä niin. En kuitenkaan suosittele siellä olevien sääntöjen rikkomista.
Kokeile lopuksi jotakin tekstimerkkijonoa ruudussa ja katsotaan, salliiko se saman tallennuksen tekstiruutuun vai ei.
Kuten oikeutetusti odotettiin, heti kun kirjoitin ensimmäisen merkkijonon, järjestelmä esti minut tekemään niin heittämällä viestin. Tämä johtuu siitä, että olemme maininneet koodissamme ehdon, jossa sanotaan, että arvo ei ole numeerinen, heitä viesti käyttäjälle sanomalla, että vain numeeriset arvot ovat sallittuja.
Muistettavat asiat
- VBA TextBox on erityinen vaihtoehto UserFormissa. Joka on suunniteltu ottamaan huomioon käyttäjä itse.
- TextBox-arvojen asettamiseen on kaksi tapaa: käyttämällä TextBox.Text ja käyttämällä TextBox.Value.
- Joskus on pakollista rajoittaa käyttäjän syöttämistä, jotta saamme oikean tyyppistä tietoa.
Suositellut artikkelit
Tämä on opas VBA TextBoxiin. Tässä keskustellaan siitä, miten luodaan tekstikenttä Excel VBA -käyttöjärjestelmässä, sekä käytännön esimerkkejä ja ladattavaa Excel-mallia. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -
- Kuinka käyttää VBA IsNumeric -toimintoa?
- Yhdistelmäruudun luominen Excelissä
- Lisää valintaruutu Exceliin
- VBA UCASE -toiminto Excelissä
- Kuinka sulkea UserForm VBA: ssa?