Een draaiknop kan worden gebruikt om een getal in een cel te verhogen. om een te maken draaiknop in Excel VBA, voer de volgende stappen uit.
1. Klik op het tabblad Ontwikkelaars op Invoegen.
2. Klik in de groep ActiveX-besturingselementen op Draaiknop.
3. Sleep een draaiknop op uw werkblad.
4. Klik met de rechtermuisknop op de draaiknop (zorg ervoor dat Ontwerpmodus is geselecteerd).
5. Klik op Code weergeven.
Opmerking: u kunt de naam van een besturingselement wijzigen door met de rechtermuisknop op het besturingselement te klikken (zorg ervoor dat Ontwerpmodus is geselecteerd) en vervolgens op Eigenschappen te klikken. Voor nu laten we SpinButton1 als de naam van de spin-knop.
6. Om deze draaiknop aan een cel te koppelen, voegt u de volgende coderegel toe.
Bereik ("C3"). Waarde = SpinButton1. Waarde
7. U kunt een maximum en minimum instellen door de volgende coderegels toe te voegen.
SpinKnop1.Max = 100
SpinKnop1.Min = 0
8. Gebruik de eigenschap SmallChange om de incrementele waarde te wijzigen.
SpinButton1.SmallChange = 2
9. Klik op de pijlen van de draaiknop (zorg ervoor dat Ontwerpmodus is uitgeschakeld).
Resultaat:
Opmerking: in plaats van de eigenschappen van de draaiknop tijdens runtime te wijzigen, kunt u de eigenschappen ook tijdens het ontwerpen wijzigen. Om dit te bereiken, klikt u met de rechtermuisknop op de draaiknop (zorg ervoor dat Ontwerpmodus is geselecteerd) en klikt u op eigenschappen.
