|
Une barre de progression est utilisé dans une application informatique pour indiquer la progression de l'opération. C'est généralement un rectangle qui a animé tant qu'opération fait des progrès . Visual Basic pour Applications, ou VBA est un langage de programmation informatique utilisé dans des 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 à l'aide de VBA dans Microsoft Office Excel. Excel est un tableur inclus dans la suite Microsoft Office . Instructions
1 Ouvrez Microsoft Office Excel, puis appuyez sur " Alt" et " F11 " pour ouvrir l'éditeur Visual Basic . Faites un clic droit " VBAProject », puis cliquez sur « UserForm » pour insérer un nouveau formulaire . Dans le menu " Outils " , 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 .
2 un clic droit sur l'étiquette et sélectionnez "Propriétés ", puis changer "Hauteur " à 42 et "Largeur" à 12. Changer le " Top" à 12. Créer plus de neuf étiquettes en utilisant le même procédé .
3 Cliquez sur " CommandButton " sur le volet " boîte à outils " et ajouter un nouveau bouton à votre formulaire . . Faites un clic droit " CommandButton " et cliquez sur " Afficher le code " pour créer une nouvelle procédure
4 Tapez la commande suivante pour créer une nouvelle variable et définir sa valeur :
Dim cnt Comme integer
cnt = 0
5 Tapez la commande suivante pour masquer toutes les étiquettes lorsque le formulaire commence :
Me.Label1.Visible = False
< p> Me.Label2.Visible = False
Me.Label3.Visible = False
Me.Label4.Visible = False
Me.Label5.Visible = false < br > Me.Label6.Visible = False
Me.Label7.Visible = False
Me.Label8.Visible = False
Me.Label9.Visible = False Photos Me.Label10.Visible = False
6 Tapez la commande suivante pour créer une boucle while et parcourir 10 fois pendant la pause du code pendant 5 secondes :
Do Alors cnt <> 10
Select Case cnt
Case Is = 1
Me.Label1.Visible = True
Me.Label1.BackColor = vbBlue
Case Is = 2
Me.Label2.Visible = True
Me.Label2.BackColor = vbBlue
Case Is = 3 < br > 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
moi . Label7.Visible = True
Me.Label7.BackColor = vbBlue
Case Is = 8
Me.Label8.Visible = True
Me.Label8 . BackColor = vbBlue
cas est = 9
Me.Label9.Visible = True
Me.Label9.BackColor = vbBlue
Case Is = 10 Photos Me.Label10.Visible = True
Me.Label10.BackColor = vbBlue
End Select
Me.Repaint
application . Attendez maintenant + TimeValue ( " 00:00:05 " )
cnt = cnt + 1
boucle
7 Cliquez sur le menu "Insertion " puis cliquez sur "Module" pour ajouter un nouveau module. Copiez et collez le code ci-dessous pour commencer votre " UserForm1 . ": F5 à Sous showProgressBar ()
UserForm1.Show
End Sub
presse " "pour exécuter le programme.
|
