Creazione di un contatore utilizzando Visual Basic, Applications Edition (VBA ) può essere facilmente realizzato utilizzando una interfaccia utente (UI ) o di un modulo . VBA è un linguaggio di programmazione utilizzato in una delle applicazioni di Microsoft Office , ad esempio Excel . In Excel è possibile creare un modulo con i controlli , come etichette e pulsanti per avviare , fermare , riprendere e terminare un contatore . Il modo migliore per creare un timer e di usare una " For ... Loop" e aggiornare una etichetta con l'ultima volta fino a quando l'utente decide di interrompere o terminare il contatore. Cose che ti serviranno
Microsoft Office Excel
Mostra più istruzioni
1
lancio di Microsoft Office Excel , fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per lanciare il finestra Editor VB . Fai clic sul menu "Inserisci" e fare clic su " form " per aggiungere un nuovo modulo . Fare clic su "Etichetta" dal riquadro " Strumenti " e fare clic sul form per aggiungere una nuova etichetta . Fare clic su " Pulsante di comando " e fare clic sul form per aggiungere un nuovo pulsante . Aggiungere tre ulteriori pulsanti di comando con la stessa tecnica .
2
destro del mouse il modulo e fai clic su " Visualizza codice " per visualizzare il modulo di codice . Aggiungere il seguente codice per creare sei variabili globali per questo modulo :
pubblico stp come booleano
pubblico OldH
pubblico OldM
pubblico Olds
pubblico OLDMLN
3
Copia e incolla il seguente codice per creare un nuovo evento click per " CommandButton1 " per avviare il timer :
stp = False < br >
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = False
H = 0
per M = 0 per 59
S = 0 a 59
MLN = 0 a 59
t = Timer
fare fino Timer - t > = 1 /60
DoEvents
loop
stp = True Then GoTo X
Label1.Caption = _
Formato ( H , " 00 " ) & " : " & Format ( M , "00" ) _
& " : " & Format ( S , " 00 " ) & " : " & Format (MLN , " 00 " )
Avanti MLN
Avanti S
Successivo M
H = H + 1
X:
OldH = H
OldM = M
Olds = S
OLDMLN = MLN
stp = False
4
Copia e incollare il seguente codice per creare un evento click per " CommandButton2 " che permetterà " CommandButton1 " e " CommandButton3 : "
private Sub CommandButton2_Click ( ) per
CommandButton1.Enabled = True
< p > CommandButton2.Enabled = False
CommandButton3.Enabled = True
stp = True
End Sub
5
Copia e incolla il seguente codice per creare un evento click per " CommandButton3 " per riprendere il timer :
private Sub CommandButton3_Click ( ) per
CommandButton3.Enabled = False
CommandButton2.Enabled = True < br >
CommandButton1.Enabled = False
stp = False
H = OldH
per M = OldM Per 59
S = età per 59
MLN = OLDMLN Per 59
t = Timer
Do Until Timer - t > = 1/60
DoEvents
< p >
loop
stp = True Then GoTo X
Label1.Caption = _
Formato ( H , " 00 " ) & " : " & Format ( M , " 00 " ) _
& " : " & Format ( S , " 00 " ) & " : " & Format (MLN , "00" ) per
Successivo MLN
< p > Avanti S
Successivo M
H = H + 1
X:
OldH = H
OldM = M < br
età > = S
OLDMLN = MLN
stp = False
End Sub
6
Creare un evento click per " CommandButton4 " per chiudere il programma :
private Sub CommandButton4_Click ( ) per
Unload Me
Fine
End Sub
7
aggiungere il codice seguente per definire le didascalie per il marchio ed i pulsanti durante l'avvio:
private Sub UserForm_Initialize ( ) per
CommandButton1.Enabled = True
CommandButton1.Caption = " avvia Timer "
CommandButton2.Enabled = False
CommandButton2.Caption = " Stop "
CommandButton3.Enabled = False
CommandButton3.Caption = " Riprendi Timer "
CommandButton4.Caption = " Annulla "
Label1.Caption = " 00:00:00:00 "
End Sub
8 < p > Aggiungere il seguente codice per terminare il programma :
private Sub UserForm_QueryClose ( Cancel As Integer , CloseMode As Integer ) per
CloseMode = 0 Then Cancel = True
End sub
9
doppio clic su " UserForm1 " dalla finestra "Object Explorer " e premere il tasto "F5" per eseguire il programma . Fare clic su "Start Timer " per avviare il contatore , fare clic su "Stop" per fermarlo , e fare clic su " Riprendi Timer " per riprendere il contatore . Fare clic su "Annulla" per terminare il programma .
