S niekoľkými riadkami kódu to dokážeme ľahko slučka cez ovládacie prvky na Formulár používateľa VBA programu Excel. Forma užívateľa, ktorú vytvoríme, vyzerá nasledovne:
Ak chcete vytvoriť tento formulár používateľa, vykonajte nasledujúce kroky.
1. Otvorte editor jazyka Visual Basic. Ak Prieskumník projektov nie je viditeľný, kliknite na Zobraziť, Prieskumník projektu.
2. Kliknite na položku Vložiť, Používateľský formulár. Ak sa Panel s nástrojmi nezobrazí automaticky, kliknite na položku Zobraziť, Panel s nástrojmi. Vaša obrazovka by mala byť nastavená nižšie.
3. Pridajte štítok, začiarkavacie políčka (prvé hore, druhé pod prvým atď.) A príkazové tlačidlo. Keď je to dokončené, výsledok by mal byť v súlade s obrázkom používateľského formulára zobrazeným skôr. Napríklad vytvorte ovládací prvok začiarkavacieho políčka kliknutím na začiarkavacie políčko v Paneli s nástrojmi. Ďalej môžete na užívateľskom formulári potiahnuť začiarkavacie políčko.
4. Môžete zmeniť názvy a titulky ovládacích prvkov. Mená sa používajú v kóde programu Excel VBA. Titulky sú tie, ktoré sa zobrazujú na vašej obrazovke. Je dobrým zvykom zmeniť názvy ovládacích prvkov, ale nie je to potrebné, pretože v tomto prípade máme iba niekoľko ovládacích prvkov. Ak chcete zmeniť nadpis formulára User, štítok, začiarkavacie políčka a príkazové tlačidlo, kliknite na položku Zobraziť, Okno vlastností a kliknite na jednotlivé ovládacie prvky.
5. Ak chcete zobraziť formulár Userform, umiestnite na pracovný hárok príkazové tlačidlo a pridajte nasledujúci riadok kódu:
Súkromné sub CommandButton1_Click ()
UserForm1.Show
Koniec pod
Teraz sme vytvorili prvú časť užívateľského formulára. Hoci to už vyzerá úhľadne, po kliknutí na tlačidlo Vymazať sa ešte nič nestane.
6. Otvorte editor jazyka Visual Basic.
7. V programe Project Explorer dvakrát kliknite na položku UserForm1.
8. Dvakrát kliknite na tlačidlo Vymazať.
9. Pridajte nasledujúce riadky kódu:
Súkromné sub CommandButton1_Click ()
Dim contr Ako ovládanie
Pre každé pokračovanie v UserForm1.Controls
Ak TypeName (contr) = "CheckBox" Potom
contr.Value = False
Koniec Ak
Ďalšie
Koniec pod
Vysvetlenie: Excel VBA prechádza všetkými ovládacími prvkami vo formulári Userform. Funkcia TypeName sa používa na odfiltrovanie ovládacích prvkov začiarkavacieho políčka. Ak je začiarkavacie políčko, Excel VBA zruší začiarknutie políčka. Tu sa náhodne vyberie contr, môžete použiť akékoľvek meno. Na tento názov sa vo zvyšku kódu odvolávajte.
Výsledok po kliknutí na tlačidlo Vymazať:
