Hoe maak voortgangsbalk in VBA

Gebruik Excel en VBA om een voortgangsbalk te maken. didital kaartbeeld door Charles Taylor uit Fotolia.com

een voortgangsbalk wordt gebruikt in een computer applicatie om de voortgang van een operatie aan te geven.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 een voortgangsbalk met VBA in Microsoft Office Excel eenvoudig.Excel is een spreadsheet-applicatie is opgenomen in de Microsoft Office-suite.

instructies

  1. Open Microsoft Office Excel en druk op "Alt" en "F11" om de Visual Basic-editor te openen.Klik met de rechtermuisknop "VBAProject," klik "UserForm" naar een nieuw formulier in te voegen.Uit het menu "Toolbox", klikt u op 'Label'.Terwijl uw muisknop ingedrukt houdt, sleept u op het formulier om een ​​nieuw label controle te creëren.

  2. rechtermuisknop op het label en selecteer "Eigenschappen", dan vera

    nderen "Hoogte" 42 en "breedte" 12. Wijziging van de "Top" naar 12. Maak negen meer labels met behulp van hetzelfde proces.

  3. Klik op "CommandButton" op de "Toolbox" venster en voegt een nieuwe knop op uw formulier.Klik met de rechtermuisknop "CommandButton" en klik op "Code View" naar een nieuwe procedure te maken.

  4. Typ het volgende om een ​​nieuwe variabele te creëren en te definiëren zijn waarde:

    Dim cnt As Integer

    cnt = 0

  5. Typ het volgende om alle labels te verbergen wanneer de Vorm begint:

    Me.Label1.Visible = False

    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. Typ het volgende om een ​​tijdje lus te maken en herhalen 10keer terwijl het pauzeren van de code voor 5 seconden:

    Do Terwijl cnt & lt; & gt;10

    Select Case

    Case CNT = 1

    Me.Label1.Visible = True

    Me.Label1.BackColor = vbBlue

    geval = 2

    Me.Label2.Visible = True

    Me.Label2.BackColor= vbBlue

    Case Is = 3

    Me.Label3.Visible = True

    Me.Label3.BackColor = vbBlue

    geval = 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

    geval Is = 8

    Me.Label8.Visible = True

    Me.Label8.BackColor = vbBlue

    geval is= 9

    Me.Label9.Visible = True

    Me.Label9.BackColor = vbBlue

    Case Is = 10

    Me.Label10.Visible = True

    Me.Label10.BackColor = vbBlue

    End Select

    Me.Repaint

    Application.Wait nu + TimeValue ("00:00:05")

    cnt = cnt + 1

    Loop

  7. Klik op het menu "Invoegen" en klik op "Module" om een ​​nieuwe module toe te voegen.Kopieer en plak de code hieronder om te beginnen "UserForm1.":

    Sub showProgressBar ()

    UserForm1.Show

    End Sub

    Druk op "F5" om uw programma uit te voeren.

679
0
3
Visual Basics Programming