Met slechts een paar regels code kunnen we gemakkelijk doorloop controles op een Excel VBA-gebruikersformulier. Het gebruikersformulier dat we gaan maken ziet er als volgt uit:
Voer de volgende stappen uit om dit Userform aan te maken.
1. Open de Visual Basic-editor. Als de Projectverkenner niet zichtbaar is, klikt u op Beeld, Projectverkenner.
2. Klik op Invoegen, Gebruikersformulier. Als de Toolbox niet automatisch verschijnt, klikt u op View, Toolbox. Uw scherm moet worden ingesteld zoals hieronder.
3. Voeg het label, de selectievakjes toe (eerst bovenaan, de tweede onder de eerste, enzovoort) en de opdrachtknop. Zodra dit is voltooid, moet het resultaat consistent zijn met de afbeelding van het eerder getoonde gebruikersformulier. Maak bijvoorbeeld een selectievakje aan door in de Toolbox op CheckBox te klikken. Vervolgens kunt u een selectievakje op het gebruikersformulier slepen.
4. U kunt de namen en de bijschriften van de bedieningselementen wijzigen. Namen worden gebruikt in de Excel VBA-code. Bijschriften zijn de bijschriften die op uw scherm verschijnen. Het is een goede gewoonte om de namen van de besturingselementen te wijzigen, maar dat is hier niet nodig omdat we in dit voorbeeld maar een paar besturingselementen hebben. Om het bijschrift van het gebruikersformulier, het label, de selectievakjes en de opdrachtknop te wijzigen, klikt u op Beeld, Eigenschappenvenster en klikt u op elk besturingselement.
5. Om het gebruikersformulier weer te geven, plaatst u een opdrachtknop op uw werkblad en voegt u de volgende coderegel toe:
Privé Sub CommandButton1_Click()
UserForm1.Toon
Einde sub
We hebben nu het eerste deel van het Userform gemaakt. Hoewel het er al netjes uitziet, gebeurt er nog niets als we op de knop Wissen klikken.
6. Open de Visual Basic-editor.
7. Dubbelklik in de Projectverkenner op UserForm1.
8. Dubbelklik op de knop Wissen.
9. Voeg de volgende coderegels toe:
Privé Sub CommandButton1_Click()
Dim control Als controle
Voor elke contr In UserForm1.Controls
If TypeName(contr) = "CheckBox" Dan
contr.Waarde = False
Stop als
Volgende
Einde sub
Uitleg: Excel VBA doorloopt alle besturingselementen op het gebruikersformulier. De functie TypeName wordt gebruikt om de selectievakjes uit te filteren. Als een selectievakje is ingeschakeld, schakelt Excel VBA het selectievakje uit. contr wordt hier willekeurig gekozen, je kunt elke naam gebruiken. Vergeet niet om naar deze naam te verwijzen in de rest van uw code.
Resultaat wanneer u op de knop Wissen klikt:
