Uživatelské formuláře aplikace Excel - Excel tipy

Obsah

Excel 97 představil nové uživatelské formuláře. V angličtině mě naučte, jak vytvořit a používat seznam.

MrExcel nedávno dokončil vlastní aplikaci pro jednoho z našich čtenářů. V této aplikaci Excel by uživatel zadal 150 datových bodů pro konkrétní číslo dílu na listu.

1. Kliknutím na tlačítko se toto číslo dílu a přidružené hodnoty dat přenese do databáze na listu 2. To bylo v pořádku, ale pak jsme potřebovali způsob, jak uživatel vyvolat záznam z listu 2, aby mohl zkontrolovat záznamy. Chtěl jsem umožnit uživateli otevřít formulář s rozevíracím seznamem zobrazujícím všechny položky na listu

2. Uživatel mohl procházet, vybrat položku a potom bych tyto hodnoty vytáhl z listu 2 až do listu 1.

Stejně jako mnozí z vás jsem začal psát makra aplikace Excel v aplikaci Excel 5.0. Celý tento editor maker v aplikaci Excel 97 je trochu zastrašující. Pro tip na tento týden vám krok za krokem ukážu, jak vytvořit seznam pro tento projekt. Tento týden se zaměříme pouze na rozbalovací seznam. Cílovým publikem je někdo, kdo zná základy maker aplikace Excel, ale kdo nikdy nepoužíval formulář k interakci s makrem.

První krok: Změnil jsem existující makra tak, že když přidali záznam do sheet2, makro pojmenovalo rozsah obsahující čísla dílů, aby se jmenovali „PartList“. V buňce A1 je nadpis, první položka v buňce A2. K nalezení posledního řádku jsem použil příkaz Konec:

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

Druhý krok: Rozložte formulář seznamu. Následuj tyto kroky:

Spusťte editor jazyka stisknutím klávesy alt-F11
V nabídce vyberte Vložit> Uživatelský formulář. Editor by vám měl dát prázdný UserForm1.
Pokud nevidíte v levém dolním rohu pole Vlastnosti - Uživatelská forma1, stiskněte ikonu „Okno vlastností“ - vypadá to jako ruka s prstem směřujícím na bílý list.
Čtvrtá položka v okně vlastností je Titulek. Právě teď bude Titulek UserForm1. Klepněte na pole napravo od Titulek v okně Vlastnosti a zadejte nový název formuláře. Zavolal jsem dolu „Vyberte číslo dílu ke kontrole“. Všechny ostatní vlastnosti formuláře jsem nechal v jejich výchozím stavu.
Vytvoření seznamu pomocí Userform
Klikněte znovu kamkoli do uživatelského formuláře a zobrazí se ovládací panel nástrojů.
Na panelu nástrojů Ovládací prvky vyberte písmeno A. Kliknutím a tažením vytvoříte pole se štítky v horní části formuláře. Výchozí nastavení je mít titulek Label1. Klikněte znovu dovnitř textového pole a můžete upravit titulek. Zde zadejte pokyny pro uživatele: „Vyberte položku ze seznamu níže a kliknutím na OK zkontrolujte hodnoty“.
Klikněte na formulář, ale mimo pole se štítkem a znovu uvidíte ovládací panel nástrojů. Čtvrtá položka v horním řádku je nástroj se seznamem. Klepněte na toto a přetažením v uživatelském formuláři vytvořte pole se seznamem. Zde se zobrazí seznam čísel dílů. Výchozí název je ComboBox1.
Vlastnosti Comboboxu
V okně vlastností se nyní zobrazují vlastnosti pro ComboBox1. Přejděte dolů vlastnostmi, dokud neuvidíte vlastnost Zdroj řádků. Pro vlastnost Zdroj řádků zadejte = Sheet2! PartList
Nyní můžete spustit rychlý test, abyste se ujistili, že věci fungují správně. Kliknutím na záhlaví uživatelského formuláře vyberte celý formulář. Nyní klikněte na ikonu „přehrát“ (vypadá to jako tlačítko přehrávání na vašem videorekordéru). Budete vráceni do svého sešitu aplikace Excel a budete mít náš jednoduchý uživatelský formulář. Pokud kliknete na rozevírací nabídku číslo dílu, měl by se zobrazit seznam platných čísel dílů. Vyberte jednu a ta zůstane v rozbalovací nabídce. Zatím ne příliš vzrušující. Kliknutím na malé X v pravém horním rohu pole zavřete.
Vraťte se do editoru jazyka. Kliknutím na formulář uživatele zobrazíte ovládací panel nástrojů. Klikněte na nástroj CommandButton a nakreslete tlačítko. Pomocí okna Vlastnosti - CommandButton1 změňte titulek na OK.
Nakreslete druhé tlačítko a označte jej Zrušit.
Jsme téměř hotovi. Pojďme trochu kódu spojit s tlačítkem Storno. Klikněte pravým tlačítkem na tlačítko Storno a vyberte možnost „Zobrazit kód“. Editor nastaví vaše příkazy Sub a End Sub. Mezi ně zadejte jeden řádek kódu:
```
UserForm1.Hide
```
Ano, to je vše, co je k přiřazení kódu tlačítku. Chcete-li se vrátit k formuláři uživatele, poklepejte na slova UserForm1 v okně projektu. (Nevidíte okno projektu? Stiskněte ikonu Průzkumník projektu, nalevo od ikony Vlastnosti.)
Pro dokončení uživatele form1 udělejme něco s tlačítkem OK. Když uživatel klikne na OK, chci, aby se hodnota ze seznamu objevila v buňce list1 A2 a pak chci nastartovat makro, které jsem předtím napsal s názvem ReviewItem. Klikněte pravým tlačítkem na tlačítko OK a vyberte Zobrazit kód. Zadejte tento kód pro Private Sub CommandButton1_Click ():
```
Worksheets("Sheet1").Range("A2") = UserForm1.ComboBox1.Value UserForm1.Hide ReviewItem
```