In VBA können Sie a Spin-Taste die es einem Benutzer ermöglicht, eine Zahl in der Zelle in einem definierten Bereich zu erhöhen. Jedes Mal, wenn ein Benutzer auf eine Schaltfläche klickt, wird die Zahl erhöht oder verringert. In diesem Tutorial erfahren Sie, wie Sie eine Spin-Schaltfläche erstellen und in Excel und VBA verwenden.
Wenn Sie erfahren möchten, wie Sie eine Optionsschaltfläche verwenden, klicken Sie auf diesen Link: Optionsschaltfläche Excel VBA
Erstellen Sie einen Spin-Button
Um eine Spin-Schaltfläche in das Arbeitsblatt einzufügen, müssen Sie zum Registerkarte "Entwickler", klicken Einfügung und unter ActiveX-Steuerelemente wählen Sie Spin-Taste:
Bild 1. Fügen Sie eine Spin-Schaltfläche in das Arbeitsblatt ein
Wenn Sie den Spin-Button auswählen, den Sie eingefügt haben, können Sie auf klicken Eigenschaften unter dem Registerkarte "Entwickler":
Bild 2. Eigenschaften der Spin-Schaltfläche ändern
Hier können Sie verschiedene Eigenschaften des Spin-Buttons einstellen. Für den Anfang haben wir das Attribut geändert Name zu spbSpinButton. Jetzt können wir die Spin-Schaltfläche mit diesem Namen im VBA-Code verwenden. Weitere wichtige Attribute sind Mindest und Max, die einen Nummernkreis definieren und Kleine Veränderung die einen Schritt der Inkrementierung definiert.
Setzen Sie eine Spin-Schaltfläche mit VBA
Wir werden zuerst sehen, wie Sie die Eigenschaften einer Spin-Schaltfläche in VBA festlegen und einen Wert in Worksheet abrufen. Der Code muss im Ereignis sein Ändern des Objekts spbSpinButton. Sie können an diesem Event teilnehmen, indem Sie mit der rechten Maustaste auf die Schaltfläche Spin klicken und auswählen Code anzeigen Möglichkeit. Hier ist der Code:
| 1234567891011 | Private Sub spbSpinButton_Change()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Zuerst legen wir die untere Grenze für den Nummernkreis fest:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Danach legen wir die Obergrenze für den Nummernkreis fest:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Wir müssen auch den Schritt für die Zahleninkrementierung festlegen:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Schließlich weisen wir der Zelle B2 den aktuellen Wert des Spin-Buttons zu. Dieser Wert ist im Wert Attribut des Objekts Sheet1.spbSpinButton:
| 1 | Sheet1.Range("B2") = Sheet1.spbSpinButton.Value |
Wenn wir jetzt auf die Schaltfläche Spin klicken, wird der Wert um 10 im Bereich von 100-200 erhöht oder verringert:
Bild 3. Erhöhen Sie eine Zahl mit der Spin-Taste in VBA
Legen Sie eine Spin-Schaltfläche in Excel fest
Eine andere Möglichkeit, eine Spin-Schaltfläche festzulegen, ist die Verwendung der Eigenschaften. Klicke auf Eigenschaften unter dem Registerkarte "Entwickler":
Bild 4. Legen Sie eine Spin-Schaltfläche in Excel fest
Hier können wir alle gewünschten Attribute setzen: Mindest ist 10, Max ist 100 und Kleine Veränderung ist 2. Wenn Sie das Ergebnis des Spin-Buttons in die Zelle B2 einfügen möchten, müssen Sie diese Zelle in das Attribut setzen LinkedCell.
