|
根据一些资料做了一个Intersect与Target结合
可以实现单元格值变动触发事件。
请教各位大神,不知道这个代码与找到最后一行再for 进行循环的对比哪个效率更高呢!
说明:下面代码是对B与C列进行监控发现这两列哪行的单元格的值发生变动时进这行B列C列的值相乘后的值写入D列!
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 = 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 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
|
|