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 つのターゲット変更が行われます。
ありがとう。