In VBA kun je een maken Draaiknop waarmee een gebruiker een getal in de cel in een gedefinieerd bereik kan verhogen. Elke keer dat een gebruiker op een knop klikt, wordt het aantal verhoogd of verlaagd. In deze tutorial leer je hoe je een Spin-knop maakt en deze gebruikt in Excel en VBA.
Als u wilt leren hoe u een optieknop gebruikt, klik dan op deze link: Optieknop Excel VBA
Maak een draaiknop
Om een draaiknop in het werkblad in te voegen, moet je naar de Tabblad Ontwikkelaars, Klik Invoegen en kies onder ActiveX-besturingselementen: Draaiknop:
Afbeelding 1. Voeg een draaiknop in het werkblad in
Wanneer u de Spin-knop selecteert die u hebt ingevoegd, kunt u klikken op Eigendommen onder de Tabblad Ontwikkelaars:
Afbeelding 2. Wijzig de eigenschappen van de draaiknop
Hier kun je verschillende eigenschappen van de Spin-knop instellen. Om te beginnen hebben we het attribuut gewijzigd: Naam tot spbSpinKnop. Nu kunnen we de Spin-knop gebruiken met deze naam in VBA-code. Andere belangrijke kenmerken zijn: Min en Max, die een nummerbereik definiëren en Kleine verandering die een stap van incrementatie definieert.
Stel een draaiknop in met VBA
We zullen eerst zien hoe je eigenschappen van een Spin-knop in VBA kunt instellen en een waarde kunt krijgen in Worksheet. De code moet in gebeurtenis staan Wijziging van het object spbSpinKnop. U kunt deelnemen aan dit evenement door met de rechtermuisknop op de knop Draaien te klikken en te kiezen voor Bekijk code optie. Hier is de code:
| 1234567891011 | Privé sub spbSpinButton_Change()Blad1.spbSpinButton.Min = 100Blad1.spbSpinKnop.Max = 200Blad1.spbSpinButton.SmallChange = 10Blad1.Range("B2") = Blad1.spbSpinButton.ValueEinde sub |
Eerst stellen we de ondergrens voor het nummerbereik in:
| 1 | Blad1.spbSpinButton.Min = 100 |
Daarna stellen we de bovengrens voor het nummerbereik in:
| 1 | Blad1.spbSpinKnop.Max = 200 |
We moeten ook de stap voor nummerverhoging instellen:
| 1 | Blad1.spbSpinButton.SmallChange = 10 |
Ten slotte wijzen we de huidige waarde van de Spin-knop toe aan cel B2. Deze waarde is in de Waarde attribuut van het object Blad1.spbSpinKnop:
| 1 | Blad1.Range("B2") = Blad1.spbSpinButton.Value |
Wanneer we nu op de knop Draaien klikken, wordt de waarde met 10 verhoogd of verlaagd in het bereik van 100-200:
Afbeelding 3. Verhoog een getal met de draaiknop in VBA
Een draaiknop instellen in Excel
Een andere manier om een draaiknop in te stellen, is door de eigenschappen te gebruiken. Klik op Eigendommen onder de Tabblad Ontwikkelaars:
Afbeelding 4. Stel een draaiknop in Excel in
Hier kunnen we alle gewenste attributen instellen: Min is 10, Max is 100 en Kleine verandering is 2. Als u het resultaat van de Spin-knop in cel B2 wilt plaatsen, moet u deze cel in attribuut zetten LinkedCell.
