Στο Microsoft Excel, είναι εύκολο να εισάγετε το αναπτυσσόμενο ημερολόγιο. Από το αναπτυσσόμενο ημερολόγιο, μπορείτε εύκολα να εισάγετε οποιαδήποτε ημερομηνία . Μπορείτε επίσης να δημιουργήσετε έναν σύνδεσμο προς το κελί με το αναπτυσσόμενο ημερολόγιο όπου θα είναι ορατή η καθορισμένη ημερομηνία. Σε αυτό το άρθρο, δίνουμε μια πολύτιμη επισκόπηση του τρόπου εισαγωγής ενός αναπτυσσόμενου ημερολογίου στο Excel. Ελπίζω ότι θα το βρείτε αρκετά εύκολο στη χρήση.

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το βιβλίο ασκήσεων

Διαδικασία βήμα προς βήμα για την εισαγωγή Drop Down Calendar στο Excel

Για να εισαγάγετε ένα αναπτυσσόμενο ημερολόγιο στο Excel, θα σας δείξουμε πώς να το κάνετε βήμα προς βήμα. Όλα τα παρακάτω βήματα είναι πραγματικά εύκολα στη χρήση και ενισχύουν τις γνώσεις σας στο Excel για να τις εφαρμόσετε για έναν μεγαλύτερο σκοπό.

Βήμα 1: Ενεργοποιήστε την καρτέλα Developer στην κορδέλα

Πριν κάνετε οτιδήποτε σχετικά με την εισαγωγή αναπτυσσόμενου ημερολογίου στο Excel, πρέπει να δείξετε την καρτέλα Developer στην κορδέλα. Ως χρήστης του Excel, όταν ανοίγετε το βιβλίο εργασίας του Excel, κατά κύριο λόγο, δεν υπάρχει Προγραμματιστής Επομένως, πρέπει να την αλλάξετε προσαρμόζοντας την κορδέλα.

Βήματα

• Κατά κύριο λόγο, κάντε κλικ στο Αρχείο Στην καρτέλα Αρχείο επιλέξτε την καρτέλα Επιλογές .

• Αυτό θα ανοίξει το Επιλογές Excel παράθυρο διαλόγου. Επιλέξτε Προσαρμογή κορδέλας .

• Τώρα, στη δεξιά γωνία, υπάρχει Προσαρμογή της Κορδέλας , επιλέξτε Κύριες καρτέλες από εκεί, και στο Κύριες καρτέλες , κάντε κλικ στο Προγραμματιστής Μετά από αυτό, κάντε κλικ στο ' OK Αυτό θα ανοίξει το Προγραμματιστής στην καρτέλα της κορδέλας.

Διαβάστε περισσότερα: Πώς να εισαγάγετε την ημέρα και την ημερομηνία στο Excel (3 τρόποι)

Βήμα 2: Εισαγωγή Drop Down Calendar

Για να εισαγάγετε το αναπτυσσόμενο ημερολόγιο, πρέπει να ακολουθήσετε τα παρακάτω βήματα.

Βήματα

• Αρχικά, επιλέξτε το Προγραμματιστής Από την καρτέλα Έλεγχοι ομάδα, επιλέξτε το Εισαγωγή επιλογή.

• Τώρα, στο Εισαγωγή επιλογή, κάντε κλικ στο Περισσότεροι έλεγχοι από το Έλεγχοι ActiveX .

• A Περισσότεροι έλεγχοι θα εμφανιστεί παράθυρο διαλόγου, επιλέξτε Έλεγχος επιλογής ημερομηνίας και ώρας της Microsoft 6.0 (SP4) Κάντε κλικ στο OK '.

• Τώρα, κάντε κλικ σε οποιοδήποτε κελί όπου θέλετε να τοποθετήσετε αυτό το .

• Μετά την εισαγωγή του αναπτυσσόμενου ημερολογίου, θα δείτε ένα EMBEDDED τύπο στη γραμμή τύπων.

Διαβάστε περισσότερα: Πώς να εισαγάγετε έναν επιλογέα ημερομηνίας στο Excel (με διαδικασία βήμα προς βήμα)

Βήμα 3: Προσαρμογή Drop Down Calendar

Αφού εισαγάγετε το αναπτυσσόμενο ημερολόγιό σας στο κελί που προτιμάτε, μπορείτε να προσαρμόσετε αυτό το αναπτυσσόμενο ημερολόγιο.

Βήματα

• Μπορείτε να προσαρμόσετε το αναπτυσσόμενο ημερολόγιό σας με απλό σύρσιμο.

• Μπορείτε να αλλάξετε το Ιδιότητες του αναπτυσσόμενου ημερολογίου σας κάνοντας δεξί κλικ στο αναπτυσσόμενο ημερολόγιο. Αλλά θυμηθείτε, για να το κάνετε αυτό πρέπει να κρατάτε Λειτουργία σχεδιασμού στο .

