Verwenden Sie Excel und VBA, um einen Fortschrittsbalken zu erstellen.
Ein Fortschrittsbalken wird in einer Computeranwendung verwendet, um den Fortschritt einer Operation anzuzeigen. Normalerweise handelt es sich um ein Rechteck, das animiert wird, während eine Operation voranschreitet. Visual Basic for Applications oder VBA ist eine Computerprogrammiersprache, die in Microsoft Office-Anwendungen verwendet wird, um Routineaufgaben zu automatisieren und Benutzeroberflächen zu erstellen. Sie können ganz einfach mit VBA in Microsoft Office Excel einen Fortschrittsbalken erstellen. Excel ist eine Tabellenkalkulationsanwendung, die in der Microsoft Office-Suite enthalten ist.
Schritt 1
Öffnen Sie Microsoft Office Excel, drücken Sie dann "Alt" und "F11", um den Visual Basic-Editor zu öffnen. Klicken Sie mit der rechten Maustaste auf "VBAProject" und dann auf "UserForm", um ein neues Formular einzufügen. Klicken Sie im Menü "Toolbox" auf "Beschriftung". Ziehen Sie bei gedrückter Maustaste auf dem Formular, um ein neues Beschriftungssteuerelement zu erstellen.
Video des Tages
Schritt 2
Klicken Sie mit der rechten Maustaste auf das Etikett und wählen Sie "Eigenschaften", ändern Sie dann "Höhe" auf 42 und "Breite" auf 12. Ändere das "Oben" auf 12. Erstellen Sie neun weitere Etiketten mit dem gleichen Verfahren.
Schritt 3
Klicken Sie im Bereich "Toolbox" auf "CommandButton" und fügen Sie Ihrem Formular eine neue Schaltfläche hinzu. Klicken Sie mit der rechten Maustaste auf "CommandButton" und klicken Sie auf "Code anzeigen", um eine neue Prozedur zu erstellen.
Schritt 4
Geben Sie Folgendes ein, um eine neue Variable zu erstellen und ihren Wert zu definieren:
Dim cnt As Integer cnt = 0
Schritt 5
Geben Sie Folgendes ein, um alle Beschriftungen beim Start des Formulars auszublenden:
Mir. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = Falsches Ich. Label4.Visible = Falsches Ich. Label5.Visible = False Mir. Label6.Visible = Falsches Ich. Label7.Visible = Falsches Ich. Label8.Visible = Falsches Ich. Label9.Visible = Falsches Ich. Label10.Visible = False
Schritt 6
Geben Sie Folgendes ein, um eine while-Schleife zu erstellen und 10 Mal zu wiederholen, während Sie den Code für 5 Sekunden anhalten:
Do, während cnt <> 10
Wählen Sie Fall cnt Fall ist = 1 Ich. Label1.Visible = True Me. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = True Me. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Me. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = True Me. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = True Me. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = True Me. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = True Me. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = True Me. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = True Me. Label10.BackColor = vbBlue End Select. Mir. Anwendung neu lackieren. Jetzt warten + TimeValue("00:00:05")cnt = cnt + 1
Schleife
Schritt 7
Klicken Sie auf das Menü "Einfügen" und dann auf "Modul", um ein neues Modul hinzuzufügen. Kopieren Sie den folgenden Code und fügen Sie ihn ein, um Ihre "UserForm1." zu starten:
Sub showProgressBar() UserForm1.Show End Sub
Drücken Sie "F5", um Ihr Programm auszuführen.
