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

Πώς να μεταβείτε γρήγορα στο κελί με την τρέχουσα ημερομηνία στο 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

doc μετάβαση στην τρέχουσα ημερομηνία 1

3. Τύπος F5 κλειδί και, στη συνέχεια, ο δρομέας μεταβαίνει στο κελί με την τρέχουσα ημερομηνία όπου και αν βρίσκεστε στο βιβλίο εργασίας.
doc μετάβαση στην τρέχουσα ημερομηνία 2


βέλος μπλε δεξιά φούσκα Μεταβείτε στην τρέχουσα ημερομηνία με Εύρεση και αντικατάσταση

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

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

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

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

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


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (4)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό δεν λειτουργεί με τον κώδικα VBA, απλώς εμφανίζει ένα παράθυρο που ονομάζεται "Μετάβαση σε". Σκοπεύαμε να επεξεργαστούμε τον κώδικα VBA με κάποιο τρόπο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τα ίδια αποτελέσματα με τον Peter ... Το F5 εμφανίζει το GoTo. Δοκιμάσαμε επίσης τα Ctrl-F5 και Alt-F5. Υπάρχει κάποια άλλη ακολουθία πλήκτρων ή προσθήκη στον κώδικα; Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είμαι αρχάριος με το Microsoft Office και το Excel, αλλά είμαι προγραμματιστής από τη φύση μου. Εάν ο στόχος είναι να εντοπίσετε ένα κελί με τη σημερινή ημερομηνία - και να τοποθετήσετε τον κέρσορα σε αυτό, δεν μπορώ να δω την ανάγκη για όλο αυτόν τον κώδικα. Ένας απλός κωδικός (αναφέρεται παρακάτω) που δημιουργήθηκε σε μια μακροεντολή και αντιστοιχίστε τη μακροεντολή σε ένα γράμμα πείτε "T", και ως επιλογή μπορείτε ακόμη και να δημιουργήσετε ένα κουμπί και να αντιστοιχίσετε τη μακροεντολή σε αυτό, οπότε όταν κάνετε κλικ στο κουμπί θα μεταβείτε απευθείας σε αυτό το κελί. Οι γραμμές σχολίων (αυτές που ξεκινούν με ') είναι προαιρετικές. Μπορείτε να επιλέξετε να μην τα πληκτρολογήσετε. Τα χρησιμοποίησα για την αντιμετώπιση προβλημάτων του κώδικα. Το "Msgbox" είναι ένα ωραίο εργαλείο για να επικοινωνώ μαζί σας. Εδώ είναι ο κωδικός μου:--------------------------------- Sub GoToToday()
'
Μακροεντολή GoToToday
'
Συντόμευση πληκτρολογίου: Ctrl+t
'
Dim DateRange, DateCell As Range
Dim i As Byte
Dim x Ως συμβολοσειρά
On Error Συνέχιση Επόμενη

MySheet = ActiveSheet.Name

' MsgBox (Ημερομηνία)
Για i = 12 έως 130
x = "A" & i
MsgBox (x)
' MsgBox (Φύλλα εργασίας(MySheet).Εύρος(x))

If Worksheets(MySheet).Range(x).Value = Date then
MsgBox (i)
MsgBox (x)
' MsgBox (Φύλλα εργασίας(MySheet).Εύρος(x))
x = "D" & i
Εύρος (x). Επιλέξτε
Έξοδος Sub
End If
επόμενο:
Sub End

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

«Βρείτε τη σημερινή ημερομηνία στο φύλλο και ενεργοποιήστε το κελί
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Ενεργοποίηση
'-----

ActiveWindow.ScrollRow = Προβολή κύλισης ActiveCell.Row στο επιλεγμένο κελί
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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