Det bästa sättet att tillåta en användare att öka eller minska ett värde i Microsoft Excel-program när ett makro körs är genom att använda en spin -knappen . Ett makro används ofta för att spela in en sekvens av åtgärder som senare kan exekveras genom att köra makrot manuellt eller genom att klicka på en knapp . Ett makro är skapad med hjälp av Visual Basic for Applications ( VBA ) , en dator programmeringsspråk som används i Microsoft Office-program för att automatisera rutinuppgifter som att visa en spinner . Instruktioner
1
Launch Microsoft Excel , klicka på " Utvecklare " fliken och klicka på " Infoga " -ikonen på " Controls " rutan . Klicka på " knappen" och klicka på kalkylbladet för att lägga till en ny kommandoknapp . Klicka på " Spin -knappen " nedan " ActiveX-kontroller " och lägga till den i kalkylbladet .
2
Högerklicka på spinnaren och klicka på " Egenskaper " för att visa egenskapsfönstret . Välj " False " bredvid " Synlig " egendom . Klicka på " Makron " -ikonen och skriv " IncrementValues " nedan " Macro namn . " Klicka på " Skapa " -knappen för att skapa ett nytt makro . Addera 3
Kopiera och klistra in följande kod för att skapa en " While ... Loop " och uppdatera kalkylblad med värden varje gång användaren klickar på spinner knappen :
Sheet1.SpinButton1.Visible = Sant
Do While ( räknare < > 10 ) katalog
Range ( " A1 " ) Välj < . br >
Range ( " A1 " ) . Value = räknare
Range ( " A2 " ) . Välj
Range ( " A2 " ) . Value = " Macro kör ... "
Application.Wait nu + TimeValue ( " 00:00:02 " ) katalog
DoEvents
Loop
Range ( " A1 " ) . Välj
Range ( " A1 " ) . Value = " "
Range ( " A2 " ) . Välj
Range ( " A2 " ) . Value = " Macro slutade . "
Sheet1.SpinButton1.Visible = False
räknare = 0
4
Lägg till följande kodrad i den absoluta toppen av din modul för att skapa en global variabel :
Global räknare As Integer
5
Växla tillbaka till Microsoft Excel och högerklicka på " Button 1 . " Klicka på " Koppla makro " och klicka på " IncrementValues . " Klicka på " OK . "
6
Högerklicka på spinnaren knappen och klicka på " Visa kod " för att öppna en VBA-kod modul . Kopiera och klistra in följande kod för att öka eller minska den globala variabeln värdet :
Private Sub SpinButton1_SpinDown ( ) katalog
räknare = räknare - 1
End Sub
Private Sub SpinButton1_SpinUp ( ) katalog
räknare = räknare + 1
End Sub
7
Växla tillbaka till Microsoft Excel och klicka på " Button 1 " för att börja köra makro och visa den spinnaren kontroll . Klicka på uppåtpilen för spinnaren knappen för att öka eller nedåtpilen för att minska värdet . Makrot döljer spinnaren och sluta köra när den globala variabeln lika med 10 . Addera
