Как записать изменяющиеся значения в ячейке в 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 в окно кода.

Код 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

Заметки: В коде C2 - это ячейка, в которую вы хотите записывать все изменяющиеся значения. D2 - это ячейка, в которую вы заполняете первое изменяющееся значение C2.

3. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

С этого момента каждый раз, когда вы меняете значения в ячейке C2, предыдущие изменяющиеся значения будут записываться в D2 и ячейках ниже D2.