Den bedste måde at give en bruger forøge eller formindske en værdi i din Microsoft Excel ansøgning, når der køres en makro er ved hjælp af en rulleknap . En makro er almindeligt anvendt til at optage en sekvens af handlinger , der senere kan udføres ved at udføre makroen manuelt eller ved at klikke på en knap. En makro er skabt ved hjælp af Visual Basic for Applications ( VBA ), et edb-programmering sprog, der anvendes i Microsoft Office-programmer til at automatisere rutineopgaver såsom visning en spinner . Instruktioner
1

Launch Microsoft Excel , skal du klikke på "Udvikler " fanen og klik på "Indsæt "-ikonet på " Controls " ruden . Klik på " Button " og klik på regnearket for at tilføje en ny kommando knap. Klik på " Spin Button " under " ActiveX-objekter ", og føje det til regnearket.
2

Højreklik på spinneren og klik på "Egenskaber " for at vise ejendommen vinduet. Vælg " False " ved siden af ​​" Synlig " ejendom . Klik på " makroer" ikonet og skriv " IncrementValues ​​" nedenfor "Macro navn. " Klik på knappen "Opret" for at oprette en ny makro .
3

Kopier og indsæt følgende kode til at oprette en "Mens ... Loop " og opdatere regneark med værdier hver gang brugeren klikker på spinner knappen : Hej

Sheet1.SpinButton1.Visible = Sand

Do While ( counter < > 10 )

Range (" A1" ) Vælg < . br >

Range (" A1 "). Value = counter

Range (" A2 "). Vælg

Range (" A2 "). Value = "Macro kører ... "

Application.Wait nu + TIDSVÆRDI ( " 00:00:02 " )

DoEvents

Loop

Range (" A1 "). Vælg

Range (" A1 "). Value = " "

Range (" A2 "). Vælg

Range (" A2 "). Value = "Macro sluttede. "

Sheet1.SpinButton1.Visible = False

counter = 0
4

Tilføj følgende linje kode i toppen af ​​dit modul til at skabe en global variable : Hej

Global counter As Integer
5

Skift tilbage til Microsoft Excel og højre-klik " knap 1 ". Klik på " Tildel makro " og klik " IncrementValues ​​". Klik på "OK".
6

Højreklik på spinner knappen og klik på " View Code" for at åbne en VBA-kode modul. Kopier og indsæt følgende kode til forøge eller formindske den globale variabel værdi : Hej

Private Sub SpinButton1_SpinDown ()

counter = counter - 1

End Sub
< p > Private Sub SpinButton1_SpinUp ()

counter = counter + 1

End Sub
7

Skift tilbage til Microsoft Excel og klik på " knap 1 " for at starte køre makro og vise spinner kontrol . Klik på pil op for spinner knappen for at øge eller pil ned for at mindske. Makroen vil skjule spinner og stoppe kører, når den globale variabel er lig 10 .