• Στο Ιδιότητες παράθυρο διαλόγου, μπορείτε να αλλάξετε το ύψος, το πλάτος και κάποια άλλα πράγματα.

• Μπορείτε να τοποθετήσετε το αναπτυσσόμενο ημερολόγιο σε οποιαδήποτε θέση, απλά σύροντάς το στη συγκεκριμένη θέση.

Διαβάστε περισσότερα: Πώς να εισαγάγετε ημερομηνία στο Excel (7 απλές μέθοδοι)

Παρόμοιες αναγνώσεις

• Πώς να συνδυάσετε ημερομηνία και ώρα σε ένα κελί στο Excel (4 μέθοδοι)
• Αλλαγή ημερομηνιών αυτόματα χρησιμοποιώντας τύπο στο Excel
• Πώς να συμπληρώσετε αυτόματα την ημερομηνία στο Excel όταν ενημερώνεται το κελί

Βήμα 4: Συνδέστε το αναπτυσσόμενο ημερολόγιο με ένα κελί στο Excel

Στο Ιδιότητες του αναπτυσσόμενου ημερολογίου, μπορεί να δείτε ότι υπάρχει ένα LinkedCell Το Excel δεν μπορεί να διαβάσει οποιαδήποτε ημερομηνία από το αναπτυσσόμενο ημερολόγιό σας, οπότε πρέπει να τη συνδέσετε με ένα κελί.

Βήματα

• Από το Προγραμματιστής την καρτέλα, ενεργοποιήστε το Λειτουργία σχεδιασμού.

• Τώρα, δεξί κλικ στο στο αναπτυσσόμενο ημερολόγιο, και από το Μενού περιβάλλοντος , επιλέξτε Ιδιότητες .

• Στο Ιδιότητες παράθυρο διαλόγου, βάλτε οποιονδήποτε αριθμό κελιού στο LinkedCell επιλογή.

• Τώρα, γυρίστε το Λειτουργία σχεδιασμού off και επιλέξτε οποιαδήποτε ημερομηνία στο αναπτυσσόμενο ημερολόγιο, θα εμφανιστεί στο συγκεκριμένο κελί.

• Ενδέχεται να εμφανιστεί ένα παράθυρο διαλόγου προειδοποίησης. Κάντε κλικ στο OK '.

• Αλλάξτε το Κουτάκι ελέγχου τιμή από Ψευδές στο Αλήθεια στο Ιδιότητες παράθυρο διαλόγου για να δέχεται μηδενικές τιμές.

• Αν θέλετε να δείτε τον κώδικα VBA που σχετίζεται με αυτό, απλά κάντε δεξί κλικ στο αναπτυσσόμενο ημερολόγιο και επιλέξτε Προβολή κωδικού .

Διαβάστε περισσότερα: Αυτόματη εισαγωγή ημερομηνίας στο Excel κατά την εισαγωγή δεδομένων (7 εύκολες μέθοδοι)

Εισαγωγή αναπτυσσόμενου ημερολογίου σε ολόκληρη τη στήλη

Ένα άλλο ενδιαφέρον πράγμα μπορεί να γίνει με τη χρήση αναπτυσσόμενου ημερολογίου. Μπορείτε να εισάγετε αναπτυσσόμενο ημερολόγιο σε ολόκληρη τη στήλη ή σε πολλαπλές στήλες. Κάθε φορά που κάνετε κλικ σε οποιοδήποτε κελί, θα ανοίγει ένα ημερολόγιο και μπορείτε να επιλέξετε μια ημερομηνία από εκεί. Και τα δύο αυτά πράγματα μπορούν να γίνουν ιδιαίτερα με κώδικες VBA.

1. Drop Down Ημερολόγιο για μία στήλη

Βήματα

• Καθώς θέλουμε να εισάγουμε το αναπτυσσόμενο ημερολόγιο για μια μόνο στήλη. Πρώτα, εισάγετε το αναπτυσσόμενο ημερολόγιο χρησιμοποιώντας τα παραπάνω βήματα.
• Τώρα, κάντε δεξί κλικ στο αναπτυσσόμενο ημερολόγιο και επιλέξτε Προβολή κωδικών .

• Όταν ανοίγετε την επιλογή προβολής κώδικα, θα εμφανιστεί ένα περιβάλλον visual basic και υπάρχουν τυχαίοι κωδικοί σε αυτό το φύλλο. Αν πρέπει να το προσαρμόσετε, οπότε διαγράψτε το και αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον εκεί.

 Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet3.DTPicker1 .Height = 20 .Width = 20 If Not Intersect(Target, Range("B5:B7")) Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Else .Visible = False End If End With End Sub 

• Τώρα, απενεργοποιήστε το Λειτουργία σχεδιασμού .
• Επιλέξτε οποιοδήποτε κελί εντός των συγκεκριμένων κελιών στον κώδικα VBA, θα βρείτε αναπτυσσόμενο ημερολόγιο σε κάθε κελί εντός του ορίου κελιών.

