Πώς να καταγράψετε μεταβαλλόμενες τιμές σε ένα κελί στο Excel;

Πώς να καταγράψετε κάθε μεταβαλλόμενη τιμή για ένα κελί που αλλάζει συχνά στο Excel; Για παράδειγμα, η αρχική τιμή στο κελί C2 είναι 100, όταν αλλάζετε τον αριθμό 100 σε 200, η ​​αρχική τιμή 100 θα εμφανίζεται αυτόματα στο κελί D2 για εγγραφή. Προχωρήστε για να αλλάξετε 200 σε 300, ο αριθμός 200 θα εισαχθεί στο κελί D3, η αλλαγή 300 έως 400 θα εμφανίσει 300 σε D4 και ούτω καθεξής. Η μέθοδος σε αυτό το άρθρο μπορεί να σας βοηθήσει να το επιτύχετε.

Καταγράψτε τις μεταβαλλόμενες τιμές σε ένα κελί με κωδικό VBA

Καταγράψτε τις μεταβαλλόμενες τιμές σε ένα κελί με κωδικό VBA

Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να καταγράψετε κάθε μεταβαλλόμενη τιμή σε ένα κελί στο Excel. Κάντε τα εξής:

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

2. Τότε το Microsoft Visual Basic για εφαρμογές ανοίγει το παράθυρο, αντιγράψτε παρακάτω τον κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: καταγραφή μεταβαλλόμενων τιμών σε ένα κελί

Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
    Static xCount As Integer
    Application.EnableEvents = False
    If Target.Address = Range("C2").Address Then
        Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
    Else
        If xVal <> Range("C2").Value Then
         Range("D2").Offset(xCount, 0).Value = xVal
        xCount = xCount + 1
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    xVal = Range("C2").Value
End Sub

Notes: Στον κώδικα, το C2 είναι το κελί που θέλετε να καταγράψετε όλες τις μεταβαλλόμενες τιμές του. D2 είναι το κελί που θα συμπληρώσει την πρώτη μεταβαλλόμενη τιμή του C2.

3. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Από τώρα και στο εξής, κάθε φορά που αλλάζετε τιμές στο κελί C2, οι προηγούμενες μεταβαλλόμενες τιμές θα καταγράφονται στο D2 και τα κελιά κάτω από το D2.