Z Excelom lahko s programom Visual Basic v preglednice dodate vrsto različnih funkcij, vključno z »UserForms«. Preko UserForms lahko uporabniku prikažete vnosni obrazec, ki je ločen od glavnega delovnega lista, kar je koristno za zajemanje podatkov posameznikov, ki morda ne poznajo preglednic. Z malo kode Visual Basic lahko dodate vse te podatke v preglednico v novih vrsticah.
Določite svoja polja
Zaženite Excel. V zgornjo vrstico vnesite imena vseh polj, ki jih želite zajeti, začenši z “A1” in nato desno. Kliknite »Razvijalec« in nato še »Visual Basic«. Odprlo se bo okno Visual Basic. V orodjarni kliknite ikono »A«, nato pa kliknite in povlecite v okno »UserForm1« na mestu, kamor želite, da gre prvo polje obrazca. Oznako uredite tako, da spremenite lastnost »Caption« v nekaj bolj opisnega, na primer »Ime«. Ustvarite oznako za vsako polje, ki ste ga vnesli na delovni list.
Dodajte besedilna polja
V orodjarni izberite ikono »TextBox« in povlecite polje z besedilom desno od prve oznake. Če boste uporabljali le nekaj polj, je lastnost »(Name)« dovoljeno pustiti kot privzeto »TextBox1«. Če pa potrebujete veliko število polj, lahko to postane zmedeno, zato jih uredite tako, da ustrezajo že ustvarjenim oznakam. Prepričajte se, da ima vsaka nalepka ustrezno polje z besedilom.
Dodajte gumb za oddajo
V orodjarni kliknite ikono »Command Button«, ki je videti kot standardni gumb v slogu sistema Windows. Kliknite in povlecite na velikost in mesto, ki ga potrebujete v UserForm1. Običajno boste to želeli pod ali blizu končnega polja z besedilom v obrazcu. Lastnost gumba »Caption« spremenite v »Submit Data« ali kaj podobnega, tako da uporabniku pokažete, da mora klikniti ta gumb, da predloži svoje podatke.
Dodajte kodo Visual Basic
Dvokliknite gumb. Med “Private Sub” in “End Sub” vnesite naslednjo kodo:
eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row
Nato začnite novo vrstico pod to in nato vnesite naslednje:
Celice (erow, 1) = TextBox1.Text
Če ste preimenovali besedilna polja, spremenite »TextBox1« v ime, ki ste ga dali prvemu besedilnemu polju. Naredite to za vsako vnosno polje, ki ste ga ustvarili, tako da začnete novo vrstico in po potrebi vnesete pravilna imena besedilnih polj. Za vsako novo vrstico sliko v oklepajih povečajte za eno. Na primer, naslednja vrstica je lahko videti tako:
Celice (erow, 2) = TextBox2.Text
Kliknite gumb »Predvajaj« na vrhu okna, da začnete zajemati podatke.
