Application.Intersect 方法 (Excel)

您所在的位置:网站首页 vba判断单元格区域是否为空 Application.Intersect 方法 (Excel)

Application.Intersect 方法 (Excel)

2024-07-13 12:38| 来源: 网络整理| 查看: 265

Application.Intersect 方法 (Excel) 项目04/07/2023

返回一个 Range 对象,该对象代表两个或多个区域的矩形交集。 如果指定了不同工作表中的一个或多个区域,则返回错误。

语法

表达式。相交 (Arg1、 Arg2、 Arg3、 Arg4、 Arg5、 Arg6、 Arg7、 Arg8、 Arg9、 Arg10、 Arg11、 Arg12、 Arg13、 Arg14、 Arg15、 Arg16、 Arg17、 Arg18、 Arg19、 Arg20、 Arg21、 Arg22、 Arg23、 Arg24、 Arg25、 Arg26、 Arg27、 Arg28、 Arg29、 Arg30)

expression:表示 Application 对象的变量。

参数 名称 必需/可选 数据类型 说明 Arg1 必需 区域 重叠的区域。 必须至少指定两个 Range 对象。 Arg2 必需 区域 重叠的区域。 必须至少指定两个 Range 对象。 Arg3–Arg30 可选 Variant 相交范围。 返回值

Range

示例

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

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

以下示例比较 Worksheet.Range 属性、 Application.Union 方法和 Intersect 方法。

Range("A1:A10").Select 'Selects cells A1 to A10. Range(Range("A1"), Range("A10")).Select 'Selects cells A1 to A10. Range("A1, A10").Select 'Selects cells A1 and A10. Union(Range("A1"), Range("A10")).Select 'Selects cells A1 and A10. Range("A1:A5 A5:A10").Select 'Selects cell A5. Intersect(Range("A1:A5"), Range("A5:A10")).Select 'Selects cell A5. 支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3