Ein Drehknopf kann verwendet werden, um eine Zahl in einer Zelle zu erhöhen. Um ein zu erstellen Drehknopf In Excel VBA, führen Sie die folgenden Schritte aus.
1. Klicken Sie auf der Registerkarte Entwicklertools auf Einfügen.
2. Klicken Sie in der Gruppe ActiveX-Steuerelemente auf Spin-Schaltfläche.
3. Ziehen Sie ein Drehfeld auf Ihrem Arbeitsblatt.
4. Klicken Sie mit der rechten Maustaste auf den Drehknopf (stellen Sie sicher, dass der Designmodus ausgewählt ist).
5. Klicken Sie auf Code anzeigen.
Hinweis: Sie können den Namen eines Steuerelements ändern, indem Sie mit der rechten Maustaste auf das Steuerelement klicken (stellen Sie sicher, dass der Designmodus ausgewählt ist) und dann auf Eigenschaften klicken. Für den Moment belassen wir SpinButton1 als Name des Drehknopfs.
6. Fügen Sie die folgende Codezeile hinzu, um dieses Drehfeld mit einer Zelle zu verknüpfen.
Range("C3").Value = SpinButton1.Value
7. Sie können ein Maximum und ein Minimum festlegen, indem Sie die folgenden Codezeilen hinzufügen.
SpinButton1.Max = 100
SpinButton1.Min = 0
8. Um den inkrementellen Wert zu ändern, verwenden Sie die SmallChange-Eigenschaft.
SpinButton1.SmallChange = 2
9. Klicken Sie auf die Pfeile des Drehfelds (stellen Sie sicher, dass der Designmodus deaktiviert ist).
Ergebnis:
Hinweis: Anstatt die Eigenschaften der Drehschaltfläche zur Laufzeit zu ändern, können Sie die Eigenschaften auch zur Entwurfszeit ändern. Um dies zu erreichen, klicken Sie mit der rechten Maustaste auf den Drehknopf (stellen Sie sicher, dass der Designmodus ausgewählt ist) und klicken Sie auf Eigenschaften.
