Excel VBA TextBox
Tekstboks er rett og slett som en rute som brukes til å få input fra en bruker, tekstbokser er en del av brukerskjemaer og i utviklerfanen i et hvilket som helst Excel-regneark. Hvis vi ønsker å lage tekstbokser i et brukerskjema, kan vi velge alternativet tekstboks fra brukerskjemakontroller 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 en brukerform. Ved å sette en tekstboks på brukerskjemaet, kan vi faktisk fortelle brukeren å oppgi ønsket verdi i tekstboksen vi viser. Hvis du ikke har noen anelse om VBA-tekstbokser, vil denne artikkelen ta en tur til VBA-tekstbokser.
Hvordan setter du inn TextBox i VBA UserForm?
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 "Ansattes navn."
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 "Medarbeider-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 etiketten "Lønn" og gi den navnet "SalaryTextBox."
Trinn 9: Sett nå inn "Kommando-knapp" fra verktøykassen.
Trinn 10: Endre teksten på 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ører du brukerskjemaet ved å trykke på F5-tasten. Vi bør 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 må du først lage en mal som dette i regnearket med navnet "Ansattes ark."
Trinn 13: Kom nå tilbake til Visual Basic Editor. Inne i knappen, klikk først på underrutine i VBA for å bestemme 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 "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 å åpne 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.
Per nå er alle boksene tomme.
Fyll ut detaljene først.
Klikk nå på "Send" -knappen. Det vil lagre dataene på regnearket.
Slik kan du fortsette å legge inn dataene og trykke og sende inn-knappen. Dette er det enkle brukeropplysningsskjemaet med en tekstboks.
