VBA TextBox | Kako vstaviti in uporabiti TextBox v uporabniški obliki VBA?

Excel VBA TextBox

Besedilno polje je preprosto kot polje, ki se uporablja za vnos uporabnika, besedilna polja so del uporabniških obrazcev in na zavihku za razvijalce na katerem koli delovnem listu excela. Če želimo narediti besedilna polja v uporabniški obliki, lahko izberemo možnost iz kontrolnikov uporabniškega obrazca v VBA ali na delovnem listu ga lahko izberemo na zavihku oblikovanja.

VBA TextBox je eden od kontrolnikov številnih kontrol uporabniškega obrazca. S prikazom besedilnega polja na uporabniškem obrazcu jih lahko prosimo, da vnesejo podatke v besedilno polje in podatke, ki jih vnese uporabnik, lahko shranite na delovni list s preprostimi kodami.

Uporabniški obrazci so zelo privlačni pri kodiranju VBA. Neizmerno nam pomaga, zlasti kadar moramo od uporabnikov pridobiti prispevek. Pri uporabniških obrazcih imamo veliko kontrolnikov in če želimo uporabniško vhodno vrednost pridobiti, je polje z besedilom idealna možnost v uporabniškem obrazcu. Če v uporabniški obrazec vstavimo polje z besedilom, lahko dejansko uporabniku naročimo, da v polje za besedilo, ki ga prikazujemo, vnese zahtevano vrednost. Če o poljih z besedilom VBA nimate pojma, bo ta članek ogledal polji z besedilom VBA.

Kako vstaviti TextBox v uporabniški obrazec VBA?

To predlogo besedilnega polja VBA lahko prenesete tukaj - Predloga besedilnega polja VBA

Da bi najprej vstavili polje z besedilom, moramo vstaviti uporabniški obrazec. Če želite vstaviti uporabniški obrazec, pojdite na Vstavi> Uporabniški obrazec.

Takoj ko kliknete uporabniški obrazec, bomo uporabniški obrazec oblikovali tako kot drug modul.

Kliknite uporabniški obrazec, da si ogledate nadzor uporabniškega obrazca.

V tej orodjarni Controls izberite »TextBox« in povlecite na uporabniški obrazec.

S tem lahko vidimo številne lastnosti, povezane s tem besedilnim poljem.

Lastnosti TextBox-a

Pritisnite tipko F4, da si ogledate lastnosti polja z besedilom.

Kot lahko vidimo, ima polje z besedilom Ime, barva in obroba, kot je to veliko. Zdaj navedite lastno ime, da se bomo med kodiranjem lahko sklicevali na to besedilno polje.

Primer uporabe TextBox v Userform

Izvedli bomo enega od projektov z besedilom VBA. Ustvarili bomo uporabniški obrazec za vnos podatkov, v katerem bomo shranili podatke o zaposlenih.

1. korak: Na uporabniškem obrazcu narišite oznako.

2. korak: Spremenite privzeto besedilo nalepke v "Ime zaposlenega".

3. korak: Pred nalepko narišite besedilno polje.

4. korak: V besedilno polje vnesite pravilno ime kot »EmpNameTextBox«.

5. korak: Zdaj narišite še eno nalepko pod prvo nalepko in vnesite besedilo kot »ID zaposlenega«.

6. korak: Pred drugo nalepko narišite še eno besedilno polje in ga poimenujte kot »EmpIDTextBox«.

7. korak: Narišite še eno nalepko in vnesite besedilo kot »Plača«.

Korak 8: Pred nalepko »Plača« narišite še eno besedilno polje in ga poimenujte kot »SalaryTextBox«.

9. korak: Zdaj v orodno polje vstavite »Command Button«.

10. korak: Besedilo ukaznega gumba spremenite v »Pošlji«.

Ok, končali smo z delom za oblikovanje uporabniškega obrazca. Zdaj moramo napisati kodo za shranjevanje podatkov, vnesenih v ta uporabniški obrazec. Zdaj zaženite uporabniški obrazec s pritiskom na tipko F5 in videli bi takšen uporabniški obrazec.

11. korak: Spremenite napis uporabniškega obrazca v oknu Lastnosti.

Korak 12: Zdaj dvokliknite gumb za oddajo ukaza in takoj, ko dvokliknete, boste videli ta postopek samodejnega poddela, kot je prikazano spodaj.

Takrat se zgodi, da kliknete gumb Pošlji. Omeniti moramo naloge v kodi VBA. V tem projektu je naš cilj shraniti podatke, vnesene v besedilno polje, takoj ko kliknemo gumb za oddajo.

Za to najprej ustvarite takšno predlogo na delovnem listu z imenom »Zaposleni list«.

Korak 13: Zdaj se vrnite v urejevalnik visual basic. Znotraj gumba kliknite podprogram v VBA z uporabo spodnje kode najprej določite zadnjo uporabljeno vrstico.

Koda:

 Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheets ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub 

14. korak: Prva stvar je, da bomo v prvi stolpec shranili ime zaposlenega. Torej, za to moramo dostopati do besedilnega polja z imenom "EmpNameTextBox".

Koda:

 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 Končaj pod 

Korak 15: V drugem stolpcu moramo shraniti ID zaposlenega. To bomo torej dobili z dostopom do besedilnega polja z imenom "EmpIDTextBox".

Koda:

 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.