Erstellen eines Zählers mit Visual Basic für Applikationen (VBA) leicht unter Verwendung eines User Interface ( UI) oder eine Form sein. VBA ist eine Programmiersprache in einem der Microsoft Office-Anwendungen wie Excel verwendet . In Excel können Sie ein Formular mit Steuerelementen wie Etiketten und Tasten zum Starten, Stoppen , Fortsetzen und Beenden eines Zähler erstellen. Der beste Weg , um einen Timer zu erstellen , ist mit einem " For ... Loop" und aktualisieren Sie ein Etikett mit der neuesten Zeit, bis der Benutzer entscheidet, stoppen oder beenden Sie den Zähler . Things You
Microsoft Office Excel
brauchen anzeigen Weitere Anweisungen
1
Starten Sie Microsoft Office Excel , klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic " auf die Einführung VB -Editor-Fenster . Klicken Sie auf das Menü "Einfügen" und klicken Sie auf " UserForm ", um eine neue Form hinzufügen. Klicken Sie auf " Etikett " aus der " Toolbox " aus und klicken Sie das Formular, um eine neue Bezeichnung hinzuzufügen. Klicken Sie auf " Command Button " und klicken Sie auf das Formular, um einen neuen Button hinzufügen. Fügen Sie drei weitere Schaltflächen mit der gleichen Technik .
2
der rechten Maustaste auf das Formular aus und klicken Sie auf " Code anzeigen ", um den Code-Modul zu sehen. Fügen Sie den folgenden Code, um sechs globale Variablen zu diesem Modul erstellen :
Öffentliche stp As Boolean
Öffentliche OldH
Öffentliche OLDM
Öffentliche Olds
Öffentliche OLDMLN
3
Kopieren Sie den folgenden Code , um eine neue Click-Ereignis für " CommandButton1 ", um den Timer zu starten erstellen :
stp = False
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = False
H = 0
Für M = 0 Um 59
Für S = 0 bis 59
MLN = 0 To 59
t = Timer
Do Until Timer - t> = 1 /60
DoEvents
Schleife
Wenn stp = True Then GoTo X
Label1.Caption = _
Format (H, "00") & ":" & Format (M, "00") _
& ":" & Format (S, "00") & ":" & Format (MLN , "00")
Weiter MLN
Nächste S
Weiter M
H = H + 1
X:
OldH = H
OLDM = M
Olds = S
OLDMLN = MLN
stp = False
4
Kopieren und fügen Sie den folgenden Code ein Click-Ereignis für " CommandButton2 " , mit denen " CommandButton1 " und " CommandButton3 : " schaffen
private Sub CommandButton2_Click ()
CommandButton1.Enabled = True
< p> CommandButton2.Enabled = False
CommandButton3.Enabled = True
stp = True End Sub
5
Kopieren Sie den folgenden Code, um einen Click-Ereignis für " CommandButton3 " zu schaffen , um den Timer wieder auf:
private Sub CommandButton3_Click ()
CommandButton3.Enabled = False
CommandButton2.Enabled = True
CommandButton1.Enabled = False
stp = False
H = OldH
Für M = OLDM Um 59
S = Olds To 59
MLN = OLDMLN Um 59
t = Timer
Do Until Timer - t> = 1/60
DoEvents
< p > Schleife
Wenn stp = True Then GoTo X
Label1.Caption = _
Format (H, "00") & ":" & Format (M, "00") _
& ":" & Format (S, "00") & ":" & Format (MLN , "00")
Weiter MLN
< p > Nächste S
Weiter M
H = H + 1
X:
OldH = H
OLDM = M
Olds = S
OLDMLN = MLN
stp = False End Sub
6
erstellen Sie einen Click -Ereignis für " CommandButton4 ", um das Programm zu schließen : private Sub
CommandButton4_Click ()
Unload Me End
End Sub
7
Fügen Sie den folgenden Code, um die Beschriftungen für das Label und die Tasten beim Start definieren :
private Sub UserForm_Initialize ()
CommandButton1.Enabled = True
CommandButton1.Caption = " starten Timer Stop "
CommandButton3.Enabled = False
CommandButton3.Caption = " Resume "
= False
CommandButton2.Caption = CommandButton2.Enabled " Timer "
CommandButton4.Caption = " Abbrechen "
Label1.Caption =" 00:00:00:00 "
End Sub
8 < p> Fügen Sie den folgenden Code, um das Programm zu beenden :
private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer )
Wenn CloseMode = 0 Then Cancel = True End
Sub
9
Doppelklicken Sie auf " UserForm1 " aus der " Objekt-Explorer "-Fenster und drücken Sie " F5 ", um das Programm auszuführen. Klicken Sie auf "Start Timer" , um den Zähler zu starten, klicken Sie auf " Stop" , um es zu stoppen, und klicken Sie auf "Resume Timer" , um den Zähler wieder . Klicken Sie auf " Abbrechen", um das Programm zu beenden .
