Intersect 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Intersect 方法

发布于 2019-08-07 字数 723 浏览 808 评论 0

返回一个 Range 对象,此对象代表两个或多个范围重叠的矩形区域。


expression.Intersect(Arg1, Arg2, …)


expression 可选。该表达式返回一个 Application 对象。


Arg1, Arg2, … Range 类型,必需。重叠的区域。必须指定至少两个 Range 对象。


示例


本示例在 Sheet1 中选定两个命名区域 rg1 和 rg2 的重叠区域。如果所选区域不重叠,本示例将显示一条相应的信息。


Worksheets("Sheet1").Activate
Set isect = Application.Intersect(Range("rg1"), Range("rg2"))
If isect Is Nothing Then
MsgBox "Ranges do not intersect"
Else
isect.Select
End If

上一篇:InsertIndent 方法

下一篇:Item 方法

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!