Gebruik Excel en VBA om een voortgangsbalk te maken.
Een voortgangsbalk wordt gebruikt in een computertoepassing om de voortgang van een bewerking aan te geven. Het is meestal een rechthoek die wordt geanimeerd naarmate een bewerking vordert. Visual Basic for Applications, of VBA, is een computerprogrammeertaal die in Microsoft Office Applications wordt gebruikt om routinetaken te automatiseren en om gebruikersinterfaces te creëren. U kunt eenvoudig een voortgangsbalk maken met VBA in Microsoft Office Excel. Excel is een spreadsheettoepassing die is opgenomen in de Microsoft Office-suite.
Stap 1
Open Microsoft Office Excel en druk vervolgens op "Alt" en "F11" om de Visual Basic Editor te openen. Klik met de rechtermuisknop op "VBAProject" en klik vervolgens op "UserForm" om een nieuw formulier in te voegen. Klik in het menu "Toolbox" op "Label". Terwijl u uw muisknop ingedrukt houdt, sleept u op het formulier om een nieuw labelbesturingselement te maken.
Video van de dag
Stap 2
Klik met de rechtermuisknop op het label en selecteer 'Eigenschappen', wijzig vervolgens 'Hoogte' in 42 en 'Breedte' in 12. Verander de "Bovenste" in 12. Maak nog negen labels met hetzelfde proces.
Stap 3
Klik op "CommandButton" in het deelvenster "Toolbox" en voeg een nieuwe knop toe aan uw formulier. Klik met de rechtermuisknop op "CommandButton" en klik op "Code weergeven" om een nieuwe procedure te maken.
Stap 4
Typ het volgende om een nieuwe variabele te maken en de waarde ervan te definiëren:
Dim cnt Als geheel getal cnt = 0
Stap 5
Typ het volgende om alle labels te verbergen wanneer het formulier wordt gestart:
Mij. Label1.Visible = Valse mij. Label2.Visible = Valse mij. Label3.Visible = Valse mij. Label4.Visible = Valse mij. Label5.Zichtbaar = False Mij. Label6.Visible = Valse mij. Label7.Zichtbaar = Valse mij. Label8.Zichtbaar = Valse mij. Label9.Zichtbaar = Valse mij. Label10.Zichtbaar = False
Stap 6
Typ het volgende om een while-lus te maken en 10 keer te herhalen terwijl de code 5 seconden wordt onderbroken:
Doen terwijl cnt <> 10
Selecteer Case cnt Case Is = 1 Me. 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.Zichtbaar = True Me. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = True Me. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Zichtbaar = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Zichtbaar = True Me. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Zichtbaar = True Me. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Zichtbaar = True Me. Label10.BackColor = vbBlue End Select. Mij. Applicatie opnieuw schilderen. Wacht nu + TimeValue("00:00:05")cnt = cnt + 1
Lus
Stap 7
Klik op het menu "Invoegen" en klik vervolgens op "Module" om een nieuwe module toe te voegen. Kopieer en plak de onderstaande code om uw "UserForm1." te starten:
Sub showProgressBar() UserForm1.Show End Sub
Druk op "F5" om uw programma uit te voeren.
