Clique le "Développeur" Tab "Visual Basic" bouton pour entrer dans l'environnement de programmation VBA, puis cliquez sur le "Insérer" Menu du "Userform" article pour créer une nouvelle forme sur laquelle placer contrôles. Si le "Développeur" onglet ne figure pas parmi vos choix de menu dans Excel, vous devrez peut-être tourner sur son affichage dans les options d'Excel.
Clique le "Bouton" contrôle sur la boîte à outils, puis faites glisser sur l'UserForm pour créer un bouton. Clique le "OptionButton" le contrôle de la boîte à outils, puis faites glisser sur l'UserForm pour créer un bouton d'option. Faites un clic droit et cliquez sur ce bouton "Propriétés" pour afficher une liste d'attributs pour le contrôle.
Cliquez dans la "Activé" ligne de la "Propriétés" fenêtre, puis tapez "Faux" pour indiquer que le bouton d'option est incapable de traiter l'entrée. Notez que le bouton de commande, que vous avez créé à l'étape 2, est activé par défaut.
Clique le "Cadre" contrôle sur la boîte à outils, puis faites glisser sur la userform. Cliquez sur le bouton de commande que vous avez fait à l'étape 1, puis appuyez sur "Contrôle" et "X" simultanément à réduire ce contrôle pour le presse-papiers.
Clique le "Cadre" commande, puis appuyez "Contrôle" et "V" simultanément à coller sur le bouton à l'intérieur du cadre. Répétez la coupe et coller avec le bouton d'option pour le coller dans le cadre aussi bien. En plaçant les deux commandes dans le cadre, vous avez fait un groupe qui contient deux contrôles. Vous allez maintenant écrire du code qui vérifie une propriété de chaque contrôle.
Double-cliquez sur l'UserForm pour afficher la fenêtre de programmation, puis collez le programme suivant dans la fenêtre. Ce programme parcourt chaque contrôle dans le cadre de la lecture, "Activé" la propriété que vous définissez dans l'étape 3, et l'impression de la valeur de cette propriété.
Private Sub UserForm_Click ()
Ct Dim As ControlDim s As String
Pour chaque TC Dans Frame1.Controls
Si ct.Enabled = True Then
s = ct.Name & " est autorisé."
Autre
s = ct.Name & " est désactivé."
Fin si
MsgBox s
Suivant
End Sub
Clique le "Run" Menu du "Run" commande pour afficher votre formulaire, puis cliquez n'importe où sur le formulaire qui ne possède pas un contrôle. Votre programme sera exécuté, affiche un message sur le "Activé" propriété décrite à l'étape 3.