Wie man einen Spinner Display, wenn ein VBA Makro ausgeführt

Mitglieder-Login

InformationenVisual Basics Programmierung

Wie Loops in VB.NET schreiben Loops sind eine häufige Programmiertechnik . Die meisten Anwendungen sind in erster Linie aus Schlau
. Wie man eine Datei in Class NET e… Klassen bieten Anwendungen mit wiederverwendbaren , portablen Code . Die Klassen sind logische Absch
Wie VBScript auf einem Remote-Compu… VBScript kann in einem beliebigen Text - Editing-Software , auch Notepad geschrieben werden. Das Erl
VBA für Word Tutorial Visual Basic für Applikationen ( VBA) ist eine Programmiersprache verwendet, um Aufgaben in Microsof

Programming

HOME

* Computer Wissen >> Programming >> Visual Basics Programmierung >> .

Wie man einen Spinner Display, wenn ein VBA Makro ausgeführt

Der beste Weg , damit ein Benutzer erhöhen oder verringern Sie einen Wert in Ihre Microsoft Excel-Anwendung , wenn ein Makro ausgeführt wird , ist mit einem Spin-Button . Ein Makro wird häufig verwendet, um eine Sequenz von Aktionen , die später durch Ausführen des Makros manuell oder durch Klicken auf eine Schaltfläche ausgeführt werden aufzeichnen kann. Ein Makro wird durch den Einsatz von Visual Basic für Applikationen (VBA ), eine Computer-Programmiersprache in Microsoft Office-Anwendungen verwendet, um Routineaufgaben wie das Anzeigen einer spinner automatisieren erstellt . Anleitung
1

Starten Sie Microsoft Excel , klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Einfügen" -Symbol auf dem "Controls" angezeigt. Klicken Sie "Button" und klicken Sie auf die Tabelle , um eine neue Schaltfläche hinzufügen. Klicken Sie auf " Spin -Knopf" unten " ActiveX Controls" und fügen Sie es in die Tabellenkalkulation .
2

rechten Maustaste auf den Spinner und klicken Sie auf " Eigenschaften", um das Eigenschaften-Fenster anzuzeigen. Wählen Sie "Falsch" neben dem " Visible"-Eigenschaft . Klicken Sie auf " Makros "-Symbol und geben Sie " IncrementValues " unten "Macro Namen. " Klicken Sie auf die Schaltfläche "Erstellen" , um ein neues Makro zu erstellen.
3

Kopieren Sie den folgenden Code, um eine " While ... Loop" erstellen und aktualisieren Sie die Tabelle mit den Werten jedes Mal das Benutzer klickt auf die Schaltfläche spinner :

Sheet1.SpinButton1.Visible = True

Do While ( Zähler <> 10)

Range (" A1") Wählen Sie < . br>

Range (" A1") . Value = Zähler

Range ( "A2" ) . Wählen

Range ( "A2" ) . Value = " Makro läuft ... "

Application.Wait jetzt + TimeValue ( " 00:00:02 " )

DoEvents

Schleife

Range (" A1 ") . Wählen

Range (" A1") . Value = " "

Range ( "A2" ) . Wählen

Range ( "A2" ) . Value = " Makro beendet. "

Sheet1.SpinButton1.Visible = False

counter = 0
4

Fügen Sie die folgende Codezeile in der Spitze des Moduls , um eine globale erstellen Variable :

Globale Zähler As Integer
5

Schalter zurück zu Microsoft Excel und der rechten Maustaste auf "Button 1". Klicken Sie auf " Makro zuweisen " und klicken Sie auf " IncrementValues . " Klicken Sie auf " OK".
6

rechten Maustaste auf die Schaltfläche spinner und klicken auf " Code anzeigen ", um eine VBA -Code-Modul zu öffnen. Kopieren Sie den folgenden Code zu erhöhen oder verringern Sie den Wert der globalen Variablen :

Private Sub SpinButton1_SpinDown ()

counter = Zähler - 1 of

End Sub