Miten luoda Progress Bar VBA

Käytä Excel ja VBA luodaetenemispalkki . didital kartta kuva Charles Taylor Fotolia.com

Edistymispalkki käytetään tietokoneohjelma osoittaa edistymistä toiminnan.Se on yleisesti suorakulmio, joka on animoitu kuin toiminta edistyy.Visual Basic for Applications, tai VBA, on tietokone ohjelmointikieli käytetään Microsoft Office Applications automatisoida rutiinitehtäviä ja luoda käyttöliittymiä.Voit helposti luoda edistymispalkki VBA Microsoft Office Excel.Excel on taulukkolaskentaohjelma sisältyy Microsoft Office.

Ohjeet

  1. Avaa Microsoft Office Excel, paina "Alt" ja "F11" avaa Visual Basic Editor.Napsauta hiiren kakkospainikkeella "VBAProject," sitten "käyttäjälomakkeen" lisätä uusi lomake.Valitse "Toolbox" valikosta "Label."Pitäen hiiren painiketta, vedä lomakkeen luot uuden tarran ohjaus.

  2. hiiren kakkospainikkeella etiketti ja valitse "Ominaisuudet", vaihda sitten "Korkeus" 42 ja "leveys" 12. Muuta "Top" 12. Luo yhdeksän tarroja käyttäen samaa prosessia.

  3. Klikkaa "CommandButton" päällä "Toolbox" ruudussa

    ja lisää uusi painike lomakkeeseen.Napsauta hiiren kakkospainikkeella "CommandButton" ja klikkaa "Näytä Code" luoda uusi menettely.

  4. Kirjoita seuraava luoda uuden muuttujan ja määrittää sen arvo:

    Dim cnt As Integer

    cnt = 0

  5. Kirjoita seuraava piilottaa kaikki tarrat kun muoto alkaa:

    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. Kirjoita seuraava luoda while-silmukka ja kerrata 10kertaa tauon koodi 5 sekuntia:

    tehdä, kun cnt & lt; & gt;10

    Valitse Case cnt

    tapauksessa = 1

    Me.Label1.Visible = True

    Me.Label1.BackColor = vbBlue

    tapauksessa = 2

    Me.Label2.Visible = True

    Me.Label2.BackColor= vbBlue

    asiassa Onko = 3

    Me.Label3.Visible = Tosi

    Me.Label3.BackColor = vbBlue

    tapauksessa = 4

    Me.Label4.Visible = Tosi

    Me.Label4.BackColor = vbBlue

    Asia on = 5

    Me.Label5.Visible = Tosi

    Me.Label5.BackColor = vbBlue

    asiassa on = 6

    Me.Label6.Visible = Tosi

    Me.Label6.BackColor = vbBlue

    Asia Onko = 7

    Me.Label7.Visible = True

    Me.Label7.BackColor = vbBlue

    tapauksessa = 8

    Me.Label8.Visible = True

    Me.Label8.BackColor = vbBlue

    tapauksessa= 9

    Me.Label9.Visible = Tosi

    Me.Label9.BackColor = vbBlue

    asiassa on = 10

    Me.Label10.Visible = Tosi

    Me.Label10.BackColor = vbBlue

    Loppu Valitse

    Me.Repaint

    Application.Wait nyt + TIMEVALUE ("00:00:05")

    snt = snt + 1

    Loop

  7. Klikkaa "Lisää" -valikosta ja napsauta "Moduuli" lisää uusi moduuli.Kopioi ja liitä alla oleva koodi aloittaa "UserForm1.":

    Sub showProgressBar ()

    UserForm1.Show

    End Sub

    Paina "F5" ajaa ohjelmaa.

808
0
3
Visual Basic Ohjelmointi