VBA、複数の選択で同じマクロを実行

Question

日付と同じ関連する行の値が変更された場合は、最初の列（A）の日付を更新したいと考えています。

以下のコードを使用して、一度に1つのセルに対して実行できます。ただし、複数のセルが選択されている場合、マクロは実行を停止します。複数のセルでも動作するように、コードの下でアップグレードする手助けはできますか？

私はあらかじめ定義されたターゲットと範囲に必要なコードを見つけましたが、コード内でターゲットまたは選択範囲を定義しないと機能します。

Dim oldValue As Variant 

'Get the old selected cell value 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    oldValue = Target.Value 
End Sub 

'Update the date in first column when new value on selected cell 
Private Sub Worksheet_Change(ByVal Target As Range) 
    If (Target.Count = 1) And Not (Target.Column = 1) And Not (Target.Value = oldValue) Then 
     Cells(Target.Row, 1) = Date 
    Else 

    End If 
End Sub 

編集（コメント）：

私は、複数のセルが変更された場合、関連する日付を更新できるようにしたいです。たとえば、文字「x」を範囲C6,C8:C9にコピーすると、A6,A8およびA9の日付が変更されます。しかし、文字「a」を同じセルにコピーするときは、A6とA9のみ変更する必要があります。これは、変更する前にC8が既に「a」だったためです。

Answer 1

Dim dict As Object 

'Get the old selected cell value 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Set dict = CreateObject("Scripting.Dictionary") 
    For Each cell In UsedRange.Cells 
     dict.Add cell.Address, cell.Value 
    Next cell 
End Sub 

'Update the date in first column when new value on selected cell 
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (Target.Column = 1) Then 
     For Each cell In Target.Cells 
      If dict.exists(cell.Address) Then 
       If dict(cell.Address) <> cell.Value Then 
        Application.EnableEvents = False 
        Cells(cell.Row, 1) = Date 
        Application.EnableEvents = True 
       End If 
      Else 'if the cell was not used before and this is a new row being filled 
       Application.EnableEvents = False 
       Cells(cell.Row, 1) = Date 
       Application.EnableEvents = False 
      End If 
     Next cell 
    End If 
End Sub