|
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
Boucle
Si stp = True Then GoTo X
Label1.Caption = _
Format (H, "00 ") & " :" & Format (M, "00") _
& ":" & Format (S, "00 ") & " :" & Format (MLN , "00")
Suivant MLN
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.
|
