Utilisez Excel et VBA pour créer une barre de progression.
Une barre de progression est utilisée dans une application informatique pour indiquer la progression d'une opération. Il s'agit généralement d'un rectangle qui s'anime au fur et à mesure que l'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 créer des interfaces utilisateur. Vous pouvez facilement créer une barre de progression à l'aide de VBA dans Microsoft Office Excel. Excel est un tableur inclus dans la suite Microsoft Office.
Étape 1
Ouvrez Microsoft Office Excel, puis appuyez sur "Alt" et "F11" pour ouvrir Visual Basic Editor. Cliquez avec le bouton droit sur "VBAProject", puis cliquez sur "UserForm" pour insérer un nouveau formulaire. Dans le menu "Boîte à outils", cliquez sur "Étiquette". Tout en maintenant le bouton de la souris enfoncé, faites glisser le formulaire pour créer un nouveau contrôle d'étiquette.
Vidéo du jour
Étape 2
Cliquez avec le bouton droit sur l'étiquette et sélectionnez "Propriétés", puis modifiez "Hauteur" en 42 et "Largeur" en 12. Remplacez le "Top" par 12. Créez neuf autres étiquettes en utilisant le même processus.
Étape 3
Cliquez sur "CommandButton" dans le volet "Boîte à outils" et ajoutez un nouveau bouton à votre formulaire. Faites un clic droit sur "CommandButton" et cliquez sur "Afficher le code" pour créer une nouvelle procédure.
Étape 4
Tapez ce qui suit pour créer une nouvelle variable et définir sa valeur :
Dim cnt As Integer cnt = 0
Étape 5
Tapez ce qui suit pour masquer toutes les étiquettes au démarrage du formulaire :
Moi. Label1.Visible = Faux moi. Label2.Visible = Faux moi. Label3.Visible = Faux moi. Label4.Visible = Faux moi. Label5.Visible = Faux Moi. Label6.Visible = Faux moi. Label7.Visible = Faux moi. Label8.Visible = Faux moi. Label9.Visible = Faux moi. Label10.Visible = Faux
Étape 6
Tapez ce qui suit pour créer une boucle while et itérer 10 fois tout en mettant le code en pause pendant 5 secondes :
Faire Tant que cnt <> 10
Sélectionnez Case cnt Case Is = 1 Me. Label1.Visible = Vrai moi. 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 = Vrai moi. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = Vrai moi. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = Vrai moi. 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. Moi. Application de repeinture. Attendre maintenant + TimeValue("00:00:05")cnt = cnt + 1
Boucle
Étape 7
Cliquez sur le menu "Insertion" puis sur "Module" pour ajouter un nouveau module. Copiez et collez le code ci-dessous pour démarrer votre "UserForm1":
Sub showProgressBar() UserForm1.Show End Sub
Appuyez sur "F5" pour exécuter votre programme.
