Excel-käyttäjän lomakkeet - Excel-vinkit

Sisällysluettelo

Excel 97 esitteli uudet käyttäjälomakkeet. Opeta minulle englanniksi englanniksi luetteloruudun luominen ja käyttö.

MrExcel valmisti äskettäin mukautetun sovelluksen yhdelle lukijamme. Tässä Excel-sovelluksessa käyttäjä kirjoitti 150 tietopistettä tietylle osanumerolle arkille.

1. Napin painalluksella tämä osanumero ja siihen liittyvät data-arvot sidotaan Sheet2-tietokantaan. Tämä oli hieno, mutta sitten tarvitsimme tapaa, jolla käyttäjä voi kutsua tietueen taulukosta 2, jotta hän voisi tarkistaa merkinnät. Halusin antaa käyttäjän avata lomakkeen, jossa on pudotusvalikko, jossa näkyvät kaikki arkin kohteet

2. Käyttäjä voi selata, valita kohteen ja sitten vetää nuo arvot taulukosta 2 ylös arkille 1.

Kuten monet teistä, aloin kirjoittaa Excel-makroja Excel 5.0: ssa. Tämä koko Excel 97: n makroeditori on vähän pelottava. Tämän viikon vihjeessä näytän sinulle askel askeleelta, kuinka luoda luetteloruutu tälle projektille. Tällä viikolla keskitytään vain yhdistelmäruutuun. Kohdeyleisö on joku, joka tuntee Excel-makrojen perusteet, mutta joka ei ole koskaan käyttänyt lomaketta vuorovaikutuksessa makron kanssa.

Ensimmäinen vaihe: Muutin olemassa olevat makrot niin, että kun ne lisäsivät tietueen arkkiin2, makro nimeäisi alueen, joka sisältää osanumerot nimeltään "PartList". Solussa A1 on otsikko, ensimmäisen solun solussa A2. Käytin Lopeta-komentoa etsimään viimeinen rivi:

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

Toinen vaihe: Asettele luetteloruudun lomake. Toimi seuraavasti:

Käynnistä Visual Basic Editor lyömällä alt-F11
Valitse valikosta Lisää> Käyttäjälomake. Editorin tulisi antaa tyhjä UserForm1.
Jos vasemmassa alakulmassa ei ole Ominaisuudet-UserForm1-ruutua, osoita "Ominaisuudet-ikkuna" -kuvaketta - se näyttää kädeltä, jonka sormi osoittaa valkoiselle arkille.
Ominaisuusikkunan 4. merkintä on Tekstitys. Tällä hetkellä kuvateksti on UserForm1. Napsauta Ominaisuudet-ikkunan tekstityksen oikealla puolella olevaa ruutua ja kirjoita uusi otsikko lomakkeelle. Soitin omaani "Valitse osanumero tarkistettavaksi". Jätin kaikki muut lomakkeen ominaisuudet niiden oletusarvoihin.
Luetteloluettelon luominen Userformilla
Napsauta kohtaa käyttäjämuodossa uudelleen ja Ohjaimet-työkaluruutu tulee näkyviin.
Valitse Ohjaimet-työkaluruudusta kirjain A. Luo lomakkeen yläosaan tarraruutu napsauttamalla ja vetämällä. Oletuksena on otsikko Label1. Napsauta tekstikentän sisäpuolta uudelleen ja voit muokata kuvatekstiä. Laita ohjeet käyttäjälle tähän: "Valitse kohde alla olevasta luettelosta ja tarkista arvot napsauttamalla OK".
Napsauta lomaketta, mutta etikettiruudun ulkopuolella ja näet ohjaustyökaluruudun uudelleen. Ylimmän rivin 4. kohta on yhdistelmäruututyökalu. Napsauta tätä ja vedä käyttäjämuotoa luodaksesi yhdistelmäruudun. Tässä näkyy luettelo osanumeroista. Oletusnimi on ComboBox1.
Yhdistelmäruudun ominaisuudet
Ominaisuudet-ikkuna näyttää nyt ComboBox1: n ominaisuudet. Selaa ominaisuuksia läpi, kunnes näet RowSource-ominaisuuden. Kirjoita RowSource-ominaisuuteen = Sheet2! PartList
Voit nyt suorittaa pikatestin varmistaaksesi, että asiat toimivat oikein. Napsauta käyttäjän lomakkeen otsikkoriviä valitaksesi koko lomakkeen. Napsauta nyt "toista" -kuvaketta (näyttää siltä, että videonauhurin toistopainike on). Sinut palautetaan Excel-työkirjaasi ja sinulla on yksinkertainen käyttäjälomake. Jos napsautat osanumeron avattavaa valikkoa, sinun pitäisi nähdä luettelo kelvollisista osanumeroista. Valitse yksi, niin se pysyy yhdistelmäruudussa. Toistaiseksi, ei liian jännittävää. Napsauta pikku X oikeassa yläkulmassa sulkeaksesi ruudun.
Palaa Visual Basic -editoriin. Napsauta käyttäjälomaketta näyttääksesi Ohjaustyökalut. Napsauta CommandButton-työkalua ja piirrä painike. Muuta otsikko OK-tilaan Ominaisuudet - CommandButton1 -ikkunassa.
Piirrä toinen painike ja merkitse se Peruuta.
Olemme melkein valmista. Liitetään pieni koodi Peruuta-painikkeeseen. Napsauta hiiren kakkospainikkeella Peruuta-painiketta ja valitse "Näytä koodi". Editori määrittää Sub- ja End Sub -lausekkeet. Kirjoita niiden väliin yksi koodirivi:
```
UserForm1.Hide
```
Kyllä, siinä kaikki on koodin osoittaminen painikkeelle. Palaa käyttäjälomakkeeseen kaksoisnapsauttamalla sanaa UserForm1 projektiikkunassa. (Etkö näe projektiikkunaa? Napsauta Ominaisuudet-kuvakkeen vasemmalla puolella olevaa Project Explorer -kuvaketta.)
Viimeistele käyttäjän lomake1 tekemällä jotain OK-painikkeella. Kun käyttäjä napsauttaa OK, haluan, että luetteloruudun arvo näkyy taulukon1 solussa A2 ja sitten haluan aloittaa aiemmin kirjoittamani makron nimeltä ReviewItem. Napsauta hiiren kakkospainikkeella OK-painiketta ja valitse Näytä koodi. Kirjoita tämä koodi Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```