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:
Excel hoe u een secundaire as toevoegt
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 te tonen, plaats a Command knop op uw werkblad en voeg de volgende coderegel toe:
Privaat SubCommandButton1_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 .
hoe je elke andere cel in Excel kunt verduisteren
7. Dubbelklik in de Projectverkenner op UserForm1.
8. Dubbelklik op de knop Wissen.
9. Voeg de volgende coderegels toe:
Privaat SubCommandButton1_Click()GeencontroleAlscontrole
Voor ElkcontroleInUserForm1.Controls
IndienTypeName(contr) = 'CheckBox'Vervolgens
contr.Waarde = False
Einde Indien
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:
Ga naar het volgende hoofdstuk: Bereik
