Macros Visual Basic personnaliser les applications Microsoft Office, ce qui les rend plus puissant avec des outils spécialisés pour des utilisateurs spécifiques. Calendrier contrôle les utilisateurs de l'aide en veillant à la qualité de leurs données. Génération d'un calendrier pour la sélection de date à la volée nécessite une macro Visual Basic et un contrôle ActiveX; ActiveX affiche le calendrier et Visual Basic interprète les commandes de l'utilisateur sur le calendrier. L'exemple de code dans cet article se concentrera sur la génération d'un calendrier dans Microsoft Excel, mais il peut être adapté pour toute application dans la suite Microsoft Office.
Instructions
1 Lancez Excel en cliquant sur "Démarrer", "Tous les programmes", "Microsoft Office Suite" et "Excel".
2 Lancez l'éditeur Visual Basic (VBE) en appuyant simultanément sur "Alt" et "F11".
3 Créer le "Personal.xls" classeur si elle n'existe pas déjà. Le "Personal.xls" classeur contient des macros qui sont accessibles à partir de tous les autres classeur dans Excel. En haut à gauche de l'VBE il y a un panneau de navigation. Si "Personal.xls" ne figure pas dans le panneau de navigation VBE, cliquez sur "Outils", "Macro" et "Nouvelle macro". Une boîte de dialogue apparaît sur l'écran. Sélectionnez "Macro de magasin dans: classeur de macros personnelles" puis cliquez sur "OK". Cliquez sur "Arrêter l'enregistrement." Le "Personal.xls" classeur va maintenant apparaître dans le panneau de navigation de VBE.
4 Créer le "UserForm" qui contiendra le calendrier. Cliquez sur "Personal.xls" pour sélectionner le classeur. Cliquez sur "Insérer" puis "UserForm." La boîte de dialogue "UserForm" apparaît sur l'écran. Il y a plusieurs zones de texte dans la boîte de dialogue; dans la zone de texte "Nom," changer le texte "frmCalendar" et dans la case "Légende" modifier le texte «Sélectionnez une date."
5 Ajoutez le contrôle de calendrier pour la boîte à outils. Cliquez sur "Voir", "boîte à outils", "Outils" et "Contrôles supplémentaires." Une boîte de dialogue avec une liste de commandes apparaît. Faites défiler jusqu'à "Calendar Control 8.0" (ou la dernière version), cliquez pour le sélectionner et puis cliquez sur "OK".
6 Insérez le contrôle de calendrier dans le UserForm. Cliquez sur l'icône "Calendrier de contrôle" dans la boîte à outils, puis cliquez sur le coin supérieur gauche de l'UserForm. Cliquez et faites glisser l'image du calendrier à la position désirée dans le UserForm.
7 Créer le bouton de sortie calendrier contrôle. Cliquez sur le bouton "Command Control" dans la boîte à outils. Déplacez le bouton "x" en haut à gauche de l'UserForm. Sous "Propriétés", changer le nom de "cmdClose" et changer la valeur de "Annuler" pour "True". Appuyez sur la touche F7 pour accéder à l'éditeur de code. Copiez et collez le code suivant dans le VBE:
Private Sub cmdClose_Click ()
Unload Me
End Sub
8 Programmer la fonctionnalité de calendrier. Sélectionnez "Calendar1" dans le menu déroulant en haut à gauche de l'VBE. Il y a un autre menu déroulant à droite de cette liste; sélectionnez "Cliquez sur" dans ce menu. Copiez et collez le code suivant dans le VBE:
Private Sub Calendar1_Click ()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub
9 Enregistrez le "Personal.xls" feuille de calcul en appuyant sur "Ctrl" et "s" simultanément.
dix Exécutez la macro. Cliquez sur le "x" dans le coin en haut à droite pour fermer la VBE. Cliquez sur une cellule sur la feuille de calcul. Appuyez sur "Alt" et "F8" simultanément. La boîte de dialogue Macros apparaît. Sélectionnez "Personal.xls! OpenCalendar" puis cliquez sur "Exécuter". Le contrôle du calendrier apparaît. Cliquez sur une date sur le calendrier pour écrire cette date à la cellule.