Kako snimiti podatke iz korisničkih obrazaca u Excel radni list

S programom Excel možete koristiti Visual Basic za dodavanje niza različitih značajki u svoje proračunske tablice, uključujući "UserForms". Putem UserForms-a možete korisniku prikazati obrazac za unos koji je odvojen od glavnog radnog lista, što je korisno za hvatanje podataka od pojedinaca koji možda nisu upoznati s proračunskim tablicama. Uz malo Visual Basic koda, sve ove podatke možete dodati u proračunsku tablicu u nove retke.

Definirajte svoja polja

Pokrenite Excel. U gornji redak unesite imena svih polja koja želite zabilježiti, počevši od "A1" i radeći udesno. Kliknite "Razvojni programer", a zatim "Visual Basic". Pojavit će se prozor Visual Basic. Kliknite ikonu "A" iz okvira s alatima, a zatim kliknite i povucite unutar prozora "UserForm1" na mjestu na koje želite da ide vaše prvo polje obrasca. Uredite oznaku tako što ćete svojstvo "Caption" promijeniti u nešto opisnije, na primjer "Ime". Stvorite oznaku za svako polje koje ste unijeli na radnom listu.

Dodajte svoje tekstne okvire

Odaberite ikonu "TextBox" iz okvira s alatima i povucite okvir za tekst desno od prve naljepnice. Ako ćete koristiti samo nekoliko polja, svojstvo "(Name)" prihvatljivo je ostaviti kao zadani "TextBox1". Međutim, ako vam treba velik broj polja, to bi moglo postati zbunjujuće, pa biste ih trebali urediti tako da odgovaraju oznakama koje ste već stvorili. Svaka oznaka mora imati odgovarajući tekstni okvir.

Dodajte gumb za slanje

Kliknite ikonu "Command Button" u okviru s alatima, koja izgleda poput standardnog gumba u stilu Windows-a. Kliknite i povucite do veličine i mjesta koja vam trebaju u UserForm1. To ćete obično trebati ispod ili blizu konačnog okvira za tekst u svom obrascu. Promijenite svojstvo gumba "Caption" u "Submit Data" ili nešto slično, naznačujući korisniku da mora kliknuti ovaj gumb da bi poslao svoje podatke.

Dodajte Visual Basic kôd

Dvaput pritisnite gumb. Unesite sljedeći kod između "Private Sub" i "End Sub":

eRow = List1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row

Zatim započnite novi redak ispod ovog, a zatim unesite sljedeće:

Stanice (erow, 1) = TextBox1.Text

Ako ste preimenovali svoje tekstne okvire, promijenite "TextBox1" u ime koje ste dali prvom tekstnom okviru. Učinite to za svaki okvir za unos koji ste stvorili, započinjući novi redak i unoseći ispravna imena tekstualnih okvira prema potrebi. Također, za svaki novi redak povećajte broj u zagradama za jedan. Na primjer, sljedeći redak može izgledati ovako:

Stanice (erow, 2) = TextBox2.Text

Kliknite gumb "Reproduciraj" na vrhu prozora da biste započeli s hvatanjem podataka.