Excel felhasználói űrlapok - Excel tippek

Tartalomjegyzék

Az Excel 97 új felhasználói űrlapokat vezetett be. Angolul tanítsd meg, hogyan kell létrehozni és használni egy listamezőt.

A MrExcel nemrégiben elkészített egy egyedi alkalmazást egyik olvasónk számára. Ebben az Excel alkalmazásban a felhasználó 150 adatpontot írhat be egy adott cikkszámra a lapon.

1. Egy gombnyomásra ez a cikkszám és a hozzátartozó adatértékek a Sheet2 adatbázisához vannak rendelve. Ez rendben volt, de akkor szükségünk volt arra, hogy a felhasználó előhívjon egy rekordot a 2. lapról, hogy átnézhesse a bejegyzéseket. Meg akartam engedni a felhasználónak, hogy megnyisson egy űrlapot egy legördülő mezővel, amelyen a lap összes eleme látható

2. A felhasználó végiggörgethet, kiválaszthat egy elemet, majd ezeket az értékeket a 2. és az 1. lap között húzom.

Sokan közületek, én is elkezdtem Excel makrókat írni az Excel 5.0-ban. Ez az egész Macro Editor az Excel 97-ben kissé félelmetes. A heti tipphez lépésről lépésre megmutatom, hogyan hozhatja létre a projektlistát. A hangsúly ezen a héten csak a kombinációs dobozon van. A célközönség az, aki ismeri az Excel makrók alapjait, de aki soha nem használt űrlapot a makróval való interakcióhoz.

Első lépés: Megváltoztattam a meglévő makrókat úgy, hogy amikor felvettek egy rekordot a 2. lapra, a makró megnevezte a "PartList" névre keresztelt alkatrészszámokat tartalmazó tartományt. Van egy címsor az A1 cellában, az első elem az A2 cellában. Az End paranccsal megtaláltam az utolsó sort:

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

Második lépés: A lista mező űrlapjának elrendezése. Kovesd ezeket a lepeseket:

Indítsa el a Visual Basic Editor alkalmazást az alt-F11 lenyomásával
A menüből válassza a Beszúrás> Felhasználói űrlap lehetőséget. A szerkesztőnek üres UserForm1-et kell adnia.
Ha nem látja a Properties-UserForm1 mezőt a bal alsó sarokban, nyomja meg a "Tulajdonságok ablak" ikont - úgy néz ki, mint egy kéz, amelynek ujja fehér lapra mutat.
A tulajdonságok ablakban a 4. bejegyzés a Felirat. Jelenleg a Felirat UserForm1 lesz. A Tulajdonságok ablakban kattintson a Felirat jobb oldalán található négyzetre, és írja be az űrlap új címét. Felhívtam az enyémet "Válasszon egy cikkszámot a felülvizsgálatra". Az űrlap összes többi tulajdonságát az alapértelmezett állapotban hagytam.
Lista létrehozása Userform használatával
Kattintson ismét bárhová a felhasználói űrlapon belül, és megjelenik a Vezérlők eszköztára.
A Vezérlők eszköztárban válassza ki az A betűt. Kattintson és húzza a címke mező létrehozásához az űrlap tetején. Alapértelmezés szerint a Label1 felirat. Kattintson ismét a szövegmező belsejébe, és szerkesztheti a feliratot. Tegye ide a felhasználónak szóló utasításokat: "Válasszon ki egy elemet az alábbi listából, és kattintson az OK gombra az értékek áttekintéséhez."
Kattintson az űrlapra, de a címke mezőjén kívül, és újra megjelenik a vezérlő eszköztár. A felső sor 4. eleme egy kombinált doboz eszköz. Kattintson erre, és húzza be a felhasználói űrlapot egy kombinációs mező létrehozásához. Itt jelenik meg a cikkszámok listája. Az alapértelmezett név a ComboBox1.
Combobox tulajdonságai
A Tulajdonságok ablak most megmutatja a ComboBox1 tulajdonságait. Görgessen lefelé a tulajdonságok között, amíg meg nem jelenik a RowSource tulajdonság. A RowSource tulajdonsághoz írja be a = Sheet2! PartList parancsot
Most futtathat egy gyors tesztet, hogy megbizonyosodjon a dolgok megfelelő működéséről. Kattintson a felhasználói űrlap címsorára a teljes űrlap kiválasztásához. Most kattintson a "lejátszás" ikonra (úgy néz ki, mint a lejátszó gomb a videomagnón). Visszatér az Excel munkafüzetéhez, és megkapja egyszerű felhasználói űrlapunkat. Ha rákattint a cikkszám legördülő menüre, akkor az érvényes cikkszámok listáját kell látnia. Válasszon egyet, és az a kombinációs mezőben marad. Eddig nem túl izgalmas. Kattintson a jobb felső sarokban lévő kis X-re a mező elvetéséhez.
Térjen vissza a Visual Basic szerkesztőhöz. Kattintson a felhasználói űrlapra a Vezérlő eszköztár megjelenítéséhez. Kattintson a CommandButton eszközre, és rajzoljon egy gombot. A Tulajdonságok - CommandButton1 ablak segítségével módosítsa a feliratot OK-ra.
Rajzoljon egy második gombot és jelölje meg a Mégse felirattal.
Majdnem készen vagyunk. Kössünk egy kis kódot a Mégse gombra. Kattintson a jobb gombbal a Mégse gombra, és válassza a "Kód megtekintése" lehetőséget. A Szerkesztő beállítja az Sub és End Sub utasításokat. Írjon közéjük egy kódsort:
```
UserForm1.Hide
```
Igen, ennyi a kód hozzárendelése egy gombhoz. A felhasználói űrlaphoz való visszatéréshez kattintson duplán a UserForm1 szavakra a Projekt ablakban. (Nem látja a projektablakot? Kattintson a Tulajdonságok ikon bal oldalán, a Projektkezelő ikonra.)
A felhasználói űrlap1 befejezéséhez tegyünk valamit az OK gombbal. Amikor a felhasználó rákattint az OK gombra, azt akarom, hogy a lista mező értéke megjelenjen az A2 munkalap1 cellában, majd fel akarok indítani egy makrót, amelyet korábban írtam, ReviewItem néven. Kattintson a jobb gombbal az OK gombra, és válassza a Kód megtekintése lehetőséget. Írja be ezt a kódot a Private Sub CommandButton1_Click () mezőhöz:
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```