Πώς να εισαγάγετε την τρέχουσα χρονική σήμανση όταν αλλάζουν δεδομένα σε άλλο κελί στο Excel;
Ας υποθέσουμε ότι λαμβάνετε ένα φύλλο εργασίας που χρειάζεται να τροποποιήσετε δεδομένα σε μια συγκεκριμένη στήλη. Και μετά την τροποποίηση του φύλλου εργασίας, πρέπει να εισαγάγετε την τροποποιημένη χρονική σήμανση για να ενημερώσετε τους άλλους ποια κελιά έχουν αλλάξει. Πώς να το αντιμετωπίσετε; Αυτό το άρθρο θα σας δείξει τη μέθοδο εισαγωγής της τρέχουσας χρονικής σήμανσης όταν αλλάζουν δεδομένα σε ένα άλλο κελί στο Excel όπως φαίνεται παρακάτω το στιγμιότυπο οθόνης.
Εισαγάγετε την τρέχουσα χρονική σήμανση όταν αλλάζουν δεδομένα σε άλλο κελί με τον κώδικα VBA
Εισαγάγετε την τρέχουσα χρονική σήμανση όταν αλλάζουν δεδομένα σε άλλο κελί με τον κώδικα VBA
Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, πρέπει να συμπληρώσετε τη χρονική σήμανση στη στήλη Ε, εάν αλλάξουν τα αντίστοιχα κελιά στη στήλη Γ. Κάντε τα εξής:
1. Στο φύλλο εργασίας πρέπει να τροποποιήσετε και να επισημάνετε με χρονική σήμανση, κάντε δεξί κλικ στην καρτέλα φύλλου και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού με δεξί κλικ.
2. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Κώδικας παράθυρο του Microsoft Visual Basic για εφαρμογές παράθυρο. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Εισαγάγετε την τρέχουσα χρονική σήμανση όταν αλλάζουν δεδομένα σε άλλο κελί
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End Sub
Note: Στον κωδικό, ο αριθμός 3 σημαίνει ότι πρόκειται να τροποποιήσετε δεδομένα στη στήλη Γ και το 5 υποδεικνύει ότι η χρονική σήμανση θα συμπληρωθεί στη στήλη Ε. Αλλάξτε τα ανάλογα με τις ανάγκες σας.
3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Από τώρα και στο εξής, όταν αλλάζετε δεδομένα στη στήλη Γ, η χρονική σήμανση θα συμπληρωθεί σε αντίστοιχα κελιά στη στήλη Ε όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Υπόδειξη. Επιλογή ημερομηνίας. ο Εισαγωγή ημερομηνίας χρησιμότητα του Kutools για Excel σας βοηθά να εισάγετε γρήγορα ημερομηνία με καθορισμένη μορφή ημερομηνίας σε ένα επιλεγμένο κελί.
Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 30 ημερών)
Σχετικά Άρθρα:
- Πώς να εισαγάγετε ή να εμφανίσετε την τελευταία αποθηκευμένη χρονική σήμανση στο φύλλο εργασίας στο Excel;
- Πώς να εισαγάγετε τη χρονική σήμανση σε συγκεκριμένο κελί όταν εκτελείται μακροεντολή στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!