Πώς να μεταβείτε γρήγορα στο κελί με την τρέχουσα ημερομηνία στο 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 μέρες, κάντε λήψη και κάντε μια δωρεάν δοκιμή τώρα. 
Τα καλύτερα εργαλεία παραγωγικότητας του Office
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
- Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
- Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
- Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
- Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
- Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
- Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
- Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
- Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
- Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
