VBA-Fortschrittsbalken - Erstellen Sie ein Fortschrittsbalkendiagramm mit VBA-Code

Excel VBA-Fortschrittsbalken in Excel

Der Fortschrittsbalken zeigt uns, wie viel eines Prozesses ausgeführt oder abgeschlossen wurde, wenn wir große Sätze von Codes ausführen, deren Ausführung mehr Zeit erfordert. Wir verwenden den Fortschrittsbalken in VBA, um dem Benutzer den Status des Prozesses anzuzeigen, oder ob wir dies tun Wenn mehrere Prozesse in einem einzigen Code ausgeführt werden, verwenden wir den Fortschrittsbalken, um anzuzeigen, welcher Prozess wie weit fortgeschritten ist.

Ein Fortschrittsbalken zeigt den Prozentsatz der Aufgaben an, die erledigt wurden, wenn die eigentliche Aufgabe hinter dem Bildschirm ausgeführt wird, und enthält eine Reihe von Anweisungen, die im Code enthalten sind.

Wenn die Ausführung des VBA-Codes viel Zeit in Anspruch nimmt, muss der Benutzer wissen, wie schnell er fertig sein kann. Standardmäßig müssen wir auf die volle Zeit warten, um die Aufgabe abzuschließen. Durch Einfügen des Fortschrittsbalkens erfahren wir jedoch den Fortschritt des VBA-Codes.

In fast der gesamten Computersoftware wird ein Fortschrittsbalkendiagramm angezeigt, das den Fortschritt der von uns ausgeführten Aufgabe genau wie im folgenden Bild zeigt.

In Excel to können wir mithilfe der VBA-Codierung einen Fortschrittsbalken erstellen. Wenn Sie sich jemals gefragt haben, wie wir einen Fortschrittsbalken erstellen können, dann ist dies der Artikel, der auf Sie zugeschnitten ist.

Erstellen Sie Ihren eigenen Fortschrittsbalken

Um einen Fortschrittsbalken zu erstellen, müssen wir mehrere Schritte ausführen. Im Folgenden finden Sie die Schritte zum Erstellen des Fortschrittsbalkendiagramms.

Schritt 1: Erstellen oder Einfügen eines neuen Benutzerformulars.

Sobald Sie auf die Option oben klicken, wird ein Benutzerformular wie das folgende angezeigt.

Schritt 2: Drücken Sie die Taste F4 , um das Fenster mit den VBA-Eigenschaften anzuzeigen.

Auf dieser Registerkarte "Eigenschaften" müssen wir die Eigenschaften des von uns eingefügten VBA-Benutzerformulars ändern.

Schritt 3: Ändern Sie den Namen des Benutzerformulars in UFProgressBar.

Jetzt können wir dieses Benutzerformular beim Codieren mit dem Namen "UFProgressBar" verknüpfen.

Schritt 4: Ändern Sie die Show Model-Eigenschaft des Benutzerformulars in FALSE.

Schritt 5: Passen Sie nun die Ausrichtung des Benutzers an Ihre Bedürfnisse an. Ich habe die Höhe des Benutzerformulars auf 120 und die Breite auf 300 geändert.

Schritt 6: Ändern Sie die Beschriftung des Benutzerformulars in "Fortschrittsstatusleiste".

Schritt 7: Fügen Sie nun aus der Toolbox des Benutzerformulars LABEL in das Benutzerformular oben ein.

Bei dieser Beschriftung müssen wir die Eigenschaften der Beschriftung festlegen. Löschen Sie die Beschriftung, machen Sie sie leer und passen Sie die Breite des Etiketts an.

Schritt 8: Ändern Sie den Namen des Etiketts in "ProgessLabel".

Schritt 9: Nehmen Sie nun aus der Toolbox den Rahmen und zeichnen Sie direkt unter die Beschriftung, die wir in den vorherigen Schritten eingefügt haben. Stellen Sie sicher, dass sich der Rahmen in der Mitte des Benutzerformulars befindet.

Schritt 10: Jetzt müssen wir einige Eigenschaften des Frames ändern, damit er genauso aussieht wie das von uns eingefügte Benutzerformular.

Eigenschaft 1: Ändern Sie den Namen des Frames in "ProgressFrame".

Eigenschaft 2: Löschen Sie die Beschriftung und machen Sie sie leer.

Eigenschaft 3: Ändern Sie den Spezialeffekt des Frames in 6 - fmSpecialEffectBump.

Nach all diesen Änderungen sollte unser Benutzerformular so aussehen.

Schritt 11: Fügen Sie nun ein weiteres Etikett ein. Fügen Sie diesmal das Etikett direkt in den Rahmen ein, den wir eingefügt haben.

Stellen Sie beim Einfügen des Etiketts sicher, dass die linke Seite des Etiketts genau zu dem Rahmen passt, den wir eingefügt haben, wie im obigen Bild gezeigt.

Schritt 12: Ändern Sie nach dem Einfügen des Etiketts die Eigenschaften des Etiketts wie folgt.

Eigenschaft 1: Ändern Sie den Namen des Labels in "MainProgressLabel".

Eigenschaft 2: Löschen Sie die Beschriftung.

Eigenschaft 3: Ändern Sie die Hintergrundfarbe nach Ihren Wünschen.

Ok, jetzt sind wir mit dem Einrichten des Fortschrittsbalkens fertig und zu diesem Zeitpunkt sieht es so aus.

Jetzt müssen wir Codes eingeben, damit dies perfekt funktioniert.

Schritt 13: Um das Framework zu erstellen, fügen Sie das folgende Makro in Excel hinzu.

Code:

Sub InitUFProgressBarBar () Mit UFProgressBar .Bar.Width = 0 .Text.Caption = "0%" .Show vbModeless End With

Hinweis: "UFProgressBar" ist der Name des Benutzerformulars, und "Bar" ist der Name des von uns erstellten Rahmens, und "Text" ist der Name des Etiketts im Rahmen.

Wenn Sie diesen Code manuell oder über die Taste F5 ausführen, sollte der Fortschrittsbalken wie folgt angezeigt werden.

Schritt 14: Jetzt müssen wir ein Makro erstellen, um unsere Aufgabe auszuführen. Ich führe die Aufgabe aus, Seriennummern von 1 bis 5000 einzufügen. Zusammen mit diesem Code müssen wir auch das Fortschrittsbalkendiagramm konfigurieren, das. Der W-Code ist der maßgeschneiderte Code für Sie.

Code:

Sub ProgressBar_Chart () Dim i As Long Dim CurrentUFProgressBar As Double Dim UFProgressBarPercentage As Double Dim BarWidth As Long i = 1 Aufruf von InitUFProgressBarBar Do While i <= 5500 Cells (i, 1) .Value = i CurrentUFProgressBar = i / 2500 BarWidth = UFProgressBar. Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete" DoEvents i = i + 1 EndBoop Unop