Πώς να μεταβείτε γρήγορα στο κελί με την τρέχουσα ημερομηνία στο Excel;

Εδώ είναι ένα φύλλο με μια λίστα ημερομηνιών, θέλετε να μεταβείτε γρήγορα στο κελί που είναι με την τρέχουσα ημερομηνία, πώς να λύσετε αυτό το πρόβλημα;

Μετάβαση στην τρέχουσα ημερομηνία με το VBA

Μεταβείτε στην τρέχουσα ημερομηνία με Εύρεση και αντικατάσταση

Μετάβαση στην τρέχουσα ημερομηνία με το VBA

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

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να χρησιμοποιήσετε και πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης, επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης.

VBA: Μετάβαση στην τρέχουσα ημερομηνία

Private Sub Workbook_Open()
'UpdatebyExtendoffice
    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 κλειδί και, στη συνέχεια, ο δρομέας μεταβαίνει στο κελί με την τρέχουσα ημερομηνία όπου και αν βρίσκεστε στο βιβλίο εργασίας.

Ξεκλειδώστε το Excel Magic με Kutools AI

• Έξυπνη εκτέλεση: Εκτελέστε λειτουργίες κυψέλης, αναλύστε δεδομένα και δημιουργήστε γραφήματα—όλα αυτά καθοδηγούνται από απλές εντολές.
• Προσαρμοσμένες φόρμουλες: Δημιουργήστε προσαρμοσμένους τύπους για να βελτιστοποιήσετε τις ροές εργασίας σας.
• Κωδικοποίηση VBA: Γράψτε και εφαρμόστε τον κώδικα VBA χωρίς κόπο.
• Ερμηνεία τύπου: Κατανοήστε πολύπλοκους τύπους με ευκολία.
• Μετάφραση κειμένου: Σπάστε τα γλωσσικά εμπόδια στα υπολογιστικά φύλλα σας.

Βελτιώστε τις δυνατότητές σας στο Excel με εργαλεία που υποστηρίζονται από AI. Κατεβάστε τώρα και βιώστε την αποτελεσματικότητα όπως ποτέ άλλοτε!

Μεταβείτε στην τρέχουσα ημερομηνία με Εύρεση και αντικατάσταση

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

1. Ενεργοποιήστε το φύλλο που περιέχει τη λίστα ημερομηνιών και επιλέξτε ένα κενό κελί, πληκτρολογήστε αυτόν τον τύπο = ΣΗΜΕΡΑ (), πατήστε εισάγετε κλειδί, τώρα λαμβάνετε τη σημερινή ημερομηνία.

2. Τύπος Ctrl + C για να αντιγράψετε τη σημερινή ημερομηνία και μεταβείτε για να επιλέξετε τη λίστα ημερομηνιών και, στη συνέχεια, πατήστε Ctrl + F για να ενεργοποιήσετε το Εύρεση και αντικατάσταση διαλόγου, στο βρείτε αυτό πλαίσιο κειμένου, πατήστε Ctrl + V για να επικολλήσετε τη σημερινή ημερομηνία σε. Δείτε το στιγμιότυπο οθόνης:

3. κλικ Βρείτε όλα. Τώρα ο δρομέας μεταβαίνει στο κελί με σήμερα στην επιλεγμένη λίστα.

Συμβουλή: Εάν έχετε Kutools για Excel, μπορείτε να το εφαρμόσετε Επιλέξτε συγκεκριμένα κελιά για να χειριστείτε γρήγορα αυτήν την εργασία. Είναι πλήρης λειτουργία χωρίς περιορισμό σε 30 ημέρες, κάντε λήψη και κάντε μια δωρεάν δοκιμή τώρα.