VBA TextBox | Hvordan setter du inn og bruker TextBox i VBA Userform?

Excel VBA TextBox

Tekstboks er rett og slett som en rute som brukes til å få inndata fra en bruker, tekstbokser er en del av brukerskjemaer og i utviklerfanen i ethvert Excel-regneark. Hvis vi ønsker å lage tekstbokser i et brukerskjema, kan vi velge alternativet tekstboks fra brukerformularkontroller i VBA eller i regneark kan vi velge det fra designfanen.

VBA TextBox er en av kontrollene i de mange kontrollene i brukerskjemaet. Ved å vise tekstboksen på brukerskjemaet kan vi be dem om å legge inn dataene i tekstboksen, og data som er skrevet inn av brukeren kan lagres i regnearket med enkle koder.

Brukerskjemaer er veldig attraktive i VBA-koding. Det hjelper oss utrolig spesielt når vi trenger å få innspill fra brukerne. Med brukerskjemaer har vi mange kontroller, og for å få inngangsverdien fra brukerne er "Tekstboks" det ideelle alternativet i et brukerskjema. Ved å sette en tekstboks på brukerskjemaet, kan vi faktisk fortelle brukeren å oppgi ønsket verdi i tekstboksen vi viser. Hvis du ikke aner om VBA-tekstbokser, tar denne artikkelen en omvisning på VBA-tekstbokser.

Hvordan setter du inn TextBox i VBA UserForm?

Du kan laste ned denne VBA Text Box Template her - VBA Text Box Template

For å sette inn en tekstboks først, må vi sette inn brukerskjema. For å sette inn brukerskjema, gå til Sett inn> Brukerskjema.

Så snart du klikker på User Form, vil vi User Form akkurat som en annen modul.

Klikk på brukerskjema for å se kontrollene til brukerskjemaet.

Fra denne kontrollverktøyboksen velger du “TextBox” og drar på brukerskjemaet.

Med dette kan vi se mange egenskaper knyttet til denne tekstboksen.

Tekstboksegenskaper

Trykk på F4-tasten for å se egenskapene til tekstboksen.

Som vi kan se har tekstboksen Navn, farge, Kant som dette mange. Gi nå et egennavn slik at vi enkelt kan referere til denne tekstboksen mens vi koder.

Eksempel på bruk av TextBox i brukerform

Vi vil gjennomføre et av prosjektene med VBA-tekst. Vi lager et skjema for datainnføring for å lagre detaljene til de ansatte.

Trinn 1: Tegn etikett på brukerskjemaet.

Trinn 2: Endre standardteksten på etiketten til “Employee Name”.

Trinn 3: Tegn en tekstboks foran etiketten.

Trinn 4: Gi et eget navn til tekstboksen som "EmpNameTextBox".

Trinn 5: Tegn nå en etikett til under den første etiketten, og skriv inn teksten som "Ansatt-ID".

Trinn 6: Tegn en tekstboks foran den andre etiketten og gi den navnet “EmpIDTextBox”.

Trinn 7: Tegn en etikett til og skriv inn teksten som "Lønn".

Trinn 8: Tegn en tekstboks til foran "Lønn" -etiketten og gi den navnet "SalaryTextBox".

Trinn 9: Sett nå inn "Kommando-knapp" fra verktøykassen.

Trinn 10: Endre teksten til kommandoknappen som "Send".

Ok, vi er ferdige med brukerskjemaets designdel. Nå må vi skrive koden for å lagre dataene som er angitt i dette brukerskjemaet. Fra nå av kjør brukerskjemaet ved å trykke på F5-tasten, bør vi se et brukerskjema som dette.

Trinn 11: Endre bildeteksten til brukerskjemaet i vinduet Egenskaper.

Trinn 12: Dobbeltklikk nå på Send kommando-knappen. Så snart du dobbeltklikker, vil du se denne automatiske underprosedyren som nedenfor.

Dette er når du klikker på Send-knappen hva som skal skje. Vi må nevne oppgavene i VBA-koden. I dette prosjektet er vårt mål å lagre dataene som er lagt inn i tekstboksen så snart vi klikker på Send-knappen.

For dette oppretter du først en mal som dette i regnearket med navnet “Ansattes ark”.

Trinn 13: Kom tilbake til den visuelle grunnleggende redaktøren. Inne i knappeklikk underrutinen i VBA, bestem først først den sist brukte raden ved å bruke koden nedenfor.

Kode:

 Privat underkommandoButton1_Click () Dim LR så lenge LR = Arbeidsark ("Medarbeiderark"). Celle (Rader.Count, 1) .End (xlUp) .Row + 1 End Sub 

Trinn 14: Første ting er i den første kolonnen vi lagrer ansattes navn. Så for dette må vi få tilgang til tekstboksen som heter "EmpNameTextBox".

Kode:

 Privat underkommandoButton1_Click () Dim LR så lenge LR = regneark ("Medarbeiderark"). Celle (Rader.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Slutt Sub 

Trinn 15: I den andre kolonnen må vi lagre medarbeider-ID. Så dette oppnås ved å gå til tekstboksen "EmpIDTextBox".

Kode:

 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.