Επεξήγηση του κώδικα VBA:

 Με Sheet3.DTPicker1 .Height = 20 .Width = 20 

Αυτός ο κωδικός δηλώνει ότι πρέπει να επιλέξετε το όνομα του φύλλου στο οποίο θέλετε να εφαρμόσετε αυτόν τον κωδικό και τον αριθμό του επιλογέα ημερομηνίας. Μπορείτε επίσης να τροποποιήσετε τις τιμές ύψους και πλάτους.

 If Not Intersect(Target, Range("B5:B7")) Is Nothing Then .Visible = True 

Αυτός ο κώδικας δηλώνει ότι αν επιλέξετε οποιοδήποτε κελί σε αυτή την περιοχή, το αναπτυσσόμενο ημερολόγιο θα είναι ορατό σε κάθε κελί σε αυτή την περιοχή.

 .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address 

Κορυφή Η ιδιότητα δηλώνει την ανώτερη τιμή των στοιχείων ενός συγκεκριμένου κελιού.

Αριστερά η ιδιότητα δηλώνει το επόμενο δεξί κελί του καθορισμένου κελιού.

LinkedCell c συνδέει το αναπτυσσόμενο ημερολόγιο με το καθορισμένο κελί.

 Else .Visible = False 

Αυτό σημαίνει ότι αν επιλέξετε οποιοδήποτε άλλο κελί εκτός από αυτό το συγκεκριμένο κελί, το αναπτυσσόμενο ημερολόγιο δεν θα είναι ορατό.

Διαβάστε περισσότερα: Πώς να εισάγετε ημερομηνίες στο Excel αυτόματα (3 απλά κόλπα)

2. Drop Down Ημερολόγιο για πολλαπλές στήλες

Αν θέλετε να χρησιμοποιήσετε το αναπτυσσόμενο ημερολόγιό σας για πολλαπλές στήλες, μπορούμε να ακολουθήσουμε τα παρακάτω βήματα. Θυμηθείτε, πρέπει να εισάγετε πολλαπλά αναπτυσσόμενα ημερολόγια για να το κάνετε αυτό.

Βήματα

• Εισαγωγή πολλαπλών αναπτυσσόμενων ημερολογίων από το Προγραμματιστής καρτέλα.
• Τοποθετήστε αυτά τα αναπτυσσόμενα ημερολόγια στην επιθυμητή θέση σύροντας.
• Θα θέλαμε να εισάγουμε ένα αναπτυσσόμενο ημερολόγιο στη στήλη B και στήλη D . Κάντε δεξί κλικ στο αναπτυσσόμενο ημερολόγιο και επιλέξτε Προβολή κωδικού Τώρα, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον σε αυτό το φύλλο.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet5.DTPicker1 .Height = 20 .Width = 20 If Not Intersect(Target, Range("B5:B9")) Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Else .Visible = False End If End With With With Sheet5.DTPicker2 .Height = 20.Width = 20 If Not Intersect(Target, Range("D5:D9")) Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Else .Visible = False End If End With End Sub 

• Αυτό θα δημιουργήσει δύο αναπτυσσόμενα ημερολόγια στη στήλη B και στήλη D Μπορείτε να τοποθετήσετε οποιαδήποτε ημερομηνία από το αναπτυσσόμενο ημερολόγιο σε αυτό το εύρος.

Σημείωση:

Πρέπει να αλλάξετε CheckBox από το Ψευδές στο Αλήθεια για να αποφύγετε οποιοδήποτε μήνυμα σφάλματος.

Διαβάστε περισσότερα: Μακροεντολή Excel: Εισαγωγή ημερομηνίας και ώρας σε ένα κελί (4 παραδείγματα)

Πρόβλημα με το Drop Down Ημερολόγιο

Εάν είστε ενεργός χρήστης του Microsoft 365 ή του Microsoft Excel 2019, δεν θα βρείτε το αναπτυσσόμενο ημερολόγιο. Αυτό το αναπτυσσόμενο ημερολόγιο είναι διαθέσιμο μόνο στο Microsoft Excel 2007 και στις εκδόσεις 32-bit του Excel 2010,2013 και 2016.

Συμπέρασμα

Συζητήσαμε τη διαδικασία βήμα-προς-βήμα για να εισάγουμε ένα αναπτυσσόμενο ημερολόγιο στο Excel. Προσπαθήσαμε επίσης να δείξουμε πώς να χρησιμοποιήσουμε ένα αναπτυσσόμενο ημερολόγιο τόσο για τη μία στήλη όσο και για τις πολλαπλές στήλες. Ελπίζω ότι μπορείτε να αποκτήσετε πολλές γνώσεις από αυτό το άρθρο. Εάν έχετε οποιεσδήποτε ερωτήσεις, μη διστάσετε να ρωτήσετε στην ενότητα σχολίων και μην ξεχάσετε να επισκεφθείτε το τμήμα μας Exceldemy σελίδα για περισσότερες γνώσεις.