Eine Spin-Taste kann verwendet werden, um eine Zahl in einer Zelle zu erhöhen. Um eine Spin-Button in Excel VBA zu erstellen, führen Sie die folgenden Schritte.

  1. Wählen Sie auf der Registerkarte Entwickler auf Einfügen.

  2. In der Gruppe ActiveX-Steuerelemente, klicken Sie auf Spin-Schaltfläche.

Create a spin button in Excel VBA

Ziehen Sie eine Spin-Taste 3. Wählen Sie auf Ihrem Arbeitsblatt.

  1. Rechts den Spin-Button klicken (vergewissern Sie sich Design-Modus gewählt ist).

  2. Klicken Sie auf Code anzeigen.

View Code

Hinweis: Sie können den Namen einer Kontrolle durch einen Rechtsklick auf die Steuerung ändern kann (stellen Sie sicher, Design-Modus gewählt ist) und dann auf Eigenschaften klicken. Vorerst werden wir SpinButton1 als Name der Spin-Taste verlassen.

  1. Diese Spin-Taste, um eine Verknüpfung zu einer Zelle, fügen Sie die folgende Codezeile.

Range("C3").Value = SpinButton1.Value

  1. Sie können indem Sie die folgenden Codezeilen ein Maximum und Minimum.

SpinButton1.Max = 100

SpinButton1.Min = 0

  1. Um den inkrementellen Wert zu ändern, verwenden Sie die Eigenschaft Smallchange.

SpinButton1.SmallChange = 2

  1. Die Pfeile der Spin-Button klicken (vergewissern Sie sich Design-Modus deaktiviert ist).

Ergebnis:

Spin Button

Hinweis: Statt die Eigenschaften der Spin-Taste zur Laufzeit ändern, können Sie auch die Eigenschaften zur Entwurfszeit ändern können. Um dies zu erreichen, klicken Sie rechts auf die Spin-Taste (vergewissern Sie sich Design-Modus ausgewählt ist) und klicken Sie auf Eigenschaften.

Properties