Excel VBA korisnički obrazac
Korisnički obrazac u VBA prilagođeni su korisnički definirani obrasci koji su napravljeni tako da uzimaju unos od korisnika u formatu obrasca, on ima različite setove kontrola za dodavanje, poput tekstualnih okvira, oznaka okvira itd., Koji vode korisnika da unese vrijednost i vrijednost pohranjuje u radni list, svaki dio korisničkog obrasca ima jedinstveni kod.
Userform je objekt unutar Excel sučelja i unutar ovog korisničkog obrasca možemo stvoriti druge korisne prilagođene dijaloške okvire za dobivanje podataka od korisnika. Kada radite s makro datotekom koju je stvorio vaš stariji ili je možete preuzeti s interneta, zacijelo ste vidjeli ovakav korisnički obrazac.
U ovom ćemo vam članku pokazati kako stvoriti sličan korisnički obrazac za pohranu podataka od korisnika.
Kako stvoriti korisnički obrazac?
Kao što na sličan način ubacujete novi modul, morate kliknuti gumb INSERT u programu Visual Basic Editor da biste umetnuli Userform.
Čim kliknete na ovo, umetnut će se i korisnički obrazac.
Prije nego što vam kažem kako to programirati, dopustite mi da vam pokažem kako formatirati ovaj korisnički obrazac.
Oblikovanje korisničkog oblika
Odabirom korisničkog obrasca pritisnite tipku F4, prikazat će se prozor svojstava.
Pomoću ovog prozora svojstava možemo formatirati ovaj korisnički obrazac. Možemo ga imenovati. Možemo promijeniti boju, stil obruba itd.…
Ovako, isprobajte druga svojstva da biste stekli pogled na korisnički oblik.
Sada za ovaj korisnički obrazac umetnite Toolbox.
Sad ćemo vidjeti ovakav alat.
Trenutno je korisnički obrazac samo umetnut, a ne programiran. Da biste znali kako to radi, samo kliknite gumb za pokretanje. Vidjet ćemo obrazac na Excelovom radnom listu.
Sada se koristi oznaka za crtanje ToolBox.
Unesite tekst kao ime zaposlenika unutar naljepnice.
Za ovu naljepnicu, tako da možemo formatirati pomoću svojstava. Sad smo tekst unijeli kao „Ime zaposlenika:“, sada to možemo vidjeti u prozoru svojstava pod naslovima.
Umetnite još jednu naljepnicu. Da biste umetnuli još jednu naljepnicu, možete kliknuti okvir s alatima ili povući trenutnu naljepnicu držanjem tipke Ctrl . Imat ćete kopiju trenutne naljepnice.
Sad ćemo imati istu oznaku.
Promijenite ime u ID zaposlenika.
Sada slično umetnite još jednu naljepnicu i nazovite je "Odjel".
Sada iz okvira s alatima umetnite okvir za tekst.
Nazovite ovaj okvir za tekst imenom EmpName u prozoru svojstava.
Ovako, umetnite još dva polja za tekst iz ID-a zaposlenika i odjela. Nazovite one okvire za tekst prema njihovom naslovu.
Slično tome, učinite to za odjel.
Sada iz okvira s alatima umetnite naredbeni gumb.
Promijenite naziv naredbenog gumba u "SubmitButton" i promijenite naslov u "Submit".
Umetnite još jedan gumb i nazovite ga "Odustani".
Sada samo da biste vidjeli pokretanje, pritisnite gumb za pokretanje ili upotrijebite tipku F5 i pogledajte kako izgleda vaš korisnički obrazac u Excelu.
Sada dolazi do oblika.
VBA kod
Sada će korisnik unijeti podatke u ovo, pa ga moramo programirati za pohranu podataka koje je korisnik unio u ovaj obrazac.
Dvaput kliknite gumb PRIJAVI, odvest će vas do prozora makronaredbe s automatski stvorenom makronaredbom kao što je dolje.
Piše SubmitButton klik, sjetimo se da smo za gumb SUBMIT dali ime SubmitButton.
Dakle, kad god želimo nazvati ovaj gumb, možemo ga nazvati ovim imenom (gumb za slanje). Unutar ove makronaredbe kopirajte i zalijepite donji kod.
Kodirati:
Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub
- EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
- EmpID.Value here EmpID is the text box name of the Employee ID text box.
- Dept.Value this is the department text box name.
So, on the click on the submit button, it will store the values in the mentioned cells.
Now double click on the Cancel button. This will also show you the auto macro name like this.
Copy the below code and paste.
Code:
Private Sub CancelButton_Click() MyUserForm.Hide End Sub
MyUserForm je ime koje smo dali korisničkom obliku. MyUserForm.Hide znači da će klikom na gumb OTKAZI sakriti korisnički obrazac.
Ok, sada izradite takav predložak na radnom listu.
Izbrišite sve ostale listove u radnoj knjizi, osim ovog lista predloška.
Sada idite na Visual Basic Editor.
I pokrenite makronaredbu pomoću tipke F5 ili ručno, vidjet ćemo obrazac korisnika ispred sebe.
Unesite ime zaposlenika, ID zaposlenika i naziv odjela.
Ako kliknete gumb PRIJAVI, pohranit će vrijednosti u predložak koji smo stvorili.
Ovako, možete i dalje unositi imena. Korisnički obrazac nastavit će pohranjivati vrijednosti koje je korisnik unio u navedene ćelije.
Dakle, pomoću KORISNIČKOG OBRAZCA zapravo možemo stvoriti prekrasne projekte kako bismo informacije dobili od korisnika.
