'Application.Intersect 方法
'返回一个 Range 对象,该对象表示两个或多个区域重叠的矩形区域。
PS:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等
教学代码:
1 Sub test() 2 If Intersect([a1:d10], Selection) Is Nothing Then '注释:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等 3 MsgBox "没有交集"
'Application.Intersect 方法
'返回一个 Range 对象,该对象表示两个或多个区域重叠的矩形区域。
PS:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等
教学代码:
1 Sub test() 2 If Intersect([a1:d10], Selection) Is Nothing Then '注释:Is Nothing 用于判断对象是否存在,对象可以是工作簿,工作表,单元格区域等 3 MsgBox "没有交集"