关于工作表change事件target能否有两个或两个以上

zymwhy

各位老师，关同一工作表change事件中，若有两处target ,程序怎么写啊？

心的启点

单元格的触发事件只有一个，只不过在事件过程中加判断，你可以参考一下下面的代码改一下就可以
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Union(Range("B:B"), Range("C:C"))) Is Nothing Then
    If Target.Column = 1 And Target.Row > 2 Then
        If Cells(Target.Row, Target.Column) = "" Or Cells(Target.Row, Target.Column + 1) = "" Then
            Target.Offset(, 2) = ""
        Else
            Target.Offset(, 2) = Val(Target) * Cells(Target.Row, Target.Column + 1)
        End If
    ElseIf Target.Column = 3 And Target.Row > 2 Then
        If Cells(Target.Row, Target.Column) = "" Or Cells(Target.Row, Target.Column - 1) = "" Then
            Target.Offset(, 1) = ""
        Else
            Target.Offset(, 1) = Val(Target) * Cells(Target.Row, Target.Column - 1)
        End If
    End If
End If
End Sub

kevinchengcw

用intersect取不同区域的交集判断，然后执行相应代码

心的启点

解决了吗？