VBA TextBox

Excel VBA TextBox

Casetă de text 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 formularului de utilizator în VBA sau în foaia de lucru o putem selecta din fila de proiectare.

Table of Contents

Toggle

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, 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 în 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.

Sunteți liber să utilizați această imagine pe site-ul dvs. web, șabloane etc., Vă rugăm să ne furnizați un link de atribuireCum să oferiți atribuire?Link către articol de către hyperlink
De exemplu:
Sursă: VBA TextBox (wallstreetmojo.com)

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: Acum faceți dublu clic pe butonul Trimiteți comanda. De îndată ce faceți dublu clic, veți vedea această procedură secundară 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, mai întâi, creați un șablon ca acesta în foaia de lucru numită „Foaia angajaților”.

Pasul 13: Acum reveniți 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 = Worksheets("Employee Sheet").cell(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

End 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

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.

Articole recomandate

Acesta a fost un ghid pentru VBA TextBox. Aici vom învăța cum să inserați și să utilizați controlul casetei de text în formă de utilizator prin excel VBA împreună cu exemple practice și un șablon descărcabil. Mai jos puteți găsi câteva articole utile Excel VBA –

• VBA Închideți UserForm
• Excel VBA ArrayList
• Introduceți Row folosind VBA
• Folosind Not Equal în VBA