Ce este VBA TextBox în Excel?
VBA TextBox este unul dintre numeroasele controale de la controalele UserForm din Excel. VBA TextBox poate fi util atunci când doriți să aveți informații de la utilizator, precum numele lor, vârsta, adresa, salariul, etc. Folosind controlul TextBox, puteți permite utilizatorilor să introduceți acest tip de informații și să economisiți mult timp, precum și erori de dactilografiere . VBA TextBox poate consta din date statice sau dinamice.
UserForm în sine este un instrument foarte util, care are diferite opțiuni de control, cum ar fi TextBox, MsgBox și InputBox, etc., care oferă un mod mai practic de a obține date de la utilizator, astfel încât să puteți prelucra funcțional aceste date și să aflați câteva informații utile din acestea. .
În acest articol, veți obține experiență practică pe Excel VBA TextBox.
Exemple de Excel VBA TextBox
Mai jos sunt diferite exemple de VBA TextBox în Excel.
Puteți descărca acest șablon VBA TextBox Excel aici - șablonul VBA TextBox ExcelExemplul # 1 - Cum se inserează TextBox în VBA?
Mai jos sunt pașii pentru a introduce TextBox în Excel VBA.
Pasul 1: Deschideți un fișier excel și apăsați pe Alt + F11 pentru a naviga în panoul VBA.
Pasul 2: După cum am discutat deja, TextBox este o opțiune disponibilă în UserForm. Deci trebuie să introducem UserForm în VBE. Accesați Meniul Inserare > Faceți clic pe UserForm .
Pasul 3: De îndată ce introduceți un UserForm în VBA, puteți vedea o opțiune Cutie de instrumente asociată acesteia și aveți diferite opțiuni asociate cu UserForm.
Pasul 4: În această casetă de instrumente selectați TextBox .
Pasul 5: trageți acest TextBox pe formularul de utilizator.
Pasul 6: Apăsați F4 pentru a vedea proprietățile UserForm (în mod alternativ, puteți face acest lucru făcând clic dreapta pe UserForm inserat). Aceste proprietăți vă permit să faceți unele modificări necesare, cum ar fi schimbarea numelui UserForm pentru a putea accesa cu ușurință.
Unele alte modificări de bază pe care le puteți face cu panoul de proprietăți al UserForm sunt precum schimbarea fontului, modificarea dimensiunii etc.
Pasul 7: Introduceți textul ca „ Bine ați venit la VBA TextBox! ”În TextBox sub UserForm.
Astfel puteți crea o casetă text VBA.
Exemplul # 2 - Setarea valorii la VBA TextBox
Să vedem cum putem seta valorile pentru TextBox. Uneori este obligatoriu să setați valorile altfel, utilizatorul va introduce orice este de interes.
Pasul 1: Introduceți o nouă UserForm în VBE. Accesați meniul Inserare > faceți clic pe UserForm.
Pasul 2: Din Instrumentele UserForm, selectați TextBox și trageți-l în UserForm.
Pasul 3: Introduceți un buton de comandă sub UserForm în același mod în care ați adăugat TextBox.
Pasul 4: Modificați titlul butonului de comandă în „ Trimite ” sub proprietăți. Puteți naviga la proprietățile butonului de comandă prin clic dreapta pe butonul comandă> clic pe proprietăți .
Pasul 5: Faceți dublu clic pe butonul de trimitere sau faceți clic dreapta pe el și selectați View Code .
Pasul 6: În cod, introduceți o linie de cod nou în cadrul subprocedurii ca mai jos.
Cod:
Private Sub CommandButton1_Click () TextBox1.Value = "Numele meu este Lalit!" Sub final
Acest cod evidențiat vă permite să atribuiți la TextBox valoarea din dreapta închisă între ghilimele duble. Puteți utiliza, de asemenea, proprietatea TextBox.Text în loc de TextBox.Values pentru a seta valoarea pentru TextBox.
Pasul 7: Apăsați butonul F5 sau Run sub VBE pentru a rula acest cod, veți vedea o UserForm cu TextBox goală. Imediat ce apăsați pe butonul de trimitere, textul alocat TextBox va apărea acolo.
Exemplul # 3 - Restrângeți introducerea TextBox pentru a accepta doar valori numerice
Urmați pașii de mai jos:
Pasul 1: Introduceți un nou UserForm în VBA și adăugați TextBox în el.
Pasul 2: Modificați numele TextBox în secțiunea Proprietăți în „ My_Age ”.
Pasul 3: Faceți dublu clic pe TextBox sau faceți clic dreapta pe el și selectați View Code .
Veți putea vedea subprocedura inițială după cum urmează:
Cod:
Sub Privat My_Age_Change () Sub final
Pasul 4: Acum, încercați să adăugați o condiție If care începe cu If Not.
Cod:
Sub Privat My_Age_Change () Dacă nu se încheie Sub
Pasul 5: Cereți compilatorului să verifice dacă valoarea TextBox „My_Age” este numerică sau nu folosind cuvântul cheie IsNumeric în fața condiției If Not.
Cod:
Subunitate privată My_Age_Change () Dacă nu este Numeric (My_Age.Value) Sub End
Pasul 6: După cum cere fiecare condiție IF, adăugați un cuvânt cheie Apoi .
Cod:
Sub Privat My_Age_Change () Dacă nu este Numeric (My_Age.Value) Atunci End Sub
În această bucată de cod, solicitați compilatorului să verifice dacă valoarea introdusă de utilizator sub TextBox este numerică sau nu. Dacă nu este numeric, atunci ce să faci? Urmați următorul pas.
Pasul 7: Folosind MsgBox, adăugați un comentariu de genul „Ne pare rău! Numai Numerele sunt permise. ”Pentru a fi afișat dacă, valoarea din TextBox nu este numerică.
Cod:
Sub Privat My_Age_Change () Dacă nu este Numeric (My_Age.Value) Atunci MsgBox "Ne pare rău! Sunt permise doar numere." Sub final
Pasul 8: Acum, închideți această declarație IF folosind cuvântul cheie End IF.
Cod:
Sub Privat My_Age_Change () Dacă nu este Numeric (My_Age.Value) Atunci MsgBox "Ne pare rău! Sunt permise doar numere." End If End Sub
Pasul 9: Acum, executați acest cod apăsând butonul F5 de la tastatură sau butonul Rulați de la VBE și vedeți ieșirea. Veți primi un TextBox așa cum se arată mai jos:
Acum, încerc să introduc o valoare integrală în ea și să văd dacă de fapt îmi permite să introduc aceeași sau nu.
Bingo, îmi permite să stochez valoarea integrală.
Acum, să încercăm să adăugăm câteva flote (valoare cu zecimale) la această casetă de text și să vedem dacă ne permite să introducem același lucru.
Să verificăm dacă această casetă de text ne permite să stocăm anumite valori negative sub ea sau nu. Voi introduce un număr negativ și voi verifica.
Bine! Bine!! Ei bine !!!, îmi transmite un mesaj care spune că sunt permise doar numere. S-a întâmplat deoarece acest cod scris inițial este cu condiția IF, nu are soluții de rezolvat ce trebuie să facă dacă numărul nu este pozitiv. Mai mult, vârsta nu poate fi negativă. Dreapta? Prin urmare, primesc un mesaj de avertizare așa cum puteți vedea mai sus. Cu toate acestea, dacă faceți clic pe OK în caseta de mesaje și încercați să introduceți numărul, vă va permite acest lucru. Dar nu voi recomanda încălcarea regulilor de acolo.
În cele din urmă, haideți să încercați unele șiruri de text în casetă și să vedeți dacă permite același lucru să fie stocat în caseta de text sau nu.
Așa cum se aștepta pe bună dreptate, de îndată ce am intrat în prima literă cu șiruri, sistemul m-a împiedicat să fac acest lucru aruncând un mesaj. Acest lucru se datorează faptului că am menționat o condiție în codul nostru care spune că dacă valoarea nu este numerică, vă rugăm să aruncați un mesaj către utilizator spunând că sunt permise doar valori numerice.
Lucruri de amintit
- VBA TextBox este o opțiune specială în UserForm. Ceea ce este conceput pentru a lua informații de la utilizator însuși.
- Există două metode pentru a seta valorile pentru un TextBox: folosind TextBox.Text și folosind TextBox.Value.
- Uneori este obligatoriu să restricționați introducerea utilizatorului, astfel încât să obținem tipul corect de date.
Articole recomandate
Acesta este un ghid pentru VBA TextBox. Aici vom discuta despre cum să creăm TextBox în Excel VBA împreună cu exemple practice și șablon excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -
- Cum se utilizează funcția VBA IsNumeric?
- Crearea casetei combinate în Excel
- Introduceți CheckBox în Excel
- VBA UCASE Funcție în Excel
- Cum să închideți UserForm în VBA?