Što je VBA TextBox u Excelu?
VBA TextBox jedna je od mnogih kontrola UserForm kontrola u Excelu. VBA TextBox može vam biti koristan kada želite imati unos od korisnika kao što su njegovo ime, starost, adresa, plaća itd. Korištenjem TextBox kontrole možete omogućiti korisnicima da unose ove vrste podataka i uštedjeti mnogo vašeg vremena, kao i pogrešaka pri upisu., VBA TextBox može se sastojati od statičkih ili dinamičkih podataka.
Sam UserForm vrlo je koristan alat koji ima različite mogućnosti upravljanja poput TextBox, MsgBox i InputBox itd. Koji pružaju praktičniji način prikupljanja podataka od korisnika kako biste mogli funkcionalno obraditi te podatke i saznati neke korisne uvide iz njih.,
U ovom ćete članku dobiti praktično iskustvo na Excel VBA TextBox-u.
Primjeri Excel VBA TextBox-a
Ispod su različiti primjeri VBA TextBoxa u Excelu.
Ovdje možete preuzeti ovaj VBA TextBox Excel predložak - VBA TextBox Excel predložakPrimjer br. 1 - Kako umetnuti TextBox u VBA?
Ispod su koraci za umetanje TextBoxa u Excel VBA.
Korak 1: Otvorite excel datoteku i pritisnite Alt + F11 da biste se pomaknuli do okna VBA.
Korak 2: Kao što smo već raspravljali, TextBox je opcija dostupna u UserForm-u. Stoga moramo umetnuti UserForm u VBE. Otvorite izbornik Umetanje > Kliknite Korisnički obrazac .
Korak 3: Čim umetnete UserForm u VBA možete vidjeti poveznicu s alatom Toolbox i imati različite opcije povezane s UserForm.
Korak 4: U ovom alatu odaberite TextBox .
Korak 5: Povucite ovaj TextBox na korisničkom obrascu.
Korak 6: Pritisnite F4 da biste vidjeli svojstva UserForm (ili to možete učiniti desnim klikom na umetnut UserForm). Ova svojstva omogućuju vam da napravite neke potrebne promjene poput promjene imena UserForm kako biste mu mogli lako pristupiti.
Neke druge osnovne promjene koje možete napraviti sa oknom svojstava UserForm-a su poput promjene slova, izmjene veličine itd.
Korak 7: Unesite tekst kao " Dobrodošli u VBA TextBox! ”U TextBoxu pod UserForm.
Na taj način možete stvoriti VBA TextBox.
Primjer br. 2 - Postavljanje vrijednosti na VBA TextBox
Pogledajmo kako možemo postaviti vrijednosti za TextBox. Ponekad je obavezno postaviti vrijednosti na drugi način, korisnik će unijeti sve što ih zanima.
1. korak: U VBE umetnite novi korisnički obrazac. Idite na izbornik Umetanje > kliknite na UserForm.
2. korak: Na UserForm Alati odaberite TextBox i povucite ga na UserForm.
Korak 3: Umetnite CommandButton pod UserForm na isti način na koji ste dodali TextBox.
Korak 4: Promijenite naslov naredbenog gumba u „ Pošalji “ u svojstvima. Možete se kretati do svojstava naredbenog gumba desnim klikom na naredbeni gumb> Kliknite Svojstva .
Korak 5: Dvaput kliknite gumb za prijavu ili desnom tipkom miša kliknite i odaberite View Code .
Korak 6: U kôd umetnite redak novog koda u podprocedu kao dolje.
Kodirati:
Private Sub CommandButton1_Click () TextBox1.Value = "Moje ime je Lalit!" Kraj Sub
Ovaj istaknuti kôd omogućava vam da TextBoxu dodijelite vrijednost s desne strane koja je zatvorena u dvostrukim navodnicima. Možete koristiti i svojstvo TextBox.Text umjesto TextBox.Values za podešavanje vrijednosti za TextBox.
Korak 7: Pritisnite tipku F5 ili Pokreni pod VBE da biste pokrenuli ovaj kod, vidjet ćete UserForm s praznim TextBoxom. Čim pritisnete gumb za slanje, u njemu će se pojaviti tekst dodijeljen TextBoxu.
Primjer # 3 - Ograniči unos TextBox-a na prihvaćanje samo numeričkih vrijednosti
Slijedite dolje navedene korake:
Korak 1: Ubacite novu korisničku formu u svoj VBA i dodajte TextBox u nju.
Korak 2: Promijenite naziv TextBoxa u odjeljku Svojstva u " My_Age ".
Korak 3: Dvaput kliknite TextBox ili desnom tipkom miša kliknite i odaberite View Code .
Početni podpostupak moći ćete vidjeti na sljedeći način:
Kodirati:
Private Sub My_Age_Change () Kraj Sub
Korak 4: Sada pokušajte dodati If ako uvjet počinje s If Not.
Kodirati:
Private Sub My_Age_Change () Ako se ne završi Sub
Korak 5: Zatražite od prevoditelja da provjeri je li vrijednost TextBox-a "My_Age" numerička ili ne upotrebljava IsNumeric Keyword ispred ako nije uvjet.
Kodirati:
Private Sub My_Age_Change () Ako nije IsNumeric (My_Age.Value) End Sub
Korak 6: Kao što svaki uvjet IF traži, dodajte ključnu riječ zatim.
Kodirati:
Private Sub My_Age_Change () Ako nije IsNumeric (My_Age.Value), tada završi sub
U ovom dijelu koda, od prevoditelja tražite da provjeri je li vrijednost koju je korisnik unijeo pod TextBox numerička ili ne. Ako nije numerički, što onda učiniti? Slijedite sljedeći korak.
Korak 7: Pomoću MsgBox dodajte komentar poput "Izvinite! Dozvoljeni su samo brojevi. "Ako se vrijednost prikazuje u TextBoxu, nije numerička.
Kodirati:
Private Sub My_Age_Change () Ako nije IsNumeric (My_Age.Value), onda MsgBox "Izvini! Dozvoljeni su samo brojevi." Kraj Sub
Korak 8: Zatvorite ovu izjavu IF pomoću ključne riječi Kraj IF.
Kodirati:
Private Sub My_Age_Change () Ako nije IsNumeric (My_Age.Value), onda MsgBox "Izvini! Dozvoljeni su samo brojevi." Kraj Ako Kraj Sub
Korak 9: Sada pokrenite ovaj kôd pritiskom na tipku F5 s tipkovnice ili tipkom Pokreni iz VBE i pogledajte izlaz. Dobićete TextBox kao što je prikazano u nastavku:
Sada pokušavam unijeti vrijednost Integer-a i vidim da li mi zapravo dopušta da unesem istu ili ne.
Bingo, omogućava mi pohraniti cijelu vrijednost.
Pokušajmo u ovaj tekstni okvir dodati malo float-a (Vrijednost s decimalnim brojevima) i vidjeti da li nam omogućuje unos istog.
Provjerimo da li nam ovaj tekstni okvir omogućuje da ispod njega pohranimo neke negativne vrijednosti ili ne. Ja ću upisati neki negativni broj i provjeriti.
Dobro! Dobro!! Pa !!!, puca poruka koja kaže da su dozvoljeni samo brojevi. Dogodilo se zato što je ovaj kôd napisan u početku s uvjetom IF, nema nikakvog zaobilaženja što učiniti ako broj nije pozitivan. Štoviše, dob ne može biti negativan. Pravo? Stoga dobivam poruku upozorenja kao što vidite gore. Međutim, ako u okviru s porukom kliknete U redu i pokušate unijeti broj, to će vam omogućiti. Ali neću preporučiti kršenje pravila tamo.
Na kraju, pokušajmo s tekstnim nizom u okviru i provjeriti dopušta li isti da se pohrani pod textbox ili ne.
Kao što sam s pravom očekivala, čim sam upisala prvo slovo, sustav me u tome spriječio bacanjem poruke. To je zato što smo u našem kodu spomenuli uvjet koji kaže da ako vrijednost nije numerička, molim bacite poruku korisniku da su dozvoljene samo numeričke vrijednosti.
Stvari koje treba zapamtiti
- VBA TextBox je posebna opcija pod UserForm. Koji je osmišljen da uzme ulaz od samog korisnika.
- Postoje dvije metode za postavljanje vrijednosti za TextBox: pomoću TextBox.Text i pomoću TextBox.Value.
- Ponekad je obavezno ograničiti korisnički unos kako bismo dobili pravu vrstu podataka.
Preporučeni članci
Ovo je vodič za VBA TextBox. Ovdje smo razgovarali o tome kako stvoriti TextBox u Excelu VBA zajedno s praktičnim primjerima i besplatnim excel predložakom. Možete i pregledati naše druge predložene članke -
- Kako se koristi VBA IsNumerička funkcija?
- Izrada kombinirane kutije u Excelu
- Umetnite CheckBox u Excel
- VBA UCASE funkcija u Excelu
- Kako zatvoriti korisnički obrazac u VBA?