VBAを使用してExcelで変更されたセルの内容をキャプチャする方法はありますか？

Question

ワークシートに表があります。 VBAを使用して、そのテーブルに加えられた変更をキャプチャしたいと思います。これは可能ですか？

たとえば、最初はC4 = 14です。ユーザーがC4 = 18に変更された場合、どのセルが変更されたのか（この場合はC4）、変更されたセル（この場合は18）がわかります。高度な機能の

、ユーザがC5にC4を変更、行を追加した場合には（行4上の行を追加）、およびC4 = 11（新しいC4）を加えます。これは捕らえられますか？どのように元の行4を削除するのですか？削除されたコンテンツをキャプチャできますか？

何か助けていただければ幸いです。

おかげ残念ながら答えはノーのではなく、本当に

Answer 1

。ワークシート変更イベントがトリガーされるまでに、ターゲットの値は新しい値になり、古い値は失われます。

対象のワークブックに対して実行されたすべてのアクションをミラーリングした隠れたワークブックを維持している人を一度読んだので、変更を追跡するために使用することができました。しかし、明らかにこれは多くの努力です。

代わりに、Application.Undoを使用して試してみることもできます。したがって、ワークシート変更イベントから、値を記録し、Application.Undoを適用し、その値を記録してから最初の値に置き換えます。それは本当に面倒です。

Answer 2

A1からD4と表記します。ワークシートのコード領域に次のコードを入力します

Public OldValue As Variant 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Range("A1:D4"), Target) Is Nothing Then 
    Else 
     If Target.Count = 1 Then 
      MsgBox "Previous Value: " & OldValue & vbCrLf & "New value: " & Target.Value 
     End If 
    End If 
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Intersect(Range("A1:D4"), Target) Is Nothing Then 
    Else 
     If Target.Count = 1 Then 
      OldValue = Target.Value 
     End If 
    End If 
End Sub 

これは、単純な単一のセルをクリックし、タイプの編集のために動作します。 は古い値を検出して記録します。 Changeには、古い値と新しい値の両方が表示されます。

これは、マルチセルコピー/ペーストでは機能しません。