Ovaj članak će pokazati kako se koristi tekstualni okvir u Excelu VBA.
VBA ima mogućnost stvaranja obrazaca s kojima korisnik može komunicirati, poput obrazaca za fakture ili podataka za kontakt. Okviri za tekst kontrole su koje se mogu koristiti unutar ovih obrazaca ili se okviri za tekst mogu stvoriti izravno u samom Excelu.
Stvaranje okvira za tekst na VBA obrascima
Za umetanje tekstualnog okvira u VBA obrazac, prvo moramo stvoriti obrazac. To se radi u VBE Editoru.
Prvo otvorite VBE Editor u Excelu.
Da biste umetnuli novi korisnički obrazac u svoj kôd, odaberite Korisnički obrazac iz izbornika Umetanje.
Novi korisnički obrazac pojavit će se u Istraživač projekta i bit će prikazano u prozoru koda s desne strane.
Obrazac možete preimenovati pomoću Svojstva kutija. Ovo bi se trebalo pojaviti ispod vašeg Istraživač projekta.
Ako je vidljivo, pritisnite F4 ili kliknite Pogled, Prozor svojstava.
Kliknite u Ime svojstvo i preimenujte svoj obrazac.
Sada možemo početi popunjavati obrazac kontrolama - kontrola okvira s tekstom najpopularnija je kontrola uz kontrolu oznaka.
Da bismo popunili obrazac kontrolama, moramo uključiti Toolbox.
U Jelovnik, Odaberi Pogled> Okvir s alatima.
Da biste stvorili okvir za tekst na obrascu, odaberite kontrolu okvira za tekst u okviru s alatima.
Povucite oblik okvira mišem na obrazac, držeći lijevu tipku pritisnutom, a zatim otpustite tipku miša.
Budući da je ovo prvi okvir za tekst koji stvaramo, nazvat će se TextBox1. Kao i kod obrasca, možete koristiti prozor Svojstva za preimenovanje tekstualnog okvira.
Možda ćete morati stvoriti i oznaku za tekstni okvir na obrascu. To se radi pomoću kontrole oznaka. Povučete obrazac na isti način kao i tekstni okvir, a zatim možete unijeti potrebni tekst unutar kontrole naljepnice, npr.: Ime kao što je prikazano u nastavku.
Da bismo koristili obrazac unutar VBA koda, u obrazac bismo trebali dodati naredbeni gumb. To se postiže odabirom kontrole naredbenog gumba u okviru s alatima i povlačenjem gumba na obrazac.
Zatim možete nastaviti stvarati obrazac pomoću tekstualnih okvira, oznaka i naredbenih gumba, preimenujući ih prema potrebi.
Pisanje koda iza obrazaca
Nakon što smo stvorili obrazac, moramo napisati VBA kôd da bismo umetnuli podatke u naš obrazac na Excel radni list. Taj se kod naziva CBF (Kôd iza obrazaca).
U VBE-u dvaput kliknite na naredbeni gumb da biste otišli do koda iza gumba.
Stvorit će se potprogram za događaj klika na gumb. U ovu rutinu možemo upisati naš VBA kôd. Na primjer:
| 123456 | Privatna pod cmdOK_Click ()Raspon ("A1") = Me.txtFirstNameRaspon ("A2") = Prezime Me.txtRaspon ("A3") = Me.txtCellPhoneIskrcaj MeKraj podm |
Ova rutina stavit će detalje upisane u tekstualne okvire u Excel, a zatim zatvoriti obrazac.
Stvaranje okvira za tekst na radnom listu programa Excel
Također je moguće stvoriti tekstualne okvire unutar Excel proračunske tablice. Da biste to učinili, morate uključiti svoju vrpcu za programere.
Napomena: Ako ne vidite vrpcu za razvojne programere, morat ćete je omogućiti.
Na vrpci odaberite Developer> Insert> ActiveX Controls> TextBox.
Kliknite i povucite na radnom listu programa Excel da biste nacrtali okvir za tekst na radnom listu na željenom mjestu. Otpustite tipku miša da biste dovršili crtanje tekstualnog okvira.
Okvir za tekst bit će u načinu dizajna. Dok smo u ovom načinu, možemo veličinu okvira i odabrati Svojstva okvira za tekst.
Klikni na Svojstva gumb za prikaz prozora svojstava za tekstualni okvir. U ovom prozoru možemo promijeniti različita svojstva okvira za tekst, kao što su naziv okvira, boja teksta, pozadina ili obrub, stil obruba i font koji se koristi za tekst u tekstualnom okviru, na primjer.
Da bismo tekstni okvir koristili izravno u Excelu kao što smo ga koristili u gore navedenom VBA obrascu, potreban nam je način da podatke upisane u tekstualni okvir vratimo na Excel tablicu. To se može učiniti dodavanjem naredbenog gumba ActiveX na radni list i korištenjem click_event ovog naredbenog gumba za vraćanje podataka u tekstualnom okviru na Excel tablicu.
Na vrpci odaberite Developer> Insert> ActiveX Controls> Command Gumb za dodavanje naredbenog gumba na Excel tablicu. Uključite prozor Svojstva i promijenite naziv gumba, naslov gumba i ubrzivač gumba kao što je prikazano na donjoj slici.
Dvaput kliknite gumb za odlazak na VBA klik događaja gumba i upišite sljedeći kôd:
| 123 | Privatna pod cmdOK_Click ()Raspon ("A1") = Me.txtFirstNameKraj podm |
Vratite se na radni list programa Excel, provjerite je li način rada za dizajn isključen, a zatim upišite stvoreni tekstualni okvir.
Pritisnite gumb naredbe za vraćanje teksta u Excel.
