Níže se podíváme na program v Excelu VBA, který vytvoří Userform, který obsahuje více stránek. Tato uživatelská forma také obsahuje obrázky.
Ovládání více stránek obsahuje dvě stránky. Na stránce 1 může uživatel vyplnit své osobní údaje. Na stránce 2 může uživatel uvést, který obraz se mu nejvíce líbí.
Chcete -li vytvořit tento Userform, proveďte následující kroky.
1. Otevřete editor jazyka. Pokud Průzkumník projektů není viditelný, klikněte na Zobrazit, Průzkumník projektů.
2. Klikněte na Vložit, Uživatelská forma. Pokud se Panel nástrojů nezobrazí automaticky, klikněte na Zobrazit, Panel nástrojů. Obrazovka by měla být nastavena níže.
3. Přidejte ovládací prvek Vícestránkový, popisky, textová pole (první nahoře, druhé pod prvním), rámeček, tlačítka možností (první vlevo, druhá vpravo), pole se seznamem, ovládací prvek obrázku a příkazové tlačítko. Jakmile to bude dokončeno, výsledek by měl být v souladu s prázdnou verzí Userform zobrazené výše. Například vytvořte ovládací prvek vícestránkový kliknutím na vícestránkový z panelu nástrojů. Dále můžete na Userform přetáhnout ovládací prvek Multipage. Když dorazíte do rámce Gender, nezapomeňte nejprve nakreslit tento rámeček, než do něj umístíte dvě tlačítka možností.
4. Můžete změnit názvy a titulky ovládacích prvků. Jména se používají v kódu Excel VBA. Titulky jsou ty, které se zobrazují na vaší obrazovce. Je dobrým zvykem změnit názvy ovládacích prvků, ale není to nutné, protože v tomto příkladu máme jen několik ovládacích prvků. Chcete -li změnit popisek karet Userform, vícestránkových karet, štítků, rámečku, tlačítek možností a příkazového tlačítka, klikněte na Zobrazit, Okno vlastností a klikněte na každý ovládací prvek.
5. Chcete -li zobrazit formulář Userform, umístěte na list příkazové tlačítko a přidejte následující řádek kódu:
Private Sub CommandButton1_Click ()
UserForm1.Show
End Sub
Nyní se chystáme vytvořit Sub UserForm_Initialize. Když použijete metodu Showform pro Userform, tento dílčí díl bude automaticky spuštěn.
6. Otevřete editor jazyka.
7. V aplikaci Project Explorer klepněte pravým tlačítkem na UserForm1 a poté klepněte na Zobrazit kód.
8. Z rozevíracího seznamu vlevo vyberte Userform. V pravém rozevíracím seznamu vyberte položku Inicializovat.
9. Přidejte následující řádky kódu:
Private Sub UserForm_Initialize ()
S ListBox1
.AddItem „Hory“
.AddItem „Západ slunce“
.Přidat položku „Pláž“
.AddItem „Winter“
Konec s
End Sub
Vysvětlení: vyplní se pole se seznamem na straně 2.
Nyní jsme vytvořili první část Userform. Ačkoli to už vypadá úhledně, nic se ještě nestane, když vybereme položku ze seznamu nebo když klikneme na tlačítko OK.
10. Stáhněte si obrázky (pravá strana této stránky) a přidejte je do „C: \ test \“
11. V Průzkumníkovi projektů dvakrát klikněte na UserForm1.
12. Poklepejte na pole se seznamem.
13. Přidejte následující řádky kódu:
Soukromý dílčí seznamBox1_Click ()
Pokud ListBox1.ListIndex = 0 Pak
Image1.Picture = LoadPicture ("C: \ test \ Mountains.jpg")
Konec If
Pokud ListBox1.ListIndex = 1 Potom
Image1.Picture = LoadPicture ("C: \ test \ Sunset.jpg")
Konec If
Pokud ListBox1.ListIndex = 2 Potom
Image1.Picture = LoadPicture ("C: \ test \ Beach.jpg")
Konec If
Pokud ListBox1.ListIndex = 3 Potom
Image1.Picture = LoadPicture ("C: \ test \ Winter.jpg")
Konec If
End Sub
Vysvětlení: tyto řádky kódu načtou obrázek v závislosti na vybrané položce v seznamu.
14. Poklepejte na tlačítko OK.
15. Přidejte následující řádky kódu:
Private Sub CommandButton1_Click ()
Dim emptyRow As Long
„Aktivujte List1
List 1. Aktivujte
„Určete prázdný řádek
emptyRow = WorksheetFunction.CountA (rozsah ("A: A")) + 1
"Informace o převodu."
Buňky (prázdný řádek, 1). Hodnota = TextBox1.Hodnota
Buňky (prázdný řádek, 2). Hodnota = TextBox2.Hodnota
Pokud OptionButton1.Value = True Then
Buňky (emptyRow, 3) .Hodnota = "Muž"
Jiný
Buňky (emptyRow, 3). Hodnota = "Žena"
Konec If
Buňky (emptyRow, 4) .Value = ListBox1.Value
'Zavřít formulář uživatele
Vyložit mě
End Sub
Vysvětlení: Nejprve aktivujeme List1. Dále určíme emptyRow. Proměnná emptyRow je první prázdný řádek a zvyšuje se při každém přidání záznamu. Dále přeneseme informace z Userform do konkrétních sloupců emptyRow. Nakonec zavřeme Userform.
16. Ukončete editor Visual Basic, zadejte níže uvedené popisky do řádku 1 a otestujte Userform.
Výsledek:
