Den beste måten å tillate en bruker øke eller redusere en verdi i Microsoft Excel-programmet når det kjører en makro er å bruke en spin -knappen . En makro er vanlig å spille inn en sekvens med handlinger som kan senere bli henrettet ved å kjøre makroen manuelt eller ved å klikke på en knapp. En makro er skapt gjennom bruk av Visual Basic for Applications ( VBA ) , et programmeringsspråk som brukes i Microsoft Office-programmer for å automatisere rutineoppgaver for eksempel vise en spinner . Instruksjoner
en

Launch Microsoft Excel , klikker du på " Developer " og klikk på " Insert "-ikonet på " Controls " -panelet . Klikk på " Button " og klikk på regneark for å legge til en ny kommando -knappen . Klikk " Spin Button" under " ActiveX-kontroller " og legge den til regnearket.
2

Høyreklikk spinner og klikk " Properties" for å vise eiendommen vinduet. Velg " False " ved siden av " Synlig " eiendom . Klikk på " Makroer "-ikonet og type " IncrementValues ​​" under " Macro navn. " Klikk på " Create" -knappen for å opprette en ny makro .
3

Kopier og lim inn følgende kode for å lage en " While ... Loop " og oppdater regneark med verdier hver gang brukeren klikker spinner knappen : en

Sheet1.SpinButton1.Visible = sant

Mens ( teller < > 10 )

Range (" A1 ") Velg < . br >

Range (" A1 ") . Verdi = teller

Range (" A2" ) . Velg

Range (" A2" ) . Verdi = "Macro kjører ... "

Application.Wait nå + TimeValue ( " 00:00:02 ")

DoEvents

Loop

Range (" A1 ") . Velg

Range (" A1 ") . Verdi = " "

Range (" A2" ) . Velg

Range (" A2" ) . Verdi = "Macro avsluttet. "

Sheet1.SpinButton1.Visible = False

teller = 0
4

Legg til følgende linje med kode i toppen av modulen til å lage en global variabel : en

Global teller As Integer
5

Switch tilbake til Microsoft Excel og høyreklikk " knapp 1 ". Klikk på " Tilordne makro " og klikk " IncrementValues ​​. " Klikk "OK".
6

Høyreklikk spinner knappen og klikk " Vis kode " for å åpne en VBA-kode modul . Kopier og lim inn følgende kode for å øke eller minske global variabel verdi : en

Private Sub SpinButton1_SpinDown ( )

teller = teller - en

End Sub
< p > Private Sub SpinButton1_SpinUp ( )

teller = teller + 1

End Sub
7

Switch tilbake til Microsoft Excel , og klikk " knapp 1 " for å starte å kjøre makro og vise spinner kontroll. Klikk pil opp av spinner -knappen for å øke eller pil ned for å minske . Makroen vil skjule spinner og stopper når den globale variabelen tilsvarer 10 .