Het creëren van een teller met behulp van Visual Basic for Applications ( VBA ) kan gemakkelijk worden bereikt met behulp van een User Interface ( UI ) of een formulier maken . VBA is een programmeertaal gebruikt in een van de Microsoft Office-toepassingen zoals Excel . In Excel kunt u een formulier maken met de controles, zoals labels en knoppen om te starten, stoppen , hervatten en beëindigen van een teller . De beste manier om een timer te maken is met een " For ... Loop" en bijwerken van een etiket met de laatste tijd totdat de gebruiker besluit om te stoppen of te beëindigen de teller . Wat je nodig hebt
Microsoft Office Excel
Toon Meer Aanwijzingen
1 Lancering Microsoft Office Excel , klikt u op het tabblad " Developer " en klik op " Visual Basic " voor de lancering VB Editor venster . Klik op het menu "Invoegen " en klik op " UserForm " om een nieuwe vorm toe te voegen . Klik op " Label " van de " Toolbox " venster en klik op het formulier om een nieuw label toe te voegen . Klik op " Command Button " en klik op het formulier een nieuwe knop toe te voegen . Voeg drie meer opdrachtknoppen gebruikmaking van dezelfde techniek . Kopen van 2 de rechtermuisknop op het formulier en klik op " View Code " om de code module bekijken . Voeg de volgende code toe aan zes globale variabelen te creëren om deze module : Public stp
zoals Van Boole
Public OldH
Public OldM
Public Olds
openbare OLDMLN
Kopieer 3 en plak de volgende code om een nieuwe gebeurtenis click voor " CommandButton1 " om de timer te starten te maken:
stp = False < br > CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = False H = 0
Voor M = 0 tot 59
S = 0 To 59
MLN = 0 To 59 t
= Timer
Heb tot Timer - t > = 1 /60 DoEvents
Loop
Als stp = Waar toen GoTo X Label1.Caption
= _
Format ( H , " 00 " ) & " : " & Format ( M , " 00 " ) _
& " : " & Format ( S , " 00 " ) & " : " & Format ( mLN , " 00 " ) Volgende MLN
Volgende S
= H + 1
X Volgende M H
: OldH
= H OldM
= M jarigen
= S OLDMLN
= MLN stp
= False
Copy en 4 plak de volgende code om een gebeurtenis click voor " CommandButton2 " waarmee " CommandButton1 " en " CommandButton3 : " maak Private Sub CommandButton2_Click
( ) op CommandButton1.Enabled = True
CommandButton2.Enabled = False
CommandButton3.Enabled = True stp = True End Sub
Copy
5 en plak de volgende code om een gebeurtenis click voor " CommandButton3 " te creëren om de timer te hervatten : Private Sub CommandButton3_Click
( ) op CommandButton3.Enabled = False
CommandButton2.Enabled = True < br > CommandButton1.Enabled = False = False
H = OldH
stp
Voor M = OldM Om 59
S = jarigen To 59
MLN = OLDMLN Om 59 t = Timer
Verlanglijstje Tot Timer - t > = 1/60
DoEvents
Loop
Als stp = Waar toen GoTo X Label1.Caption
= _
Format ( H , " 00 " ) & " : " & Format ( M , _
& " 00 " ) " : " & Format ( S , " 00 " ) & " : " & Format ( mLN , " 00 " ) op Twitter Volgende mLN
Volgende M H
= H + 1
X > : OldH = H OldM
= M < br Olds > = S OLDMLN = MLN stp
= False End of Sub
6
Maak een click event voor " CommandButton4 "om het programma af te sluiten : Private Sub CommandButton4_Click ( )
Unload Me End End Sub
7
Voeg de volgende code aan de bijschriften voor het etiket en de knoppen tijdens het opstarten te definiëren : Private Sub
UserForm_Initialize ( ) op CommandButton1.Enabled = True CommandButton1.Caption
= " Start Timer "
CommandButton2.Enabled = False CommandButton2.Caption
= " Stop "
CommandButton3.Enabled = False CommandButton3.Caption
= " hervatten timer " CommandButton4.Caption
= " Annuleren " Label1.Caption
= " 00:00:00:00 "
End Sub
8 Voeg de volgende code om het programma te beëindigen : Private Sub UserForm_QueryClose
( Cancel As Integer , CloseMode als Geheel ) op Twitter Als CloseMode = 0 annuleren dan = True End
sub
9 Dubbelklik op " UserForm1 " van de " Object Explorer " venster en druk op " F5 " om het programma uit te voeren . Klik op "Start Timer " om de teller te starten , klikt u op "Stop" om het te stoppen , en klik op ' Hervat Timer "om de teller te hervatten . Klik op "Annuleren" om het programma te beëindigen .
|
