Ta članek bo pokazal, kako uporabljati polje z besedilom v Excelu VBA.
VBA lahko ustvari obrazce, s katerimi lahko uporabnik komunicira, na primer obrazce za račune ali podatke za stik. Polja z besedilom so kontrolniki, ki jih je mogoče uporabiti v teh obrazcih, ali polja z besedilom lahko ustvarite neposredno v samem Excelu.
Ustvarjanje besedilnih oken na obrazcih VBA
Če želite vstaviti polje z besedilom v obrazec VBA, moramo najprej ustvariti obrazec. To se naredi v urejevalniku VBE.
Najprej odprite urejevalnik VBE v Excelu.
Če želite v kodo vstaviti nov uporabniški obrazec, izberite Uporabniški obrazec možnost iz menija Vstavi.
Nov obrazec za uporabnika se bo pojavil v Raziskovalec projektov in bo prikazano v oknu za kodo na desni.
Obrazec lahko preimenujete z Lastnosti škatla. To bi se moralo prikazati pod vašim Raziskovalec projektov.
Če je vidno, pritisnite F4 ali kliknite Pogled, Okno lastnosti.
Kliknite v Ime lastnino in preimenujte obrazec.
Zdaj lahko začnemo polniti obrazec s kontrolniki - kontrolnik polja z besedilom je najbolj priljubljen nadzor poleg kontrolnika oznak.
Če želimo obrazec zapolniti s kontrolniki, moramo vklopiti Orodjarno.
V Meni, izberite Pogled> Orodjarna.
Če želite na obrazcu ustvariti polje z besedilom, v orodjarni izberite kontrolnik polje z besedilom.
Povlecite obliko polja z obrazcem z miško, držite levi gumb navzdol in nato spustite gumb miške.
Ker je to prvo polje z besedilom, ki ga ustvarjamo, se bo imenovalo TextBox1. Tako kot pri obrazcu lahko uporabite okno Lastnosti za preimenovanje besedilnega polja.
Morda boste morali na obrazcu ustvariti tudi oznako za besedilno polje. To se naredi z nadzorom oznak. Obrazec povlečete na enak način kot za polje z besedilom, nato pa lahko vnesete zahtevano besedilo v nadzor oznake, na primer: Ime, kot je prikazano spodaj.
Za uporabo obrazca v kodi VBA bi morali obrazcu dodati ukazni gumb. To naredite tako, da v orodjarni izberete kontrolnik Gumb za ukaz in povlečete gumb na obrazec.
Nato lahko še naprej ustvarjate obrazec z besedilnimi polji, oznakami in ukaznimi gumbi ter jih po potrebi preimenujete.
Pisanje kode za obrazci
Ko smo ustvarili obrazec, moramo napisati kodo VBA, da vnesemo podatke v obrazec na delovni list Excel. Ta koda se imenuje CBF (Koda za obrazce).
V VBE dvokliknite ukazni gumb, da odprete kodo za gumbom.
Ustvarila se bo podprogram za dogodek klika za gumb. V to rutino lahko vnesemo kodo VBA. Na primer:
| 123456 | Zasebna podrejena cmdOK_Click ()Obseg ("A1") = Me.txtFirstNameObseg ("A2") = Me.txtSurnameObseg ("A3") = Me.txtCellPhoneRaztovori meEnd Sub |
Ta rutina bo v Excel vnesla podrobnosti, vnesene v besedilna polja, in nato zaprla obrazec.
Ustvarjanje besedilnih polj na Excelovem delovnem listu
V Excelovi preglednici je mogoče ustvariti tudi besedilna polja. Če želite to narediti, morate vklopiti trak za razvijalce.
Opomba: Če ne vidite traku za razvijalce, ga morate omogočiti.
Na traku izberite Razvijalec> Vstavi> Kontrolniki ActiveX> TextBox.
Kliknite in povlecite na Excelovem delovnem listu, da narišete besedilno polje na delovnem listu na želenem mestu. Spustite gumb miške, da dokončate risanje besedilnega polja.
Besedilno polje bo v načinu oblikovanja. V tem načinu lahko velikost polja in izberete lastnosti besedilnega polja.
Kliknite na Lastnosti gumb za prikaz okna lastnosti za besedilno polje. V tem oknu lahko spremenimo različne lastnosti besedilnega polja, na primer ime polja, barvo besedila, ozadje ali obrobo, slog obrobe in pisavo, uporabljeno za besedilo v besedilnem polju, na primer.
Če želite besedilno polje uporabiti neposredno v Excelu, kot smo ga uporabili v zgornjem obrazcu VBA, potrebujemo način, da podatke, vnesene v besedilno polje, vrnemo na Excelov list. To lahko storite tako, da na delovni list dodate ukazni gumb ActiveX in z gumbom click_event tega ukaznega gumba vrnete podatke v besedilnem polju na Excelov list.
Na traku izberite Razvijalec> Vstavi> Kontrolniki ActiveX> Ukazni gumb če želite na svoj Excelov list dodati ukazni gumb. Vklopite okno Lastnosti in spremenite ime gumba, napis gumba in pospeševalnik gumba, kot je prikazano na spodnji sliki.
Dvokliknite gumb, da se pomaknete na dogodek klika VBA gumba in vnesete naslednjo kodo:
| 123 | Zasebna podrejena cmdOK_Click ()Obseg ("A1") = Me.txtFirstNameEnd Sub |
Preklopite nazaj na Excelov delovni list, preverite, ali je oblikovalski način izklopljen, in nato vnesite ustvarjeno besedilno polje.
Če želite vrniti besedilo v Excel, kliknite ukazni gumb.
