Wie Progress Bar in VBA erstellen

Mitglieder-Login

InformationenVisual Basics Programmierung

Recordsets sind Visual Basic Objekt… Wie man ein Recordset öffnen . Sie können Recordset-Objekte mit einer Datenbank , die eine Microsoft
Wie man HTML-Tabellen Mit VBA Acces… Visual Basic für Applikationen ( VBA) ist die Programmiersprache für Microsofts Datenbank-Programm A
Wie man eine neue Instanz von Visua… Erstellen einer neuen Instanz von Visual Basic ist eine Frage der Schaffung entweder ein neues Proje
Wie Lesen und Schreiben , um den Ed… Programmiersprachen sind nützliche und mächtige Werkzeuge auf ihre eigenen, aber zu ihrer vollsten v

Programming

HOME

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

Wie Progress Bar in VBA erstellen

Ein Fortschrittsbalken wird in einer EDV-Anwendung verwendet, um den Fortschritt eines Vorgangs anzuzeigen. Es ist allgemein ein Rechteck, das animiert wie eine Operation macht Fortschritte ist . Visual Basic für Applikationen oder VBA ist eine Programmiersprache in Microsoft Office-Anwendungen verwendet, um Routineaufgaben zu automatisieren und Benutzeroberflächen erstellen. Sie können sehr einfach ein Fortschrittsbalken mit VBA in Microsoft Office Excel. Excel ist ein Tabellenkalkulationsprogramm in der Microsoft Office-Suite enthalten. Anleitung
1

Öffnen Sie Microsoft Office Excel , und drücken Sie "Alt " und " F11 ", um den Visual Basic -Editor zu öffnen . Der rechten Maustaste auf " VBAProject " und anschließend auf " UserForm " zu einer neuen Form einzufügen. Von der "Toolbox" -Menü auf " Etikett ". Halten Sie die Maustaste gedrückt , auf dem Formular ein neues Label -Steuerelement zu erstellen ziehen .
2

rechten Maustaste auf die Markierung und wählen Sie "Eigenschaften ", dann ändern "Höhe" auf 42 und "Breite" , um 12 . Ändern Sie den "Top" bis 12 . Erstellen Sie neun weitere Etiketten mit dem gleichen Verfahren .
3

Klicken Sie auf " CommandButton " auf der "Toolbox" Fenster und fügen Sie eine neue Schaltfläche in das Formular. . Rechten Maustaste auf " CommandButton " und klicken Sie auf " Code anzeigen ", um ein neues Verfahren zu erstellen
4

Geben Sie den folgenden , um eine neue Variable zu erstellen und definieren Sie seinen Wert:

Dim cnt Wie Integer

cnt = 0
5

Geben Sie den folgenden , alle Etiketten verstecken, wenn das Formular beginnt :

Me.Label1.Visible = False
< p> Me.Label2.Visible = False

Me.Label3.Visible = False

Me.Label4.Visible = False

Me.Label5.Visible = False

Me.Label6.Visible = False

Me.Label7.Visible = False

Me.Label8.Visible = False

Me.Label9.Visible = False

Me.Label10.Visible = False
6

Geben Sie den folgenden , um eine while-Schleife erstellen und durchlaufen 10 mal während der Pause den Code für 5 Sekunden :

Do während cnt <> 10

Select Case cnt

Fall = 1

Me.Label1.Visible = True

Me.Label1.BackColor = vbBlue

Fall = 2

Me.Label2.Visible = True

Me.Label2.BackColor = vbBlue

Fall = 3

Me.Label3.Visible = True

Me.Label3.BackColor = vbBlue

Fall = 4

Me.Label4.Visible = True

Me.Label4.BackColor = vbBlue

Fall = 5

Me.Label5.Visible = True

Me.Label5.BackColor = vbBlue
< p > Case Is = 6

Me.Label6.Visible = True

Me.Label6.BackColor = vbBlue

Fall = 7

Me . Label7.Visible = True

Me.Label7.BackColor = vbBlue

Fall = 8

Me.Label8.Visible = True

Me.Label8 . BackColor = vbBlue

Fall = 9

Me.Label9.Visible = True

Me.Label9.BackColor = vbBlue

Fall = 10

Me.Label10.Visible = True

Me.Label10.BackColor = vbBlue

End Select

Me.Repaint

Anwendung . warten jetzt + TimeValue ( " 00.00.05 " )

cnt = cnt + 1

Schleife
7

Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" ein neues Modul hinzufügen. Kopieren Sie den folgenden Code auf Ihre " UserForm1 . " Starten:

Sub showProgressBar ()

UserForm1.Show

End Sub