Exceli kasutajavormid - Exceli näpunäited

Lang L: none (table-of-contents)

Excel 97 tutvustas uusi kasutajavorme. Inglise keeles õpetage mulle loendikasti loomist ja kasutamist.

MrExcel lõpetas hiljuti ühele meie lugejale kohandatud rakenduse. Selles Exceli rakenduses sisestab kasutaja lehel konkreetse tootenumbri jaoks 150 andmepunkti.

1. Nupu klõpsuga seotakse see osa number ja seotud andmeväärtused Sheet2 andmebaasi. See oli hea, kuid siis vajasime võimalust, kuidas kasutaja saaks lehelt 2 kirje välja kutsuda, et nad saaksid kirjed üle vaadata. Tahtsin lubada kasutajal avada rippmenüüga vorm, kus kuvatakse kõik lehel olevad üksused

2. Kasutaja sai sirvida, valida üksuse ja siis ma tõmbaksin need väärtused lehelt 2 kuni lehele 1.

Nagu paljud teist, hakkasin ka mina Exceli makrosid kirjutama Excelis 5.0. See kogu makrotoimetaja Excelis 97 on natuke hirmutav. Selle nädala näpunäite jaoks näitan teile samm-sammult, kuidas selle projekti jaoks loendikasti luua. Sel nädalal on fookuses just kombokast. Sihtrühm on keegi, kes teab Exceli makrode põhitõdesid, kuid kes pole kunagi makroga suhtlemiseks vormi kasutanud.

Esimene samm: muutsin olemasolevaid makrosid nii, et kui nad lisasid lehele2 kirje, nimetaks makro vahemiku, mis sisaldab osade numbreid, nimega "PartList". Lahtris A1 on pealkiri, lahtris A2 on esimene kirje. Viimase rea leidmiseks kasutasin käsku End:

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

Teine samm: paigutage loendiboksi vorm. Järgige neid samme:

Käivitage Visual Basic Editor, vajutades alt-F11
Valige menüüst Lisa> Kasutaja vorm. Redaktor peaks andma teile tühja UserForm1.
Kui te ei näe vasakus alanurgas kasti Properties-UserForm1, vajutage ikooni "Properties Window" - see näeb välja nagu käsi, mille sõrm näitab valget lehte.
Atribuutide akna 4. kirje on pealkiri. Praegu on pealdise nimeks UserForm1. Klõpsake aknas Atribuudid pealkirjast paremal asuvat kasti ja tippige vormile uus pealkiri. Helistasin oma "Valige ülevaatamiseks osa number". Jätsin kõik muud vormi atribuudid nende vaikeseisundisse.
Loendikasti loomine Userformi abil
Klõpsake uuesti kasutajavormis suvalises kohas ja kuvatakse juhtnuppude tööriistakast.
Valige juhtnuppude tööriistakastis täht A. Klõpsake ja lohistage, et luua vormi ülaosas silt. Vaikimisi on silt Label1. Klõpsake uuesti tekstikasti sees ja saate pealdist muuta. Sisestage juhised kasutajale siia: "Valige üks allolevast loendist ja klõpsake väärtuste ülevaatamiseks nuppu OK".
Klõpsake vormil, kuid väljaspool sildikasti ja näete uuesti juhtimistööriistu. Ülemise rea 4. element on kombineeritud kastitööriist. Liitkasti loomiseks klõpsake seda ja lohistage kasutajavormi. Siin ilmub osade numbrite loend. Vaikenimi on ComboBox1.
Comboboxi omadused
Atribuutide aknas kuvatakse nüüd ComboBox1 atribuudid. Kerige atribuutide kaudu allapoole, kuni näete atribuuti RowSource. Atribuudi RowSource jaoks tippige = Sheet2! PartList
Nüüd saate teha kiire testi, et veenduda, et asjad töötavad korralikult. Kogu vormi valimiseks klõpsake oma kasutajavormi tiitliribal. Nüüd klõpsake ikooni "Esita" (tundub, et teie videomakil on nuppu Esita). Teid tagastatakse teie Exceli töövihikusse ja teil on meie lihtne kasutajavorm. Kui klõpsate rippmenüüd osa number, peaksite nägema kehtivate tootenumbrite loendit. Valige üks ja see jääb kombokasti. Siiani pole see liiga põnev. Kasti tühistamiseks klõpsake paremas ülanurgas väikest X-i.
Naaske Visual Basicu redaktorisse. Juhtimistööriistakasti kuvamiseks klõpsake kasutaja vormil. Klõpsake tööriista CommandButton ja joonistage nupp. Muutke akna Atribuudid - CommandButton1 abil pealdist OK.
Joonistage teine nupp ja lisage silt Tühista.
Oleme peaaegu valmis. Seome nuppu Tühista natuke koodi. Paremklõpsake nuppu Tühista ja valige käsk "Kuva kood". Redaktor seadistab teie alam- ja lõppsublaused. Nende vahele tippige üks koodirida:
```
UserForm1.Hide
```
Jah, see on kõik, mis on nupule koodi määramine. Kasutajavormi juurde naasmiseks topeltklõpsake projektiaknas sõnu UserForm1. (Kas te ei näe projekti akent? Vajutage atribuutide ikoonist vasakul vasakule ikooni Project Explorer.)
Kasutajavormi1 lõpetamiseks teeme midagi nupuga OK. Kui kasutaja klõpsab nuppu OK, tahan, et loendikasti väärtus ilmuks 1. lehe lahtrisse A2 ja seejärel käivitaksin varem kirjutatud makro nimega ReviewItem. Paremklõpsake nuppu OK ja valige Kuva kood. Sisestage see kood Private Sub CommandButton1_Click () jaoks:
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```