|
Affichage de la boîte de message droite aux utilisateurs est essentielle lorsque vous avez besoin pour exécuter du code sur la base de leurs réponses. VBA propose une sélection de boîtes de message avec des choix de boutons pour répondre aux besoins de votre application. Si vous avez besoin d'afficher un message à l'utilisateur et n'ont pas besoin de prendre des mesures en fonction de la réponse , utilisez une boîte de message avec un bouton "OK". Utilisez des boîtes de message avec les options de bouton comme "Oui" ou "Non" quand vous avez besoin pour exécuter une section de code différent pour chaque bouton. Instructions
1 Cliquez sur l'onglet « Développeur » et cliquez sur " Visual Basic " pour lancer la fenêtre de l'éditeur VB . Cliquez sur le menu "Insertion " et " Module " pour insérer un nouveau module de code
2 créer un nouveau sous procédure et une variable Integer en ajoutant le code suivant : .
Private Sub MessageBoxes ()
returnval As Integer
3 afficher une boîte de message avec un bouton "OK" :
MsgBox " message avec le bouton OK" , vbOKOnly , "OK"
4 Ajoutez le code suivant pour afficher une boîte de message avec un bouton "Annuler" "OK" et :
returnval = MsgBox (" message avec boutons OK et Annuler " , vbOKCancel , " OK & Cancel " )
5 Tapez le code suivant pour déterminer quel bouton a été cliqué et afficher le résultat dans la fenêtre Exécution :
( returnval = 1) Alors
Debug.Print "bouton OK a été cliqué "
Else
Debug.Print " bouton Annuler a été cliqué "
Fin Si
6 Ajoutez le code pour afficher une boîte de message avec les boutons "Abort ", " Retry " et " Ignorer :«
returnval = MsgBox (" message à Abort , Retry et Ignorer les boutons ", vbAbortRetryIgnore , " AbortRetryIgnore " )
7 déterminer quel bouton a été pressé et afficher les résultats à travers la fenêtre d'exécution en ajoutant le code suivant :
( returnval = 3) Puis
Debug.Print " bouton Abandonner a été cliqué "
ElseIf ( returnval = 4) Ensuite
Debug.Print "bouton Retry a cliqué sur "
Else
Debug.Print "Ignorer bouton a été cliqué "
End If
8 Ajouter un "Non" boîte de message bouton «Oui» et : Photos returnval = MsgBox (" message avec boutons Oui et Non », vbYesNo , " Oui et non" )
9 Déterminer le bouton cliqué par l'utilisateur en ajoutant le code suivant : Photos ( returnval = 6) Puis
Debug.Print " Oui bouton a été cliqué "
Else
Debug.Print " Pas de bouton a été cliqué " Photos End If
10 Fin de la procédure en ajoutant "End Sub " que la dernière ligne de code. Appuyez sur " Ctrl" et " G " pour afficher la fenêtre Exécution et appuyez sur la touche "F5 " pour exécuter la procédure .
|
