Πώς να εισαγάγετε αυτόματα ημερομηνία κατά την εισαγωγή δεδομένων σε μια στήλη;

Όταν εργάζεστε σε ένα φύλλο εργασίας, θέλετε η τρέχουσα ημερομηνία και ώρα να εισάγονται αυτόματα στη στήλη Β κατά την εισαγωγή δεδομένων στη στήλη Α όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Στο Excel, πώς θα μπορούσατε να προσπαθήσετε να λύσετε αυτήν την εργασία με μια εύκολη και γρήγορη λύση;

Αυτόματη εισαγωγή ημερομηνίας κατά την εισαγωγή δεδομένων σε μια στήλη με κωδικό VBA

Αυτόματη εισαγωγή ημερομηνίας κατά την εισαγωγή δεδομένων σε μια στήλη με κωδικό VBA

Ίσως, δεν υπάρχει άμεσος τρόπος για να αντιμετωπίσουμε αυτήν την εργασία στο Excel, αλλά, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει, κάντε τα εξής:

1. Επιλέξτε την καρτέλα φύλλων που θέλετε να εισαγάγετε αυτόματα την ημερομηνία και, στη συνέχεια, κάντε δεξί κλικ σε αυτήν, επιλέξτε Προβολή κωδικού από το μενού κειμένου, και έπειτα έπεσε Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην Ενότητα:

Κωδικός VBA: Εισαγάγετε αυτόματα την ημερομηνία κατά την εισαγωγή δεδομένων σε άλλη στήλη:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

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

Σημείωση: Στον παραπάνω κώδικα, A2: A15 είναι τα κελιά που θέλετε να εισαγάγετε τιμές.