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 îl 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 atunci când trebuie să primim informații de la utilizatori. Cu formularele de utilizator, avem multe controale și pentru a obține valoarea de intrare de la utilizatori „Caseta 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, acest articol va face un tur al casetelor de text VBA.
Cum se introduce TextBox în VBA UserForm?
Puteți descărca acest șablon de casetă de text VBA aici - Șablon de casetă de text VBAPentru 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 forma 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 Controls, 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 multe. 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 trageți Etichetă.
Pasul 2: Schimbați textul implicit al etichetei la „Numele angajatului”.
Pasul 3: În fața etichetei desenează o casetă 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 mai desenează încă o casetă de text și denumește-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. Începând 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ă, precum 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 creați mai întâ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 pe subrutină în VBA, determinați mai întâi ultimul rând folosit 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" & LR).Value = EmpIDTextBox.Value End Sub 
Step 16: At last we need to store the salary part, for this, we need to access to text box named “SalaryTextBox”.
Code:
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, we are done with the coding part as well. Now run the code using the F5 key we should see a User Form like the below.
As of now, all the boxes are empty.
Fill the details first.
Now click on the “Submit” button, it will store the data to the worksheet.
Like this, you can keep entering the data and hit and submit button. This is the simple data entry user form with a text box.