Comment utiliser VBA pour faire une contre

September 13

Comment utiliser VBA pour faire une contre


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 toutes les applications Microsoft Office tels que Excel. Dans Excel, vous pouvez créer un formulaire avec des contrôles tels que des étiquettes et des boutons pour démarrer, arrêter, reprendre, et mettre fin à un compteur. La meilleure façon de créer une minuterie est en utilisant un "For ... Loop" 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 compteur.

Instructions

1 Lancez Microsoft Office Excel, cliquez sur l'onglet "Developer" et cliquez sur "Visual Basic" pour lancer la fenêtre VB Editor. Cliquez sur le menu "Insertion" et cliquez sur "UserForm" pour ajouter une nouvelle forme. Cliquez sur "label" 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 autres boutons de commande en utilisant la même technique.

2 Cliquez 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:

stp Public As Boolean

OldH publique

OldM publique

OldS publics

OLDMLN publique

3 Copiez et collez le code suivant pour créer un nouveau clic événement pour "CommandButton1" pour démarrer la minuterie:

stp = Faux

CommandButton1.Enabled = False

CommandButton2.Enabled = True

CommandButton3.Enabled = False

H = 0

Pour M = 0 To 59

Pour S = 0 To 59

Pour MLN = 0 To 59

t = Minuteur

Do Until Timer - 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

Suivant S

Suivant M

H = H + 1

X:

OldH = H

M = OldM

OldS = S

OLDMLN = MLN

stp = Faux

4 Copiez et 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

CommandButton2.Enabled = False

CommandButton3.Enabled = True

stp = Vrai

End Sub

5 Copiez et collez le code suivant pour créer un événement de clic pour "CommandButton3" pour reprendre la minuterie:

Private Sub CommandButton3_Click ()

CommandButton3.Enabled = False

CommandButton2.Enabled = True

CommandButton1.Enabled = False

stp = Faux

H = OldH

Pour M = OldM Pour 59

Pour S = OldS à 59

Pour MLN = OLDMLN Pour 59

t = Minuteur

Do Until Timer - 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

Suivant S

Suivant M

H = H + 1

X:

OldH = H

M = OldM

OldS = S

OLDMLN = MLN

stp = Faux

End Sub

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

Private Sub CommandButton4_Click ()

Unload Me

Fin

End Sub

7 Ajoutez le code suivant pour définir les sous-titres pour le label et les boutons lors du démarrage:

Private Sub UserForm_Initialize ()

CommandButton1.Enabled = True

CommandButton1.Caption = "Timer Start"

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 Ajoutez le code suivant pour terminer le programme:

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

If CloseMode = 0 Then Cancel = True

End Sub

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


          

Post a comment: