Korisnički obrasci za Excel - savjeti za Excel

Sadržaj

Excel 97 predstavio je nove korisničke obrasce. Na engleskom me naučite kako stvoriti i koristiti okvir s popisom.

MrExcel je nedavno dovršio prilagođenu aplikaciju za jednog od naših čitatelja. U ovoj aplikaciji Excel korisnik bi na list unosio 150 podatkovnih točaka za određeni broj dijela.

1. Klikom na gumb ovaj broj dijela i pridružene vrijednosti podataka predaju se u bazu podataka na Sheet2. To je bilo u redu, ali tada nam je trebao način da korisnik pozove zapis s lista 2 kako bi mogao pregledati unose. Želio sam dopustiti korisniku da otvori obrazac s padajućim okvirom koji prikazuje sve stavke na listu

2. Korisnik se mogao pomicati, odabrati stavku, a zatim bih povukao te vrijednosti s lista 2 na list 1.

Kao i mnogi od vas, i ja sam počeo pisati Excel makronaredbe u programu Excel 5.0. Cijeli ovaj Macro Editor u programu Excel 97 pomalo je zastrašujući. Za ovotjedni savjet pokazat ću vam korak po korak kako stvoriti okvir s popisom za ovaj projekt. Ovaj tjedan fokus je samo na kombiniranom okviru. Ciljna publika je netko tko zna osnove Excel makronaredbi, ali koji nikada nije koristio obrazac za interakciju s makronaredbom.

Prvi korak: Promijenio sam postojeće makronaredbe tako da kada dodaju zapis na sheet2, makronaredba će imenovati raspon koji sadrži brojeve dijelova koji će se nazvati "PartList". Postoji naslov u ćeliji A1, s prvom stavkom u ćeliji A2. Pomoću naredbe End pronašao sam zadnji redak:

LastRow = Range("A6000").End(xlUp).Row ActiveWorkbook.Names.Add Name:="PartList", RefersTo:="=Sheet2!$A$2:$A$" & LastRow

Drugi korak: Postavite obrazac okvira s popisom. Prati ove korake:

Pokrenite Visual Basic Editor pritiskom na alt-F11
Na izborniku odaberite Umetni> Korisnički obrazac. Uređivač vam treba dati prazan UserForm1.
Ako ne vidite okvir Properties-UserForm1 u donjem lijevom kutu, pritisnite ikonu "Prozor svojstava" - izgleda kao ruka s prstom koji pokazuje na bijeli list.
Četvrti unos u prozoru svojstava je Caption. Trenutno će naslov biti UserForm1. Kliknite okvir desno od Caption u prozoru Properties i upišite novi naslov obrasca. Svoje sam nazvao "Odaberite broj dijela za pregled". Sva ostala svojstva za obrazac ostavio sam u zadanom stanju.
Izrada okvira s popisom pomoću korisničkog obrasca
Ponovno kliknite bilo gdje unutar korisničkog obrasca i pojavit će se alatni okvir Controls.
U alatnom okviru Controls odaberite slovo A. Kliknite i povucite da biste stvorili okvir s oznakama na vrhu obrasca. Prema zadanim postavkama ima natpis Label1. Ponovno kliknite unutar okvira za tekst i možete urediti naslov. Ovdje stavite upute za korisnika: "Odaberite stavku sa donjeg popisa i kliknite U redu da biste pregledali vrijednosti".
Kliknite obrazac, ali izvan okvira s naljepnicama i ponovno ćete vidjeti kontrolni alatni okvir. Četvrta stavka u gornjem redu je kombinirani alat. Kliknite ovo i povucite u korisnički obrazac da biste stvorili kombinirani okvir. Ovdje će se pojaviti popis brojeva dijelova. Zadani naziv je ComboBox1.
Svojstva kombiniranog okvira
Prozor svojstava sada će vam prikazivati svojstva za ComboBox1. Pomaknite se dolje kroz svojstva dok ne vidite svojstvo RowSource. Za svojstvo RowSource upišite = Sheet2! PartList
Sada možete pokrenuti brzi test kako biste bili sigurni da stvari rade ispravno. Kliknite naslovnu traku vašeg korisničkog obrasca da biste odabrali cijeli obrazac. Sada kliknite ikonu "reproduciraj" (izgleda kao gumb za reprodukciju na videorekorderu). Vratit ćete se u svoju Excel radnu knjigu i dobit ćete naš jednostavni korisnički obrazac. Ako kliknete padajući padajući broj dijela, trebali biste vidjeti popis važećih brojeva dijelova. Odaberite jedan i on će ostati u kombiniranom okviru. Zasad ne previše uzbudljivo. Kliknite mali X u gornjem desnom kutu da biste odbacili okvir.
Vratite se na uređivač Visual Basic. Kliknite korisnički obrazac da biste prikazali Control Toolbox. Kliknite CommandButton alat i nacrtajte gumb. Promijenite naslov tako da bude u redu pomoću prozora Svojstva - CommandButton1.
Nacrtajte drugi gumb i označite ga Odustani.
Skoro smo gotovi. Privežemo malo koda na gumb Odustani. Desnom tipkom miša kliknite gumb Odustani i odaberite "Prikaži kod". Uređivač će postaviti vaše Sub i End Sub izjave. Između njih upišite jedan redak koda:
```
UserForm1.Hide
```
Da, to je sve što treba za dodjeljivanje koda gumbu. Da biste se vratili na korisnički obrazac, dvaput kliknite riječi UserForm1 u prozoru projekta. (Ne možete vidjeti prozor projekta? Pritisnite ikonu Project Explorer, s lijeve strane ikone Svojstva.)
Da završimo korisnički obrazac1, učinimo nešto s gumbom OK. Kad korisnik klikne U redu, želim da se vrijednost iz okvira s popisom pojavi u stanici A2 lista 1, a zatim želim pokrenuti makronaredbu koju sam prethodno napisao pod nazivom ReviewItem. Desnom tipkom miša pritisnite gumb U redu i odaberite Prikaži kod. Unesite ovaj kod za Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```