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 .
