Création d'un compteur à l'aide de Visual Basic pour Applications ( VBA) peut facilement être réalisé en utilisant une interface utilisateur (UI) ou un formulaire . VBA est un langage de programmation informatique utilisé dans l'une des applications de Microsoft Office comme Excel. Dans Excel , vous pouvez créer un formulaire avec des contrôles tels que les étiquettes et les boutons pour démarrer, arrêter , reprendre et mettre fin à un comptoir. La meilleure façon de créer une minuterie est d'utiliser une " boucle For ... » et mettre à jour une étiquette avec la dernière fois jusqu'à ce que l'utilisateur décide d'arrêter ou de mettre fin au comptoir. Choses que vous devez
Microsoft Office Excel
Voir Plus Instructions
1

lancement de Microsoft Office Excel, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l' fenêtre de l'éditeur VB . Cliquez sur le menu «Insertion» et cliquez sur « UserForm » pour ajouter une nouvelle forme . Cliquez sur " étiquette " dans le volet " boîte à outils " et cliquez sur le formulaire pour ajouter une nouvelle étiquette. Cliquez sur "Bouton de commande " et cliquez sur le formulaire pour ajouter un nouveau bouton . Ajouter trois boutons de commande en utilisant la même technique.
2

clic droit sur le formulaire et cliquez sur « Afficher le code " pour afficher le module de code. Ajoutez le code suivant pour créer six variables globales à ce module :

publique stp As Boolean

publique OldH

publique OldM

publique Olds

publique OLDMLN
3

Copiez et collez le code suivant pour créer un nouvel événement de clic pour " CommandButton1 " pour lancer le chronomètre :

stp = false < br >

CommandButton1.Enabled = False

CommandButton2.Enabled = True

CommandButton3.Enabled = False

H = 0

Pour M = 0 à 59

Pour S = 0 To 59

MLN = 0 To 59

t = minuterie

faire jusqu'à minuterie - t> = 1 /60

DoEvents

boucle

Si stp = True Then GoTo X

Label1.Caption = _

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

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

de

Suivant MLN

Next Next md

H = H + 1

X:

OldH = H

OldM = M

Olds = S

OLDMLN = MLN

stp = False
4

Copier collez le code suivant pour créer un événement de clic pour " CommandButton2 " qui permettra " CommandButton1 " et " CommandButton3 : "

Private Sub CommandButton2_Click ()

CommandButton1.Enabled = True
< p> CommandButton2.Enabled = False

CommandButton3.Enabled = True

stp = True

End Sub
5

Copiez et collez ce qui suit code pour créer un événement de clic pour " CommandButton3 " pour reprendre la minuterie :

Private Sub CommandButton3_Click ()

CommandButton3.Enabled = False

CommandButton2.Enabled = True < br >

CommandButton1.Enabled = False

stp = False

H = OldH

Pour M = OldM à 59

pour s = Olds 59

MLN = OLDMLN à 59

t = minuterie

Do Until minuterie - t> = 1/60

DoEvents
< p > Boucle

Si stp = True Then GoTo X

Label1.Caption = _

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

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

Suivant MLN
< p > Photos

Next Next md

H = H + 1

X:

OldH = H

OldM = M < br > Olds

= S

OLDMLN = MLN

stp = False

End Sub
6

Créer un événement de clic pour " CommandButton4 " pour fermer le programme :

Private Sub CommandButton4_Click ()

Unload Me

End of

End Sub
7

Ajoutez le code suivant pour définir les légendes de l'étiquette et les touches lors du démarrage: Photos

Private Sub UserForm_Initialize ()

CommandButton1.Enabled = True

CommandButton1.Caption = " Début Timer "

CommandButton2.Enabled = False

CommandButton2.Caption = " Stop "

CommandButton3.Enabled = False

CommandButton3.Caption =" Reprendre timer "

CommandButton4.Caption = " Annuler "

Label1.Caption =" 00:00:00:00 "

End Sub
8 < p> Ajoutez le code suivant à la fin du programme :

Private Sub UserForm_QueryClose ( Cancel As Integer , CloseMode As Integer )

Si CloseMode = 0 Then Cancel = True

Fin sous
9

Double -cliquez sur " UserForm1 " de la fenêtre " Object Explorer" et appuyez sur " F5" pour exécuter le programme . Cliquez sur "Démarrer Timer" pour démarrer le compteur, cliquez sur "Stop" pour arrêter, puis cliquez sur " Reprendre Timer" pour reprendre le comptoir. Cliquez sur " Annuler" pour terminer le programme.