Здравствуйте.
В таблице Excel B1=A1*A2.
При каждом изменении значений в А1 и А2, произведение в В1 тоже меняется.
Нужно, чтобы в столбец D сохранялась вся история изменений ячейки В1.
В этом примере макроса описывается сохранение изменения ячейки B1 в столбец D:
___________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row < 2 Then
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
LastRow = LastRow + 1
For Each cel In [b1]
Cells(LastRow, 4) = cel.Value
LastRow = LastRow + 1
Next
End If
End Sub
_______________
Дело в том, что в примере значения сохраняются только, если они были изменены вручную. А нужно, чтобы сохранения происходили и тогда, когда изменения значений ячеек происходит автоматически. Помогите, как это сделать?
В таблице Excel B1=A1*A2.
При каждом изменении значений в А1 и А2, произведение в В1 тоже меняется.
Нужно, чтобы в столбец D сохранялась вся история изменений ячейки В1.
В этом примере макроса описывается сохранение изменения ячейки B1 в столбец D:
___________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row < 2 Then
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
LastRow = LastRow + 1
For Each cel In [b1]
Cells(LastRow, 4) = cel.Value
LastRow = LastRow + 1
Next
End If
End Sub
_______________
Дело в том, что в примере значения сохраняются только, если они были изменены вручную. А нужно, чтобы сохранения происходили и тогда, когда изменения значений ячеек происходит автоматически. Помогите, как это сделать?
