Note: The other languages of the website are Google-translated. Back to English

Πώς να εμφανίσετε ένα ημερολόγιο όταν κάνετε κλικ σε ένα συγκεκριμένο κελί στο Excel;

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


Αναδυθείτε ένα ημερολόγιο όταν κάνετε κλικ σε ένα συγκεκριμένο κελί με κωδικό VBA

Λύστε αυτό το πρόβλημα ως εξής βήμα προς βήμα.

Note: Αυτή η μέθοδος μπορεί να λειτουργήσει μόνο στο Microsoft Excel 32-bit.

Βήμα 1: Δημιουργήστε ένα UserForm με ημερολόγιο

Δημιουργήστε μια φόρμα χρήστη που περιέχει το ημερολόγιο που θα εμφανιστεί κάνοντας κλικ σε ένα κελί.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > UserForm.

3. Τότε α UserForm και σε έναν Εργαλειοθήκη αναδυόμενα παράθυρα, στο Εργαλειοθήκη, κάντε κλικ σε οποιοδήποτε στοιχείο ελέγχου και κάντε δεξί κλικ και, στη συνέχεια, επιλέξτε Πρόσθετοι έλεγχοι από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:

4. Στο Πρόσθετοι έλεγχοι πλαίσιο διαλόγου, μετακινηθείτε προς τα κάτω για να ελέγξετε το Έλεγχος Microsoft MonthView επιλογή του Διαθέσιμα στοιχεία ελέγχου πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

5. Τότε μπορείτε να δείτε το Προβολή μήνα το κουμπί προστίθεται στο Εργαλειοθήκη παράθυρο. Κάντε κλικ σε αυτό το κουμπί MonthView και, στη συνέχεια, κάντε κλικ στο παράθυρο UserForm1 για να δημιουργήσετε ένα Ημερολόγιο στη φόρμα χρήστη.

Note: Μπορείτε να προσαρμόσετε το μέγεθος του παραθύρου UserForm ώστε να ταιριάζει με το ημερολόγιο που έχει εισαχθεί σύροντας το περίγραμμα του UserForm.

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

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 Sub

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

Βήμα 2: Ενεργοποιήστε το Ημερολόγιο όταν κάνετε κλικ στο κελί

Τώρα πρέπει να καθορίσετε ορισμένα κελιά για να εμφανιστεί το ημερολόγιο όταν κάνετε κλικ. Κάντε τα εξής:

7. Κάντε διπλό κλικ στο όνομα του φύλλου που περιέχει τα κελιά που θα κάνετε κλικ για να εμφανιστεί το ημερολόγιο στα αριστερά Σχέδιο παράθυρο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code. Δείτε το στιγμιότυπο οθόνης:

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 Sub

Note: στον κωδικό, A2: A10 είναι κελιά που θα κάνετε κλικ για να εμφανιστεί το ημερολόγιο. Αλλάξτε το εύρος κελιών όπως χρειάζεστε.

8. Τύπος άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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


Αναδυθείτε ένα ημερολόγιο όταν κάνετε κλικ σε ένα συγκεκριμένο κελί με κωδικό VBA

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

1. κλικ Kutools > Περιεχόμενο > Ενεργοποίηση επιλογής ημερομηνίας.

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

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

:

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

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημέρα) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Σχετικά Άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (18)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να εμφανίσω το αναδυόμενο ημερολόγιο κάτω από το επιλεγμένο κελί. Πώς πρέπει να κάνω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα αυτούς τους κωδικούς VBA και όλα είναι καλά μέχρι στιγμής. Το εύρος είναι A2:A10 και το ημερολόγιο εμφανίζεται όταν επιλέγετε ένα κελί σε αυτό. Αλλά αν σημειώσετε ξανά τη σειρά από το 2 έως το 10, το ημερολόγιο αναδύεται ξανά. Το ίδιο συμβαίνει και με τη στήλη "Α" αν τη σημειώσετε, πάλι σκάει το ημερολόγιο. Πώς πρέπει να προχωρήσω, για να έχω το ημερολόγιο μόνο στο εύρος που έχω ορίσει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σε όλους,

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


Σας ευχαριστούμε εκ των προτέρων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Συγγνώμη που δεν κατάλαβα την ερώτησή σου. Θα ήταν ωραίο να παρέχετε στιγμιότυπο οθόνης αυτού που προσπαθείτε να κάνετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρήση π.χ.: Εύρος ("B6:C30")
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρήση π.χ.: Εύρος ("B6:C30")
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αν προσπαθήσω να επιλέξω μια σειρά, το αναδυόμενο παράθυρο θα ενεργοποιηθεί και η ημερομηνία εμφανίζεται σε κάθε κελί αυτής της σειράς


πώς μπορώ να το αποφύγω αυτό
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Σαμ,
Ο κώδικας έχει ενημερωθεί στο άρθρο με την επίλυση προβλημάτων. Δοκιμάστε και σας ευχαριστώ για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Είναι δυνατόν να βάλω το αναδυόμενο παράθυρο επιλογής ημερομηνίας για πολλές στήλες, καθώς στο φύλλο μου έχω "ημερομηνία έναρξης", "ημερομηνία λήξης" και "ημερομηνία συμφωνίας". αν ναι τότε πώς;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου τζετ,
Ακολουθήστε τα βήματα και αντικαταστήστε την περιοχή "A2:A10" στον δεύτερο κωδικό VBA με την περιοχή στηλών σας (όπως C2:E2).
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε ευχαριστώ πάρα πολύ! Αυτές οι οδηγίες ήταν πολύ χρήσιμες :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το ημερολόγιο θα εμφανιστεί, αλλά όταν κάνω κλικ στην ημερομηνία, το κελί δεν συμπληρώνεται
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Ποια έκδοση του Excel χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν υπάρχει κανένα στοιχείο ελέγχου Microsoft MonthView στη λίστα (Office 365) και οι οδηγίες εδώ δεν εξηγούν πώς θα αποκτήσει κανείς αυτό το στοιχείο ελέγχου, επομένως αυτό είναι σχεδόν άχρηστο, εκτός εάν χρησιμοποιείτε μια παλαιότερη έκδοση του Excel.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν βλέπω το Microsoft MonthView Control στην καταχώριση, αλλά μπορεί να είναι όπως ανέφερε ο Pete (#32847) ότι αυτό δεν θα λειτουργήσει στο Office 365 ή στο Microsoft Office 64-bit.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Teagan Caudle,
Έψαξα και δοκίμασα τις μεθόδους που προτείνονται στο google, αλλά τελικά δεν μπόρεσα να καταχωρήσω το στοιχείο ελέγχου MonthView στο Microsoft 365.
Συγγνώμη για την ταλαιπωρία. Ίσως μπορείτε να το ελέγξετε αυτό.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL