Sådan oprettes Progress Bar i VBA

Brug Excel og VBA til at oprette en statuslinje . didital kortlægge billede af Charles Taylor fra Fotolia.com

en statuslinje anvendes i et edb-program til at angive forløbet af en operation.Det er almindeligt et rektangel, der er animeret som en operation gør fremskridt.Visual Basic for Applications, eller VBA, er en computer programmering sprog, der bruges i Microsoft Office-programmer til at automatisere rutineopgaver og skabe brugergrænseflader.Du kan nemt oprette en statuslinje hjælp VBA i Microsoft Office Excel.Excel er et regnearksprogram inkluderet i Microsoft Office-pakken.

Instruktioner

  1. Åbn Microsoft Office Excel, og derefter trykke på "Alt" og "F11" for at åbne Visual Basic Editor.Højreklik "VBAProject" og derefter klikke på "UserForm" for at indsætte en ny formular.Fra "Toolbox" i menuen, klik på "Label".Mens du holder museknappen, at træk på formular oprette en ny etiket kontrol.

  2. Højreklik på etiketten og vælg "Egenskaber" og derefter ændre "Højde" til 42 og "bredde" til 12. Skift "Top" til 12. Op

    ret ni flere etiketter ved hjælp af den samme proces.

  3. Klik på "CommandButton" på "Toolbox" ruden og tilføje en ny knap til din formular.Højreklik på "CommandButton" og klik "Vis kode" for at oprette en ny procedure.

  4. Skriv følgende for at oprette en ny variabel og definere dens værdi:

    Dim CNT As Integer

    cnt = 0

  5. Skriv følgende for at skjule alle de etiketter, når Form starter:

    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. Skriv følgende for at oprette en while-løkke og gentage 10gange, mens pause koden i 5 sekunder:

    gøre, mens CNT & lt; & gt;10

    Select Case CNT

    Case Er = 1

    Me.Label1.Visible = True

    Me.Label1.BackColor = vbBlue

    Case Is = 2

    Me.Label2.Visible = True

    Me.Label2.BackColor= vbBlue

    Case Er = 3

    Me.Label3.Visible = True

    Me.Label3.BackColor = vbBlue

    Case Is = 4

    Me.Label4.Visible = True

    Me.Label4.BackColor = vbBlue

    Case Er = 5

    Me.Label5.Visible = True

    Me.Label5.BackColor = vbBlue

    Case Er = 6

    Me.Label6.Visible = True

    Me.Label6.BackColor = vbBlue

    Case Er = 7

    Me.Label7.Visible = True

    Me.Label7.BackColor = vbBlue

    Case er = 8

    Me.Label8.Visible = True

    Me.Label8.BackColor = vbBlue

    Case er= 9

    Me.Label9.Visible = True

    Me.Label9.BackColor = vbBlue

    Case Er = 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 på "Indsæt" menuen og klik på "Modul" for at tilføje et nyt modul.Kopier og indsæt koden nedenfor til at starte din "UserForm1.":

    Sub showProgressBar ()

    UserForm1.Show

    End Sub

    Tryk på "F5" for at køre dit program.

849
0
3
Visual Basics Programming