Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man använder VBA för att göra en Counter

    Skapa en räknare med Visual Basic for Applications ( VBA ) lätt kan åstadkommas med hjälp av ett användargränssnitt ( UI ) eller ett formulär . VBA är en dator programmeringsspråk som används på något av de Microsoft Office-program , t.ex. Excel . I Excel kan du skapa ett formulär med kontroller såsom etiketter och knappar för att starta, stoppa , återuppta och avsluta en räknare . Det bästa sättet att skapa en timer är att använda en " For ... Loop " och uppdatera en etikett med den senaste tiden tills användaren väljer att avbryta eller avsluta disken . Saker du behöver
    Microsoft Office Excel
    Visa fler instruktioner
    1

    Launch Microsoft Office Excel , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VB Editor . Klicka på " Infoga " -menyn och klicka på " UserForm " för att lägga till en ny form . Klicka på " Label " från " Toolbox " rutan och klicka på formuläret för att lägga till en ny etikett . Klicka på " Command Button " och klicka på formuläret för att lägga till en ny knapp . Lägg till ytterligare tre kommandoknappar med samma teknik .
    2

    Högerklicka på formen och klicka på " Visa kod " för att visa koden modulen . Lägg till följande kod för att skapa sex globala variabler för denna modul :

    Public stp As Boolean

    Public OldH

    Public OldM

    Public Olds

    Public OLDMLN
    3

    Kopiera och klistra in följande kod för att skapa en ny klick händelse för " CommandButton1 " för att starta timern :

    stp = False

    CommandButton1.Enabled = False

    CommandButton2.Enabled = Sant

    CommandButton3.Enabled = False

    H = 0

    För M = 0 till 59

    För S = 0 till 59

    För MLN = 0 till 59

    t = Timer

    göra tills Timer - t > = 1 /60

    DoEvents

    Loop
    p Om STP = sant då GoTo X Review

    Label1.Caption = _

    Format ( H , " 00 " ) & " : " & Format ( M , " 00 " ) _

    & " : " & Format ( S , " 00 " ) & " : " & Format ( MLN , " 00 " )

    Nästa MLN

    Nästa S

    Nästa M

    H = H + 1

    X :

    OldH = H

    OldM = M

    åringar = S

    OLDMLN = MLN

    stp = False
    4

    Kopiera och klistra in följande kod för att skapa en click-händelse för " CommandButton2 " som gör " CommandButton1 " och " CommandButton3 : "

    Private Sub CommandButton2_Click ( ) katalog

    CommandButton1.Enabled = Sant

    CommandButton2.Enabled = False

    CommandButton3.Enabled = Sant

    stp = Sant

    End Sub
    5

    Kopiera och klistra in följande kod för att skapa en click-händelse för " CommandButton3 " för att återuppta timern :

    Private Sub CommandButton3_Click ( ) katalog

    CommandButton3.Enabled = False

    CommandButton2.Enabled = Sant

    CommandButton1.Enabled = False

    stp = False

    H = OldH

    För M = OldM till 59

    För S = olds till 59

    För MLN = OLDMLN till 59

    t = Timer

    göra tills Timer - t > = 1/60

    DoEvents

    Loop
    p Om STP = sant då GoTo X Review

    Label1.Caption = _

    Format ( H , " 00 " ) & " : " & Format ( M , " 00 " ) _

    & " : " & Format ( S , " 00 " ) & " : " & Format ( MLN , " 00 " ) katalog

    Nästa MLN

    Nästa S

    Nästa M

    H = H + 1

    X :

    OldH = H

    OldM = M

    åringar = S

    OLDMLN = MLN

    stp = False

    End Sub
    6

    Skapa en click-händelse för " CommandButton4 " för att avsluta programmet :

    Private Sub CommandButton4_Click ( ) katalog

    Lasta mig

    End

    End Sub
    7

    Lägg till följande kod för att definiera bildtexter för märket och knapparna under start :

    Private Sub UserForm_Initialize ( ) katalog

    CommandButton1.Enabled = Sant

    CommandButton1.Caption = " Start Timer "

    CommandButton2.Enabled = False CommandButton2.Caption

    = " Stopp "

    CommandButton3.Enabled = False

    CommandButton3.Caption = " Återuppta timer "

    CommandButton4.Caption = " Avbryt "

    Label1.Caption = " 00:00:00:00 "

    End Sub
    8

    Lägg till följande kod för att avsluta programmet :

    Private Sub UserForm_QueryClose ( Cancel As Integer , CloseMode As Integer ) katalog p Om CloseMode = 0 Avbryt Sedan = Sant End

    sub
    9

    Dubbelklicka på " UserForm1 " från " Object Explorer " fönstret och tryck på " F5 " för att köra programmet . Klicka på " Start Timer " för att starta disken , klicka på " Stop " för att stoppa det , och klicka på " Återuppta Timer " för att återuppta disken . Klicka på " Avbryt " för att avsluta programmet .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Överbelastning metoder i Visual Basic
    ·Hur man skriver en xls-fil i VB
    ·Användning av LETARAD i VBA
    ·Hur du ändrar det aktiva fönstret i Visual Basic
    ·Hur man gör ett rutnät i Visual Basic
    ·Hur att rensa Urklipp Med VBScript
    ·Hur man gör en knapp Ring ett Private Sub i VB
    ·Hur fixar Driftstid Misstag 6
    ·Hur storleksändra importerade bilder i Visual Basic 20…
    ·Hur konvertera ett tal till ett datum i VB
    Utvalda artiklarna
    ·Hur får man det första elementet i en sträng i PHP
    ·Förteckning över SQL- kommandon
    ·Hur man raderar ProgressBar mapp med VBScript
    ·Hur man tar bort filer från MySQL med PHP
    ·NetBeans och Oracle Tutorial
    ·Hur man uppdaterar en Source SDK
    ·Inaktivera HTML Text Selection
    ·Funktioner I VB.NET
    ·Hur du använder Force Feedback med GTA IV för Xbox
    ·Hur man tar bort den APP_NAME Bar från Android
    Copyright © Dator Kunskap http://www.dator.xyz