Comment créer la barre de progression en vba

Utilisez Excel et VBA pour créer une barre de progression.

Une barre de progression est utilisé dans une application informatique pour indiquer l`état d`avancement d`une opération. Il est généralement un rectangle qui est animé comme une opération progresse. Visual Basic pour Applications, ou VBA, est un langage de programmation informatique utilisé dans les applications Microsoft Office pour automatiser les tâches de routine et de créer des interfaces utilisateur. Vous pouvez facilement créer une barre de progression en utilisant VBA dans Microsoft Office Excel. Excel est une application de tableur inclus dans la suite Microsoft Office.

Ouvrez Microsoft Office Excel, puis appuyez sur "Alt" et "F11" pour ouvrir l`éditeur Visual Basic. clic-droit "VBAProject," puis clique "UserForm" d`insérer un nouveau formulaire. Du "Caisse à outils" menu, cliquez sur "Étiquette." Tout en maintenant le bouton de la souris, faites glisser sur le formulaire pour créer un nouveau contrôle d`étiquette.
droite, cliquez sur l`étiquette et sélectionnez "Propriétés," puis changer "la taille" à 42 et "Largeur" à 12. Modifier la "Meilleur" à 12. Créer neuf autres étiquettes en utilisant le même processus.
Cliquez "Bouton de commande" sur le "Caisse à outils" volet et ajouter un nouveau bouton à votre formulaire. clic-droit "Bouton de commande" et cliquez sur "Afficher le code" de créer une nouvelle procédure.
Tapez la commande suivante pour créer une nouvelle variable et définir sa valeur:
cnt Dim As Integer
cnt = 0
Tapez ce qui suit pour masquer toutes les étiquettes lorsque le formulaire commence:
Me.Label1.Visible = Faux
Me.Label2.Visible = Faux
Me.Label3.Visible = Faux
Me.Label4.Visible = Faux
Me.Label5.Visible = Faux
Me.Label6.Visible = Faux
Me.Label7.Visible = Faux
Me.Label8.Visible = Faux
Me.Label9.Visible = Faux
Me.Label10.Visible = Faux

Tapez la commande suivante pour créer une boucle while et itérer 10 fois pendant la pause du code pendant 5 secondes:

Do While cnt lt; gt; dix

Sélectionnez cnt CaseCase Is = 1
Me.Label1.Visible = True
Me.Label1.BackColor = vbBlue
Case Is = 2
Me.Label2.Visible = True
Me.Label2.BackColor = vbBlue
Case Is = 3
Me.Label3.Visible = True
Me.Label3.BackColor = vbBlue
Case Is = 4
Me.Label4.Visible = True
Me.Label4.BackColor = vbBlue
Case Is = 5
Me.Label5.Visible = True
Me.Label5.BackColor = vbBlue
Case Is = 6
Me.Label6.Visible = True
Me.Label6.BackColor = vbBlue
Case Is = 7
Me.Label7.Visible = True
Me.Label7.BackColor = vbBlue
Case Is = 8
Me.Label8.Visible = True
Me.Label8.BackColor = vbBlue
Case Is = 9
Me.Label9.Visible = True
Me.Label9.BackColor = vbBlue
Case Is = 10
Me.Label10.Visible = True
Me.Label10.BackColor = vbBlue
End Select
Me.Repaint
Application.Wait maintenant + TimeValue ("00:00:05")

cnt = cnt + 1

Boucle

Clique le "Insérer" menu, puis cliquez sur "Module" pour ajouter un nouveau module. Copiez et collez le code ci-dessous pour commencer votre "UserForm1.":
Sous showProgressBar ()
```
UserForm1.Show
```
End Sub
presse "F5" pour exécuter votre programme.