|
こんにちわ。
>単にChangeイベントだけでは以前の値の参照はできません。
>どこかにセルA1のコピーを常に持っているとこの処理はできます。
ChangeイベントだけでもUndo使えばできまっせ。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim PrevValue As Variant
Dim NewValue As Variant
Dim NextCell As String
If Target.Address = "$A$1" Then
NewValue = Target.Value
NextCell = ActiveCell.Address
Application.EnableEvents = False
Application.Undo
PrevValue = Target.Value
Target.Value = NewValue
Range("A2").Value = PrevValue
Range(NextCell).Activate
Application.EnableEvents = True
End If
End Sub
試してみてな。
ほな。
|
|