Macros Visual Basic personnaliser les applications Microsoft Office , les rendant plus puissant avec des outils spécialisés pour des utilisateurs spécifiques . Calendrier contrôle les utilisateurs d'aides en garantissant 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 création d'un calendrier dans Microsoft Excel, mais il peut être adapté à n'importe quelle application dans la suite Microsoft Office. Instructions
1
lancement Excel en cliquant sur " Démarrer", " Tous les programmes", " Microsoft Office Suite " et " Excel ".
2
Lancez l' éditeur Visual Basic ( VBE ) en appuyant sur "Alt" et "F11" simultanément.
3
créer le classeur " Personal.xls " si elle n'existe pas déjà . Le classeur " Personal.xls " contient des macros qui sont accessibles à partir de tout autre classeur dans Excel. En haut à gauche de la VBE il ya un panneau de navigation. Si " Personal.xls " n'est pas répertorié dans le panneau de navigation VBE , cliquez sur " Outils ", " Macro " et " Enregistrer une macro " . Une boîte de dialogue apparaîtra sur l'écran. Sélectionnez « Macro magasin dans : classeur de macros personnelles " puis cliquez sur "OK". Cliquez sur " Arrêter l'enregistrement . " Le classeur " Personal.xls " apparaît maintenant dans le panneau de navigation 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 ya plusieurs zones de texte dans la boîte de dialogue , dans la zone de texte pour " Nom", changer le texte pour " frmCalendar " et dans la case « Légende », changer le texte pour
< br " Choisir une date . " > 5
Ajouter le contrôle de calendrier de 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'à " Contrôle Calendrier 8.0" (ou la dernière version ) , sélectionnez -le puis cliquez sur "OK".
6
Insérer le contrôle calendrier dans le UserForm. Cliquez sur l'icône " Calendar Control" dans la boîte à outils , puis cliquez sur le coin supérieur gauche de l'objet UserForm. Cliquez et faites glisser l'image du calendrier à la position désirée à l'intérieur de l'objet UserForm.
7
Créer le bouton de sortie calendrier de contrôle . Cliquez sur le bouton " Command Control » dans la boîte à outils . Déplacez le bouton "X" en haut à gauche de l'objet UserForm. Sous " Propriétés ", changer le nom de « cmdClose " et modifiez la valeur de «Annuler» pour «vrai». 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 Programme de
le calendrier fonctionnalité . Sélectionnez " Calendar1 " dans le menu déroulant en haut à gauche de la VBE . Il ya un autre menu déroulant à droite de cette liste , sélectionner «clic» à partir de ce menu. Copiez et collez le code suivant dans le VBE :
Private Sub Calendar1_Click ()
ActiveCell.Value = Calendar1.Value
Unload Me End Sub
9
enregistrer la feuille " Personal.xls " en appuyant sur "Ctrl" et "s" en même temps.
10
exécuter la macro . Cliquez sur le "x " dans le coin en haut à droite pour fermer le VBE . Cliquez sur n'importe quelle cellule de 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 calendrier s'affiche. Cliquez sur une date sur le calendrier pour écrire cette date à la cellule.
