Een voortgangsbalk wordt gebruikt in een computer applicatie om de voortgang van een handeling blijkt . Het is vaak een rechthoek die is geanimeerd als een operatie maakt vooruitgang . Visual Basic for Applications , of VBA is een programmeertaal gebruikt in Microsoft Office-toepassingen om routinetaken te automatiseren en user interfaces te creëren . U kunt eenvoudig een voortgangsbalk met behulp van VBA in Microsoft Office Excel . Excel is een spreadsheet-applicatie opgenomen in de Microsoft Office suite . Instructies
1 Open Microsoft Office Excel , druk daarna op " Alt " en " F11 " om de Visual Basic Editor te openen . Klik met de rechtermuisknop " VBAProject , " en klik op ' UserForm "om een nieuw formulier te voegen . Uit het menu " Toolbox " , klik op " Label ". Terwijl uw muisknop ingedrukt houdt , sleept u op het formulier om een nieuw label controle te creëren . Kopen van 2 rechtermuisknop op het label en selecteer "Eigenschappen ", dan veranderen "Hoogte " tot 42 en " breedte " te 12 . Verander de " Top " naar 12 . Maak negen meer labels via hetzelfde proces .
3 Klik op " CommandButton " op de " Toolbox " paneel en voeg een nieuwe knop aan uw formulier . . Rechts-klik " deCommandButton " en klik op " Bekijk Code " om een nieuwe procedure te creëren
Type 4 de volgende opties om een nieuwe variabele te maken en te definiëren zijn waarde : Dim cnt
als integer
cnt = 0
5 Typ het volgende om alle labels verbergen wanneer de Vorm begint : Me.Label1.Visible = False
Me.Label2.Visible = False
= False
= False
Me.Label5.Visible = False < br Me.Label3.Visible Me.Label4.Visible > Me.Label6.Visible = False
Me.Label7.Visible = False
Me.Label8.Visible = False
Me.Label9.Visible = False Me.Label10.Visible = False
Type
6 het volgende om een tijdje lus te maken en herhalen 10 keer tijdens het pauzeren van de code voor 5 seconden :
Do terwijl cnt < > 10
Selecteer Case cnt Case
Is = 1 Me.Label1.Visible = True Me.Label1.BackColor
= vbBlue Case
Is = = True
Me.Label2.BackColor = vbBlue Case Me.Label2.Visible 2
Is = 3 < br Me.Label3.Visible = True Me.Label3.BackColor = vbBlue Case
Is = 4
Me.Label4.Visible = True Aanmelden> Me.Label4.BackColor = vbBlue Case
Is = 5
= True
Me.Label5.BackColor = vbBlue
Me.Label5.Visible Case Is = = True
Me.Label6.BackColor = vbBlue Case Me.Label6.Visible 6
Is = 7
Me . Label7.Visible = True
Me.Label7.BackColor = vbBlue Case
Is = Me.Label8.Visible = True
8
Me.Label8 . BackColor = vbBlue Case
Is = 9
= True
Me.Label9.BackColor = vbBlue Case Me.Label9.Visible
Is = 10 Me.Label10.Visible = True Me.Label10.BackColor Einde = vbBlue
Selecteer
Me.Repaint Application
. Wacht nu + TimeValue ( " 00:00:05 " ) op Twitter cnt = cnt + 1 Loop
7
Klik op het menu "Invoegen" en klik vervolgens op " module " om een nieuwe module toe te voegen . Kopieer en plak de code hieronder om uw " UserForm1 . " Start : Sub showProgressBar
( ) UserForm1.Show End
Sub Pers Nieuws " F5 "om uw programma te draaien .
|
