De beste manier om een gebruiker een waarde in uw Microsoft Excel- applicatie te verhogen of te verlagen wanneer een macro wordt uitgevoerd is met behulp van een spin-knop . Een macro wordt vaak gebruikt om een reeks handelingen die later kunnen worden uitgevoerd door de macro handmatig uitvoeren of door te klikken op een knop op te nemen . Een macro wordt gecreëerd door het gebruik van Visual Basic for Applications ( VBA ) , een programmeertaal gebruikt in Microsoft Office-toepassingen om routinetaken zoals het weergeven van een spinner automatiseren . Instructies
Lancering Microsoft Excel 1 , klikt u op het tabblad " Developer " en klik op het pictogram "Invoegen" op de " Controls " venster . Klik op " Button " en klik op de spreadsheet om een nieuwe opdracht knop toevoegen . Klik op " Spin Button " onder " ActiveX-besturingselementen " toevoegen aan de spreadsheet . Kopen van 2 Rechtsklik op de spinner en klik op "Eigenschappen " om het eigenschappenvenster weer te geven . Kies " Valse " naast de " Visible " eigenschap . Klik op de " macro's" icoon en type " IncrementValues " onder " Macro naam . " Klik op de knop "Create " om een nieuwe macro te maken .
Kopieer 3 en plak de volgende code om een " While ... Loop" maken en bijwerken van de spreadsheet met de waarden elke keer de de spinner knop gebruiker klikt : Sheet1.SpinButton1.Visible = True
Verlanglijstje Terwijl ( teller < > 10 ) Range
( " A1 " ) Selecteer < . br Range > ( " A1 " ) . Value = teller Range
( " A2 " ) . Selecteer Range
( " A2 " ) . Value = " Macro lopen ... " Application.Wait
nu + TimeValue ( " 00:00:02 " ) DoEvents Loop Range
( " A1 " ) . Selecteer Range
( " A1 " ) . Value = " " Range
( " A2 " ) . Selecteer Range
( " A2 " ) . Value = " Macro eindigde . "
Sheet1.SpinButton1.Visible = False teller
= 0
4 Voeg de volgende regel code in de top van de module aan een wereldwijd maken variabel : Global teller
als Geheel
Switch 5 terug naar Microsoft Excel en klik met de rechtermuisknop " Button 1 . " Klik op " Macro toewijzen " en klik op " IncrementValues . " Klik op "OK . "
6 Klik met de rechtermuisknop spinner knop en klik op " View Code " om een VBA-code -module te openen . Kopieer en plak de volgende code om de globale variabele waarde verhogen of te verlagen : Private Sub SpinButton1_SpinDown
( ) teller
= teller - 1
End Sub
Private Sub SpinButton1_SpinUp ( ) teller
= teller + 1 End Sub
Schakelaar
7 terug naar Microsoft Excel en klik op " Button 1 " om te beginnen met het uitvoeren van de macro en weergeven van de spinner controle. Klik op de pijl-omhoog van de spinner knop om increment of de pijl omlaag om te verlagen . De macro zal de spinner verbergen en stoppen als de globale variabele is gelijk aan 10 .
|
