See artikkel näitab, kuidas kasutada Excel VBA tekstikasti.
VBA -l on võimalus luua vorme, millega kasutaja saab suhelda, näiteks arve vorme või kontaktandmeid. Tekstiväljad on juhtelemendid, mida saab nendes vormides kasutada, või tekstiväljad saab luua otse Excelis.
Tekstikastide loomine VBA vormidel
Tekstikasti sisestamiseks VBA vormi peame esmalt vormi looma. Seda tehakse VBE redaktoris.
Esiteks avage Excelis VBE redaktor.
Uue kasutajavormi sisestamiseks oma koodi valige UserForm lisamise menüüst.
Kaustas kuvatakse uus kasutajavorm Projektiuurija ja kuvatakse parempoolses koodiaknas.
Saate vormi ümber nimetada, kasutades Omadused kast. See peaks ilmuma teie all Projektiuurija.
Kui see on nii nähtav, vajutage F4 või klõpsake Vaade, Atribuutide aken.
Klõpsake nupul Nimi atribuut ja nimetage oma vorm ümber.
Nüüd saame hakata vormi täitma juhtelementidega - tekstikasti juhtelement on koos siltide juhtelemendiga kõige populaarsem juhtelement.
Vormi täitmiseks juhtelementidega peame tööriistakasti sisse lülitama.
Aastal Menüü, valige Vaade> Tööriistakast.
Vormile tekstikasti loomiseks valige tööriistakastis tekstikasti juhtelement.
Lohistage vormil hiirega lahtrit, hoides vasakut nuppu all ja vabastage seejärel hiirenupp.
Kuna see on esimene tekstikast, mille loome, saab selle nimeks TextBox1. Nagu vormi puhul, saate ka tekstiakti ümbernimetamiseks kasutada atribuutide akent.
Võimalik, et peate looma ka vormi tekstiväljale sildi. Seda tehakse siltide juhtimisega. Lohistate vormi samal viisil kui tekstikasti puhul ja seejärel saate sildi juhtelementi sisestada vajaliku teksti, nt: eesnimi, nagu allpool näidatud.
VBA koodis oleva vormi kasutamiseks peaksime vormile lisama käsunupu. Selleks valige tööriistakastis juhtnupp Command Button ja lohistage nupp oma vormile.
Seejärel saate jätkata vormi loomist tekstikastide, siltide ja käsunuppude abil, nimetades need vastavalt ümber.
Koodide kirjutamine vormide taha
Kui oleme oma vormi loonud, peame kirjutama VBA -koodi, et sisestada meie vormi teave Exceli töölehele. Seda koodi nimetatakse CBF (Vormide taga olev kood).
Topeltklõpsake VBE-s käsunuppu, et minna nupu taga oleva koodi juurde.
Nupu klõpsamissündmuse jaoks luuakse alamrutiin. Sellesse rutiini saame sisestada oma VBA koodi. Näiteks:
123456 | Privaatne alam cmdOK_Click ()Vahemik ("A1") = Me.txtFirstNameVahemik ("A2") = Me.txtPerekonnanimiVahemik ("A3") = Me.txtCellPhoneLaadi mind mahaEnd Sub |
See rutiin paneb tekstiväljadesse sisestatud andmed Excelisse ja sulgeb seejärel vormi.
Tekstikastide loomine Exceli töölehel
Samuti on võimalik Exceli arvutustabelisse luua tekstikaste. Selleks peate oma arendaja lindi sisse lülitama.
Märkus. Kui te ei näe arendaja linti, peate selle lubama.
Valige lindil Arendaja> Lisa> ActiveX -juhtelemendid> TextBox.
Töölehe tekstikasti soovitud kohta joonistamiseks klõpsake ja lohistage oma Exceli töölehel. Tekstikasti joonistamise lõpuleviimiseks vabastage hiirenupp.
Tekstikast on kujundusrežiimis. Selles režiimis saame kasti suurust muuta ja valida tekstikasti atribuudid.
Klõpsake Omadused nuppu, et kuvada tekstivälja atribuutide aken. Selles aknas saame muuta tekstivälja erinevaid omadusi, näiteks kasti nime, teksti värvi, tausta või äärist, äärise stiili ja näiteks tekstikasti teksti jaoks kasutatavat fonti.
Tekstikasti otseseks kasutamiseks Excelis, nagu oleme seda kasutanud ülaltoodud VBA vormis, vajame võimalust tagastada tekstikasti sisestatud andmed Exceli lehele. Seda saab teha töölehele ActiveX -i käsunupu lisamisega ja selle käsunupu click_event abil, et tagastada tekstikasti teave Exceli lehele.
Valige lindil Arendaja> Lisa> ActiveX -juhtelemendid> Käsunupp Exceli lehele käsunupu lisamiseks. Lülitage omaduste aken sisse ja muutke nupu nime, nupu pealdist ja nupu kiirendit, nagu on näidatud alloleval pildil.
Topeltklõpsake nuppu, et minna nupu VBA klõpsamisüritusele ja tippige järgmine kood:
123 | Privaatne alam cmdOK_Click ()Vahemik ("A1") = Me.txtFirstNameEnd Sub |
Lülitage tagasi Exceli töölehele, veenduge, et kujundusrežiim oleks välja lülitatud, ja tippige loodud tekstikasti.
Teksti Excelisse naasmiseks klõpsake käsunuppu.