工作表更改事件值

Question

我在Worksheet_Change

代碼如果一列9的更新則列8將與第9欄和col 11

但是，當乘自動填充用戶粘貼列中的值，則更改事件無法正常工作。只有Col 8中的第一個單元格被更新。

如何從這個克服？

Answer 1

試試這個

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error GoTo Whoa 
    Application.EnableEvents = False 

    If Target.Columns.Count > 1 Then GoTo LetsContinue 

    If Not Intersect(Target, Columns(9)) Is Nothing Then 
     Dim aCell As Range 

     For Each aCell In Target 
      aCell.Offset(, -1).Value = aCell.Value * aCell.Offset(, 2) 
     Next 
    End If 

LetsContinue: 
    Application.EnableEvents = True 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume LetsContinue 
End Sub