[vba]Код
Private Previous_Value
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Address(0, 0) = "A2" Then Previous_Value = [A2]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 And Target.Address(0, 0) = "A2" Then [D2] = Previous_Value
End Sub
[/vba]Нашел такой код, но он только запоминает предыдущее значение и копирует его в D2, вставляем потом формулу в E2=A2-D2 получили разницу, как теперь ее добавить к B2 и С2? можно ли обойтись без этой доп формулы? можно ли вообще сделать это без макроса? если нет, то как быть с тем когда в ячейку ввел неправельное значение и надо его исправить