Come utilizzare VBA di fare una controfferta

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

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

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

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

loop

stp = True Then GoTo X

Label1.Caption = _

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

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

Successivo MLN

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

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 .

• Come creare una linea di riempimento - in-the - vuoto in Word utilizzando VBA 
• Come rilevare un App in esecuzione utilizzando VB