工作表更改事件值

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