Při vytváření uživatelských formulářů v Excel VBA, můžete použít Sbírka ovládacích prvků snadno procházet ovládacími prvky a nastavit vlastnost každého ovládacího prvku na konkrétní hodnotu.
Formulář uživatele, který vytvoříme, vypadá následovně:
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 štítek, textová pole (první nahoře, druhé pod první atd.) A příkazové tlačítko. Jakmile to bude dokončeno, výsledek by měl být v souladu s obrázkem formuláře uživatele zobrazeným dříve. Například vytvořte ovládací prvek textového pole kliknutím na TextBox z panelu nástrojů. Dále můžete přetáhnout textové pole na Userform.
4. Chcete -li změnit popis uživatelského formuláře, štítku 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 vbModeless
End Sub
Vysvětlení: přidáním vbModeless můžete použít Userform a pracovat na listu současně.
Nyní jsme vytvořili první část Userform. Ačkoli to už vypadá úhledně, nic se ještě nestane, když klikneme na příkazové tlačítko na Userform.
6. Otevřete editor jazyka.
7. V aplikaci Project Explorer dvakrát klikněte na UserForm1.
8. Poklepejte na příkazové tlačítko.
9. Přidejte následující řádky kódu:
Private Sub CommandButton1_Click ()
Dim i As Integer
Pro i = 1 až 10
Ovládací prvky ("TextBox" & i). Hodnota = buňky (i + 1, 1). Hodnota
Příště já
End Sub
Vysvětlení: Pouhými několika řádky kódu můžeme vyplnit textová pole telefonními čísly z listu. Ke zřetězení (spojení) prvků jsme použili operátor &. Tyto řádky kódu fungují, protože jsme nezměnili názvy ovládacích prvků textového pole (TextBox1, TextBox2, TextBox3 atd.). Chcete -li změnit názvy ovládacích prvků, klikněte na Zobrazit, Okno vlastností a klikněte na každý ovládací prvek.
Výsledek po kliknutí na příkazové tlačítko na listu:
