Πώς να μεταβείτε γρήγορα στο κελί με την τρέχουσα ημερομηνία στο Excel;
Εδώ είναι ένα φύλλο με μια λίστα ημερομηνιών, θέλετε να μεταβείτε γρήγορα στο κελί που είναι με την τρέχουσα ημερομηνία, πώς να λύσετε αυτό το πρόβλημα;
Μετάβαση στην τρέχουσα ημερομηνία με το VBA
Μεταβείτε στην τρέχουσα ημερομηνία με Εύρεση και αντικατάσταση
Μετάβαση στην τρέχουσα ημερομηνία με το VBA
Εδώ είναι ένας κωδικός VBA που μπορεί να σας βοηθήσει να μεταβείτε γρήγορα στο κελί με την τρέχουσα ημερομηνία.
1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να χρησιμοποιήσετε και πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησης, επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης.
VBA: Μετάβαση στην τρέχουσα ημερομηνία
Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Τύπος F5 κλειδί και, στη συνέχεια, ο δρομέας μεταβαίνει στο κελί με την τρέχουσα ημερομηνία όπου και αν βρίσκεστε στο βιβλίο εργασίας.
Μεταβείτε στην τρέχουσα ημερομηνία με Εύρεση και αντικατάσταση
Εάν δεν είστε εξοικειωμένοι με τον κώδικα VBA, μπορείτε επίσης να εφαρμόσετε το Εύρεση και αντικατάσταση βοηθητικό πρόγραμμα για μετάβαση στην τρέχουσα ημερομηνία.
1. Ενεργοποιήστε το φύλλο που περιέχει τη λίστα ημερομηνιών και επιλέξτε ένα κενό κελί, πληκτρολογήστε αυτόν τον τύπο = ΣΗΜΕΡΑ (), πατήστε εισάγετε κλειδί, τώρα λαμβάνετε τη σημερινή ημερομηνία.
2. Τύπος Ctrl + C για να αντιγράψετε τη σημερινή ημερομηνία και μεταβείτε για να επιλέξετε τη λίστα ημερομηνιών και, στη συνέχεια, πατήστε Ctrl + F για να ενεργοποιήσετε το Εύρεση και αντικατάσταση διαλόγου, στο βρείτε αυτό πλαίσιο κειμένου, πατήστε Ctrl + V για να επικολλήσετε τη σημερινή ημερομηνία σε. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Βρείτε όλα. Τώρα ο δρομέας μεταβαίνει στο κελί με σήμερα στην επιλεγμένη λίστα.
Συμβουλή: Εάν έχετε Kutools για Excel, μπορείτε να το εφαρμόσετε Επιλέξτε συγκεκριμένα κελιά για να χειριστείτε γρήγορα αυτήν την εργασία. Είναι πλήρης λειτουργία χωρίς περιορισμό σε 30 ημέρες, κάντε λήψη και κάντε μια δωρεάν δοκιμή τώρα. 
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
