S několika řádky kódu můžeme snadno procházet ovládacími prvky na Uživatelská forma aplikace Excel VBA. 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, zaškrtávací políčka (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 zaškrtávacího políčka kliknutím na zaškrtávací políčko z panelu nástrojů. Dále můžete přetáhnout zaškrtávací políčko na Userform.
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 popis uživatelského formuláře, štítku, zaškrtávacích políček 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í jsme vytvořili první část Userform. Ačkoli to již vypadá úhledně, po kliknutí na tlačítko Vymazat se ještě nic nestane.
6. Otevřete editor jazyka.
7. V aplikaci Project Explorer dvakrát klikněte na UserForm1.
8. Poklepejte na tlačítko Vymazat.
9. Přidejte následující řádky kódu:
Private Sub CommandButton1_Click ()
Dim control jako ovládání
Za každé ovládání v UserForm1.Controls
Pokud TypeName (contr) = "CheckBox" Pak
contr.Value = False
Konec If
další
End Sub
Vysvětlení: Excel VBA prochází všemi ovládacími prvky na Userform. Funkce TypeName slouží k odfiltrování ovládacích prvků zaškrtávacího políčka. Pokud je zaškrtávací políčko ovládací prvek, Excel VBA zruší zaškrtnutí políčka. zde je náhodně vybráno contr, můžete použít libovolné jméno. Na tento název nezapomeňte odkazovat ve zbytku kódu.
Výsledek po kliknutí na tlačítko Vymazat:
