I VBA kan du skapa en Snurrknapp vilket gör att en användare kan öka ett tal i cellen inom ett definierat område. Varje gång en användare klickar på en knapp kommer antalet att öka eller minska. I den här självstudien lär du dig hur du skapar en Spin -knapp och använder den i Excel och VBA.
Om du vill lära dig hur du använder en alternativknapp, klicka på den här länken: Alternativknapp Excel VBA
Skapa en snurrknapp
För att infoga en snurrknapp i kalkylbladet måste du gå till Fliken Utvecklare, klick Föra in och välj under ActiveX -kontroller Snurrknapp:
Bild 1. Sätt in en centrifugeringsknapp i kalkylbladet
När du väljer Spin -knappen som du infogade kan du klicka på Egenskaper under Fliken Utvecklare:
Bild 2. Ändra centrifugeringsknappens egenskaper
Här kan du ställa in olika egenskaper för Spin -knappen. Till att börja med ändrade vi attributet namn till spbSpinButton. Nu kan vi använda Spin -knappen med detta namn i VBA -kod. Andra viktiga attribut är Min och Max, som definierar ett nummerintervall och Liten ändring som definierar ett steg av inkrementering.
Ställ in en centrifugeringsknapp med VBA
Vi kommer först att se hur man ställer in egenskaper för en Spin -knapp i VBA och får ett värde i kalkylblad. Koden måste finnas i händelse Förändra av föremålet spbSpinButton. Du kan delta i denna händelse genom att högerklicka på knappen Snurra och välja Visa kod alternativ. Här är koden:
| 1234567891011 | Privat sub spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueAvsluta Sub |
Först sätter vi den nedre gränsen för nummerintervall:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Efter det sätter vi den övre gränsen för nummerintervall:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Vi måste också ställa in steget för nummerökning:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Slutligen tilldelar vi det aktuella värdet på knappen Spin till cellen B2. Detta värde finns i Värde objektets attribut Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
När vi nu klickar på knappen Snurra kommer värdet att öka eller minska med 10 i intervallet 100-200:
Bild 3. Öka ett antal med knappen Snurra i VBA
Ställ in en centrifugeringsknapp i Excel
Ett annat sätt att ställa in en snurrknapp är att använda egenskaperna. Klicka på Egenskaper under Fliken Utvecklare:
Bild 4. Ställ in en centrifugeringsknapp i Excel
Här kan vi ställa in alla attribut vi vill ha: Min är 10, Max är 100 och Liten ändring är 2. Om du vill sätta resultatet av Spin -knappen i cellen B2, måste du sätta den här cellen i attribut LinkedCell.
