Изменения по Валу, цель в диапазоне не распознается

Question

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

Привет всем, Когда я использую приведенный выше код работает с модуля, это вызывает изменение Вэл, написанное на листе

Private Sub Worksheet_Change(ByVal Target As Range) 

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

Теперь клетки часть кода копирует блок из четырех ячеек в столбец 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 

Значение изменяется для всего блока ячеек, поэтому сделаны четыре изменения цели

Спасибо.

Answer 1

Как обрабатывать объект для учета> 1 ячейки в диапазоне:

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim c as Range 

For each c in Target.cells 
    If c.Column = 11 Then 
     c.Offset(0, 1).Value = Now() 
    End If 
Next c 

End Sub 

или:

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rng as Range 

Set rng = Application.Intersect(Target, Me.Columns(11)) 
If not rng is nothing then 
    rng.Offset(0, 1).Value = Now() 
End If 

End Sub 

Также хорошая идея, чтобы отключить события, прежде чем обновить таблицу с вашего Change подразделам (иначе вы просто запускаете событие с обновлением). Используйте

Application.EnableEvents=False 

затем установить обратно Правда, когда сделано (не забывайте, что часть!)