Excel VBA TextBox
Textbox 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 Excelovem delovnem listu. Če želimo narediti besedilna polja v uporabniški obliki, lahko izberemo možnost textbox 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, podatke, ki jih vnese uporabnik, pa lahko s preprostimi kodami shranite na delovni list.
Uporabniški obrazci so zelo privlačni pri kodiranju VBA. Neizmerno nam pomaga, še posebej, če moramo od uporabnikov pridobiti prispevek. Pri uporabniških obrazcih imamo veliko kontrolnikov in če želimo uporabniško vhodno vrednost dobiti, je v besedilnem obrazcu idealna možnost »Okvir z besedilom«. Č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, si bomo v tem članku ogledali polja z besedilom VBA.
Kako vstaviti TextBox v uporabniški obrazec 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 uporabili 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 polje z besedilom.
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«.
8. korak: 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. Od zdaj zaženite uporabniški obrazec s pritiskom na tipko F5. Videli bi uporabniški obrazec, kot je ta.
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.
To se zgodi, ko 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 na delovnem listu z imenom »Zaposleni list« ustvarite takšno predlogo.
Korak 13: Zdaj se vrnite v urejevalnik visual basic. Znotraj gumba najprej kliknite podprogram v VBA, da z uporabo spodnje kode 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. Za to moramo torej 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
Korak 16: Končno moramo shraniti del plače. Za to moramo dostopati do besedilnega polja z imenom "SalaryTextBox."
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 Range ("C" & LR) .Value = SalaryTextBox.Value End Sub
Ok, tudi s kodirnim delom smo končali. Zdaj zaženite kodo s tipko F5. Videli bi uporabniški obrazec, kot je spodaj.
Od zdaj so vsa polja prazna.
Najprej izpolnite podrobnosti.
Zdaj kliknite gumb »Pošlji«. Podatke bo shranil na delovni list.
Tako lahko še naprej vnašate podatke in pritisnete in oddate gumb. To je preprost uporabniški obrazec za vnos podatkov z besedilnim poljem.
