昨天工作表事件中的Change事件还没结束,今天继续。
接着昨天内容 https://blog.csdn.net/Di77HaoWenMing/article/details/107738298
三、常用事件的实际操作
2.工作表的事件
2.2 Change事件的实际操作。
2.2.1如果不加以设置的话,只要有变动就会触发,但是实际情况是我们一般要求特定区域的单元格需要加事件进行处理,所以如何对特定单元格或区域进行设置是很重要滴,实现特定区域代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
'比如只对A1:D10这样4*10的单元格设置
Set rng = Range("A1:D10")
'设置判断条件,在区域内的就触发下面内容
'intersect是返回两个单元格区域的交叉部分
If Intersect(Target, rng) Is Nothing Then
Else
MsgBox ("你修改的单元格在A1:D10里面")
End If
End Sub
如果我们在A1:D10单元格区域内修改了,确实能正常触发。
</