Excel VBA TextBox
Textbox este pur și simplu ca o casetă care este utilizată pentru a obține intrări de la un utilizator, casetele de text fac parte din formularele de utilizator și în fila dezvoltator din orice foaie de lucru Excel, dacă dorim să facem casete de text într-un formular de utilizator, putem selecta opțiunea de casetă text din comenzile de formular de utilizator în VBA sau în foaia de lucru o putem selecta din fila de proiectare.
VBA TextBox este unul dintre comenzile multor controale din formularul de utilizator. Afișând caseta de text pe formularul de utilizator, le putem cere să introducă datele în caseta de text, iar datele introduse de utilizator pot fi stocate în foaia de lucru cu coduri simple.
Formularele de utilizator sunt foarte atractive în codarea VBA. Ne ajută enorm, mai ales când trebuie să primim informații de la utilizatori. Cu formularele de utilizator, avem multe controale, iar pentru a obține valoarea de intrare de la utilizatori, „Casetă de text” este opțiunea ideală într-un formular de utilizator. Punând o casetă de text pe formularul de utilizator, putem spune utilizatorului să introducă valoarea necesară în caseta de text pe care o afișăm. Dacă nu aveți idee despre casetele de text VBA, atunci acest articol va face un tur al casetelor de text VBA.
Cum se introduce TextBox în VBA UserForm?
Pentru a introduce mai întâi o casetă de text, trebuie să inserăm un formular de utilizator. Pentru a insera formular de utilizator, accesați Inserare> Formular de utilizator.
De îndată ce faceți clic pe Formular de utilizator, vom face Formular de utilizator la fel ca un alt modul.
Faceți clic pe Formular de utilizator pentru a vedea comenzile Formularului de utilizator.
Din această casetă de instrumente Control, selectați „TextBox” și trageți pe formularul de utilizator.
Cu aceasta, putem vedea multe proprietăți asociate acestei casete de text.
Proprietăți TextBox
Apăsați tasta F4 pentru a vedea proprietățile casetei de text.
După cum putem vedea, caseta de text are nume, culoare, margine ca aceasta. Acum dați un nume adecvat, astfel încât să ne putem referi cu ușurință la această casetă de text în timp ce codăm.
Exemplu de utilizare TextBox în Userform
Vom desfășura unul dintre proiecte cu text VBA. Vom crea un formular de introducere a datelor pentru a stoca detaliile angajaților.
Pasul 1: În formularul de utilizator, desenați Etichetă.
Pasul 2: schimbați textul implicit al etichetei la „Numele angajatului”.
Pasul 3: în fața etichetei, desenați o casetă de text.
Pasul 4: dați un nume propriu casetei de text ca „EmpNameTextBox”.
Pasul 5: Acum trageți încă o etichetă sub prima etichetă și introduceți textul ca „ID angajat”.
Pasul 6: în fața celei de-a doua etichete, desenați încă o casetă de text și denumiți-o ca „EmpIDTextBox”.
Pasul 7: Desenați încă o etichetă și introduceți textul ca „Salariu”.
Pasul 8: Desenați încă o casetă de text în fața etichetei „Salariu” și denumiți-o „SalaryTextBox”.
Pasul 9: acum introduceți „Butonul de comandă” din ToolBox.
Pasul 10: schimbați textul butonului de comandă ca „Trimiteți”.
Ok, am terminat cu partea de proiectare a formularului de utilizator. Acum trebuie să scriem codul pentru a stoca datele introduse în acest formular de utilizator. De acum, rulați formularul de utilizator apăsând tasta F5. Ar trebui să vedem un formular de utilizator ca acesta.
Pasul 11: Modificați legenda formularului de utilizator din fereastra Proprietăți.
Pasul 12: Faceți dublu clic pe butonul Trimiteți comanda. De îndată ce faceți dublu clic, veți vedea această sub-procedură automată, ca cea de mai jos.
Atunci când faceți clic pe butonul Trimiteți, ce ar trebui să se întâmple. Trebuie să menționăm sarcinile în codul VBA. În acest proiect, scopul nostru este de a stoca datele introduse în caseta de text imediat ce facem clic pe butonul Trimitere.
Pentru aceasta, mai întâi, creați un șablon ca acesta în foaia de lucru numită „Foaia angajaților”.
Pasul 13: reveniți acum la editorul de bază vizual. În interiorul butonului, faceți clic mai întâi pe subrutină în VBA pentru a determina ultimul rând utilizat folosind codul de mai jos.
Cod:
Private Sub CommandButton1_Click () Dim LR As Long LR = Foi de lucru ("Foaia angajatului"). Celulă (Rows.Count, 1). End (xlUp) .Row + 1 End Sub
Pasul 14: Primul lucru este că în prima coloană vom stoca numele angajatului. Deci, pentru aceasta, trebuie să accesăm caseta de text numită „EmpNameTextBox”.
Cod:
Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Sfârșitul Sub
Pasul 15: În a doua coloană, trebuie să stocăm ID-ul angajatului. Deci, acest lucru va fi obținut accesând caseta de text numită „EmpIDTextBox”.
Cod:
Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Ramge ("B" și LR) .Value = EmpIDTextBox.Value End Sub
Pasul 16: În cele din urmă, trebuie să stocăm partea salarială. Pentru aceasta, trebuie să accesăm caseta de text numită „SalaryTextBox”.
Cod:
Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Ramge ("B" & LR) .Value = EmpIDTextBox.Value Range ("C" & LR) .Value = SalaryTextBox.Value End Sub
Ok, am terminat și cu partea de codare. Acum rulați codul folosind tasta F5. Ar trebui să vedem un formular de utilizator ca cel de mai jos.
De acum, toate cutiile sunt goale.
Completați mai întâi detaliile.
Acum faceți clic pe butonul „Trimiteți”. Va stoca datele pe foaia de lucru.
În acest fel, puteți continua să introduceți datele și să apăsați și să trimiteți butonul. Acesta este formularul simplu de introducere a datelor cu o casetă de text.
