Kuidas luua kulgu VBA

Kasuta Excel ja VBA luua progress bar . didital map pilti Charles Taylor Fotolia.com

kuluriba kasutatud arvutiprogrammide näidata edusamme operatsiooni.See on tavaliselt ristküliku, mis on animeeritud nagu operatsiooni teeb edusamme.Visual Basic for Applications või VBA, on arvuti programmeerimiskeelt kasutatakse Microsoft Office Applications automatiseerida rutiinsed ülesanded ja luua kasutajaliideseid.Võid kergesti luua edistymispalkki kasutades VBA Microsoft Office Excel.Excel on tabelarvutus sisaldub Microsoft Office.

juhised

  1. Open Microsoft Office Excel, siis vajuta "Alt" ja "F11" avada Visual Basic Editor.Paremklõpsake "VBAProject", siis vajuta "UserForm" lisada uus vorm.Alates "Toolbox" menüüst "Label".Hoides hiire nuppu, lohistage vormi, et luua uus label kontrolli.

  2. Paremklõpsake silt ja valige "Properties", siis muuda "Kõrgus" 42 ja "Laius" kuni 12. Change "Top" kuni 12. Loo üheksa siltide kasutades sama protsessi.

  3. Vajuta "CommandButton" kohta "Toolbox" pane ja lisada uus nupp oma vorm.Pa

    remklõpsake "CommandButton" ja vajuta "View Code", et luua uus kord.

  4. Tippige järgmine luua uue muutuja ja määratleda selle väärtus:

    Dim CNT Nagu Integer

    CNT = 0

  5. Tippige järgmine peita kõik sildid kui vorm hakkab:

    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. Tippige järgmine luua samas loop ja kordamiseks 10alati, kui pausid kood 5 sekundit:

    teha, kui CNT & lt; & gt;10

    Select Case CNT

    asi = 1

    Me.Label1.Visible = True

    Me.Label1.BackColor = vbBlue

    asi = 2

    Me.Label2.Visible = True

    Me.Label2.BackColor= vbBlue

    asi = 3

    Me.Label3.Visible = True

    Me.Label3.BackColor = vbBlue

    asi = 4

    Me.Label4.Visible = True

    Me.Label4.BackColor = vbBlue

    asi = 5

    Me.Label5.Visible = True

    Me.Label5.BackColor = vbBlue

    asi = 6

    Me.Label6.Visible = True

    Me.Label6.BackColor = vbBlue

    Case Kas = 7

    Me.Label7.Visible = True

    Me.Label7.BackColor = vbBlue

    asi = 8

    Me.Label8.Visible = True

    Me.Label8.BackColor = vbBlue

    asi= 9

    Me.Label9.Visible = True

    Me.Label9.BackColor = vbBlue

    asi = 10

    Me.Label10.Visible = True

    Me.Label10.BackColor = vbBlue

    End Select

    Me.Repaint

    Application.Wait Nüüd + TIMEVALUE ("00:00:05")

    CNT = CNT + 1

    Loop

  7. Vajuta "Lisa" menüü, seejärel "moodul" lisada uue mooduli.Kopeeri ja kleebi alljärgnev kood alustada oma "UserForm1.":

    Sub showProgressBar ()

    UserForm1.Show

    End Sub

    Press "F5" käivitada oma programmi.

498
0
3
Visual Basic Programmeerimine