0
Cells(R, DataCol).Resize(, ColumnCount).Copy
Cells(R, DataCol).Offset(RowOffset * (R - StartRow), ColOffset).PasteSpecial xlValues

こんにちは、モジュールから実行されている上記のコードを使用すると、ワークシートに書かれた val による変更がトリガーされます

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 15 Then
  Target.Offset(0, 1).Value = Now()
  End If
End Sub

コードの Cells 部分は、4 つのセルのブロックを列 12 にコピーし、列 15 まで到達しますが、変更 val は 15 番目の列を変更された値として認識しません。ただし、ターゲット列を11に変更すると、

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 11 Then
   Target.Offset(0, 1).Value = Now()
   End If
End Sub  

セルのブロック全体の値が変更されるため、4 つのターゲット変更が行われます。

ありがとう。

4

1 に答える 1