Comment faire apparaître un calendrier en cliquant sur une cellule spécifique dans Excel?
En supposant qu'il y ait une plage de colonnes dans une feuille de calcul, vous devez fréquemment entrer et modifier les dates à l'intérieur, mais il est ennuyeux d'entrer ou de modifier la date manuellement par heure. Comment entrer rapidement des dates sans taper manuellement dans la plage de colonnes? Cet article parle de faire apparaître un calendrier lorsque vous cliquez sur des cellules dans une certaine plage, puis d'insérer la date dans la cellule sélectionnée automatiquement après avoir sélectionné la date dans le calendrier.
Étape 2: Activez le calendrier en cliquant sur la cellule
Afficher un calendrier en cliquant sur une cellule spécifique avec le code VBA
Veuillez résoudre ce problème comme suit étape par étape.
Notes: Cette méthode ne peut fonctionner que sur Microsoft Excel 32 bits.
Étape 1: créer un formulaire utilisateur avec calendrier
Veuillez créer un UserForm qui contient le calendrier que vous afficherez en cliquant sur une cellule.
1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Formulaire utilisateur.
3. Puis un Formulaire utilisateur et Boîte à outils fenêtres pop-up, dans le Boîte à outils, cliquez sur n'importe quel contrôle et faites un clic droit, puis sélectionnez Contrôles supplémentaires dans le menu contextuel. Voir la capture d'écran:
4. dans le Contrôles supplémentaires boîte de dialogue, faites défiler vers le bas pour vérifier Contrôle Microsoft MonthView option dans la Commandes disponibles , puis cliquez sur le OK .
5. Ensuite, vous pouvez voir le Vue du mois le bouton est ajouté dans le Boîte à outils la fenêtre. Cliquez sur ce bouton MonthView, puis cliquez sur la fenêtre UserForm1 pour créer un calendrier dans le Userform.
Notes: Vous pouvez ajuster la taille de la fenêtre UserForm pour l'adapter au calendrier inséré en faisant glisser la bordure de l'UserForm.
6. Double-cliquez sur le calendrier inséré dans UserForm1 et dans le Code fenêtre, veuillez remplacer le code d'origine par le script VBA suivant.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End SubNotes: Ce code peut aider à insérer la date dans la cellule sélectionnée après avoir sélectionné la date dans le calendrier.
Étape 2: Activez le calendrier en cliquant sur la cellule
Vous devez maintenant spécifier certaines cellules pour afficher le calendrier lorsque vous cliquez sur. Veuillez faire comme suit.
7. Double-cliquez sur le nom de la feuille qui contient les cellules sur lesquelles vous cliquerez pour faire apparaître le calendrier à gauche Projet volet, puis copiez et collez le code VBA ci-dessous dans la fenêtre Code. Voir la capture d'écran:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End SubNotes: dans le code, A2: A10 sont des cellules sur lesquelles vous cliquerez pour faire apparaître le calendrier. Veuillez modifier la plage de cellules selon vos besoins.
8. presse autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.
À partir de maintenant, lorsque vous cliquez sur une cellule à l'intérieur de la plage spécifiée dans la feuille de calcul actuelle, un calendrier apparaîtra comme illustré ci-dessous. Et la date sera insérée automatiquement dans la cellule sélectionnée après avoir sélectionné la date dans le calendrier.
Afficher un calendrier en cliquant sur une cellule spécifique avec le code VBA
Cette section présente le Sélecteur de date utilité de Kutools for Excel. Après avoir activé cette fonctionnalité, cliquez sur une cellule de date pour faire apparaître un calendrier, vous pouvez facilement remplacer la date existante par une nouvelle date. Veuillez suivre les étapes ci-dessous pour appliquer cette fonctionnalité.
1. Cliquez Kutools > Contenu > Activer le sélecteur de date.
2. Après avoir activé cette fonction, cliquez sur une cellule de date et une icône de calendrier apparaîtra directement dans la cellule.
3. Cliquez sur l'icône du calendrier pour ouvrir le Sélecteur de date boîte de dialogue, puis cliquez sur une nouvelle date pour remplacer la date dans la cellule sélectionnée.
Notes:
Bouton Annuler: cliquez sur ce bouton pour annuler le remplacement de la date;
Bouton Fermer: cliquez sur ce bouton pour fermer la boîte de dialogue Sélecteur de dates;- Cette fonctionnalité ne peut s'appliquer qu'aux cellules contenant une date.
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Articles connexes:
- Comment déclencher ou exécuter une macro en cliquant sur une cellule spécifique dans Excel?
- Comment changer la couleur de la cellule lorsque la cellule est cliquée ou sélectionnée dans Excel?
- Comment faire apparaître une boîte de message en cliquant sur une certaine cellule dans Excel?
- Comment désactiver le bouton après avoir cliqué une fois dans Excel?
- Comment désactiver le clic droit sur l'onglet de la feuille dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
