Ovaj članak će pokazati kako se koriste kontrole u korisničkim obrascima u Excelu VBA.
VBA ima mogućnost stvaranja obrazaca s kojima korisnik može komunicirati, poput obrazaca za fakture ili podataka za kontakt. Obrazac može sadržavati različite kontrole obrazaca, poput tekstualnih okvira, kombiniranih okvira, okvira s popisima i naredbenih gumba. Ovaj članak će obuhvatiti najpopularnije kontrole koje se koriste na korisničkim obrascima, naime tekstualne okvire, oznake, kombinirane okvire, okvire s popisima, okvire za potvrdu i grupe opcija.
Kliknite ovdje da biste saznali više o ugrađenim korisničkim obrascima i stvaranju prilagođenih korisničkih obrazaca u Excelu.
Izrada korisničkog obrasca
Da bismo stvorili UserForm u Excelu VBA, prvo moramo otvoriti VBE Editor.
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 zajedno s kontrolom naljepnice i naredbenim gumbom.
Da bismo popunili obrazac kontrolama, moramo uključiti Toolbox.
U Jelovnik, Odaberi Pogled> Okvir s alatima.
Stvaranje okvira za tekst
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žemo nastaviti stvarati onoliko tekstualnih okvira u našem obrascu koliko nam je potrebno i imenovati ih prema potrebi pomoću svojstva Name u prozoru Svojstva.
Stvaranje kontrole oznaka
Kontrola oznaka govori nam što će se tekstualni okvir koristiti za držanje. 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.
Kao i kod okvira za tekst, nastavite stvarati onoliko koliko je potrebno u obrascu.
Stvaranje kontrole kombiniranog okvira
Kombinirani okvir (ili padajući okvir) omogućuje korisniku odabir s popisa vrijednosti. Da biste stvorili kombinirani okvir, kliknite na okvir s alatima na kontroli Combo Box, a zatim kliknite i povucite kombinirani okvir u svom obrascu.
Nazovite Combo Box na odgovarajući način.
Dodavanje vrijednosti u kombinirani okvir
Da bismo ga popunili vrijednostima, moramo ga kodirati u Inicijalizirati metoda objekta Korisnički obrazac.
Da biste došli do koda iza obrasca (CBF), dvaput kliknite obrazac ili kliknite gumb koda u Exploreru projekta da biste se prebacili na prikaz koda.
Na padajućem popisu s lijeve strane odaberite Korisnički obrazac, a zatim na padajućem popisu s desne strane odaberite Pokreni.
Upišite sljedeći kôd unutar Sub i End Sub da popunite padajući okvir:
| 1234 | Me.cboState.AddItem "Alabama"Me.cboState.AddItem "Aljaska"Me.cboState.AddItem "Arizona"Me.cboState.AddItem "Arkansas" |
Naravno, možemo nastaviti s popunjavanjem popisa s ostalim državama u SAD -u!
Da biste pokrenuli korisnički obrazac da biste vidjeli popis na djelu, 1) vratite se na prikaz obrasca, a zatim 2) na Alatnoj traci kliknite na Trčanje dugme.
Pritisnite strelicu padajućeg izbornika da biste vidjeli popis.
Također možemo upotrijebiti raspon u Excelu za popunjavanje kombiniranog okvira.
| 123456 | Privatni pomoćni korisnički obrazac_Initialize ()Dim rng As RangeZa svaki rng u rasponu ("A1: A50")Me.cboState.AddItem rng.VrijednostSljedeći rngKraj podm |
Ovo će pokupiti sve vrijednosti pohranjene u rasponu A1 do A50 i prema tome popuniti padajući popis.
Stvaranje kontrole okvira okvira
Kontrola List Box radi na isti način kao kontrola Combo Box, ali nam omogućuje da vidimo sve opcije na obrascu u obliku popisa.
Odaberite kontrolu okvira okvira u alatnoj paleti, a zatim povucite da biste stvorili okvir s popisom na obrascu.
Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!
Dodavanje vrijednosti u okvir s popisom
U događaj Initialize obrasca upišite sljedeći kôd:
| 123456 | Privatni pomoćni korisnički obrazac_Initialize ()Dim rng As RangeZa svaki rng u rasponu ("A1: A50")Me.lstState.AddItem rng.ValueSljedeći rngKraj podm |
Kada pokrenemo obrazac, prikazat će se okvir s popisom kako je prikazano na donjoj slici:
Stvaranje kontrole kontrolnog okvira
Potvrdni okviri omogućuju korisniku da označi ili poništi odabir opcije.
Odaberite kontrolu Check Box, a zatim kliknite obrazac na koji želite da ide.
Izmijenite naslov i naziv potvrdnog okvira u prozoru Svojstva.
Stvaranje kontrole grupe opcija s gumbima opcija
Grupa opcija omogućuje korisniku odabir između brojnih dostupnih opcija. Prvi korak u stvaranju grupe opcija je dodavanje okvira kontrole u obrazac, a zatim dodavanje gumba opcija unutar okvira koji je dodan. Time osiguravamo da se prilikom izvođenja obrasca može odabrati samo jedan od gumba opcija unutar okvira.
Odaberite kontrolu okvira u okviru s alatima, a zatim povucite da biste stvorili okvir na obrascu.
Odaberite kontrolu gumba opcije u alatnoj kutiji, a zatim kliknite Unutar gore stvorenog okvira za dodavanje gumba opcije u okvir. Ponovite po potrebi.
Pritisnite okvir i 1) izmijenite naziv okvira i naslov. Zatim 2) kliknite na svaki od gumba s opcijama i izmijenite naslov.
Stvaranje naredbenog gumba za izlazak iz obrasca
U ovoj fazi jedini način zatvaranja obrasca je korištenje gumba za zatvaranje u desnom kutu kontrolne trake obrasca. Učinkovitiji način izlaska iz obrasca i onaj u kojemu imamo veću kontrolu je stvaranjem gumba Izlaz na obrascu. To se postiže pomoću tipke Command Control u Toolboxu.
Odaberite kontrolu naredbenog gumba, a zatim kliknite i povucite u obrascu da biste stvorili gumb.
Pomoću svojstva naslova promijenite naslov naredbenog gumba u OK, a ubrzivač u „O“
Svrha akceleratora je da korisnik u ovom slučaju pomoću tipkovnice aktivira gumb Alt+O aktiviralo bi gumb.
Izvrstan proizvod. AutoMacro ne samo da piše vaš kôd, već uči i dok idete! " - Tony, UK
Saznajte višePročitajte naše 900+ recenzija
Dodavanje koda naredbenom gumbu
Da bi naredbeni gumb funkcionirao, moramo dodati kôd iza njega kako bi se kôd pokrenuo kada se pritisne gumb. To se naziva Click događaj gumba.
Da biste došli do događaja klika, dvaput kliknite gumb u prikazu dizajna obrasca.
1) Događaj Click automatski će se stvoriti jer je to događaj koji se najčešće koristi za naredbene gumbe.
2) Kad bismo kliknuli padajući okvir Postupak s desne strane, vidjeli bismo popis svih metoda događaja koje su dostupne naredbenom gumbu. Ovaj se popis mijenja ovisno o vrsti kontrole koju smo stvorili jer su dostupni različiti događaji za različite vrste kontrola.
Upišite sljedeći kôd u događaj klika naredbenog gumba.
| 123456789101112131415 | Privatna pod cmdOK_Click ()Raspon ("E1") = Me.txtFirstnameRaspon ("E2") = Me.txtSurnameRaspon ("E3") = Me.txtCellPhoneRaspon ("E4") = Me.cboStateAko je Me.ckContactInfo = Tačno tadaRaspon ("E5") = "SMS dopušten"DrugoRaspon ("E5") = "SMS nije dopušten"Završi akoAko je Me.opt1.Value = True, tada je raspon ("E6") = Me.opt1.CaptionAko je Me.opt2.Value = True, tada je raspon ("E6") = Me.opt2.CaptionAko je Me.opt3.Value = True, tada je raspon ("E6") = Me.opt3.CaptionIskrcaj MeKraj podm |
Zatim možemo pokrenuti obrazac, ispuniti tekstualne okvire i odabrati s padajućeg popisa. Zatim kliknemo U redu da bismo unijeli podatke u Excel.
