当前所在位置: 首页 > 儿童教育 > 正文

查找重叠的单元格区域——Intersect方法

2023-01-26 餐饮美食网 【 字体:

如果我们想知道两个单元格区域是否有共同的单元格,或者要知道两个区域中哪些是共有单元格,即两个单元格区域重合的部分,就可以使用Intersect方法。

如下图所示,很容易看出单元格区域A1:C5与B3:E8相重合的区域是B3:C5,也就是红色单元格部分。

下面的代码获取上图中两个单元格区域重合的部分,并赋值给变量rngIntersect,最后显示重合区域的单元格地址。

Sub testIntersect1()

‘声明单元格对象

Dim rngIntersect As Range

‘获取相重合的交叉区域

Set rngIntersect =Intersect(Range(“A1:C5”), Range(“B3:E8”))

MsgBox “A1:C5与B3:E8相重合的区域是:”& rngIntersect.Address

End Sub

Intersect方法的语法

表达式.Intersect(Arg1,Arg2,Arg3,…,Arg30)

说明:

表达式是一个代表Application对象的变量,表明Intersect方法属于Application对象,在Excel中就是指Excel应用本身。因此,通常在代码中可以省略前面的Application限定,直接书写Intersect。例如我们在本文的示例代码中均省略了前面的Application。

必须指定至少两个Range对象作为其参数。

其返回值为Range对象。

我们来看看一些例子,进一步了解Intersect方法及其应用。

示例:判断两个单元格区域是否有重合

下面的例子用来判断一个区域是否包含另一个区域,即一个区域是另一个区域的子区域。代码如下:

Sub testIntersect2()

Dim rng1 As Range, rng2 As Range

Dim rng As Range

‘设置要测试的两个区域

Set rng1 = Range(“A1:D9”)

Set rng2 = Range(“A1:E11”)

‘获取两个区域相重合的区域并存储在变量中

Set rng = Intersect(rng1, rng2)

‘判断两个区域是否存在重合的区域

If Not rng Is Nothing Then

‘判断两个区域之间的包含关系

If rng.Address = rng1.Address Then

MsgBox rng2.Address & “包含”& rng1.Address

Else

MsgBox rng1.Address & “包含”& rng2.Address

End If

Else

MsgBox rng1.Address & “和” &rng2.Address & “区域无重叠.”

End If

End Sub

下图为不同区域的测试结果。(目前,我们还没有学习到与用户交互,所以采用“硬编码”的形式直接设置两个区域rng1和rng2。)

示例:用VBA实现保护单元格功能

下面是一个示例。结合运用Union方法和Intersect方法,禁止用户选择工作表中B1:B5和C6:C10这两块单元格区域,这样就可以防止用户修改这两块区域中的数据。代码如下:

Private SubWorksheet_SelectionChange(ByVal Target As Range)

Dim rngForbidden As Range

‘设置禁止操作的单元格区域

Set rngForbidden =Union(Range(“B1:B5”), Range(“C6:C10”))

‘如果所选择的单元格没有处于禁止操作的单元格区域中,则退出程序

If Intersect(Target, rngForbidden) IsNothing Then Exit Sub

‘选择A1并发出警告

Range(“A1”).Select

MsgBox “不能选择” &rngForbidden.Address & “中的单元格.”, vbCritical

End Sub

每当用户在与包含该事件过程的模块相关联的工作表中选择单元格区域时,就会触发工作表的Worksheet_SelectionChange事件过程。代码中,首先使用Union方法定义了由两个非连续单元格区域组成的禁止操作的区域,然后使用Intersect方法检查所选择的区域与禁止操作的区域是否有重合,并作为If语句的判断条件,如果没有重合则退出事件过程,用户正常操作,并不会感觉到什么;如果有重合,则光标定位到单元格A1并给出一条警告消息。

注:简单地说,工作表事件就是用户操作工作表时,工作表做出的相应响应。关于工作表事件将在以后详细介绍。

阅读全文
相关推荐

如何自制蛋挞

如何自制蛋挞
1、倒入低筋面、黄油和水,揉成面团状,藏一小时后取出,抹上黄油卷起,包上保鲜膜冷藏半小时。2、取出,将面团切成一厘米的面团,放入模具内,用力按压,中间稍薄,外缘要比模具高,将蛋挞液倒入蛋挞皮中,放入烤箱里烤30分钟即可。

肉火烧面怎么和面

肉火烧面怎么和面
1、首先用温水把酵母融开,加入面粉,用手把面粉揉成非常软的面团,可以放一点熬好的猪油在面团里面。2、然后放在温暖的地方,盖上保鲜膜发酵至2倍大,发好的面团用手插入不回缩,就说明面团发酵好了。

奶茶几分糖好喝

奶茶几分糖好喝
1、不同的人对奶茶的口感要求是不一样的,一般来说,奶茶有三分糖、五分糖、七分糖三种不同的口味。2、女生一般都喜欢喝甜一点的,而男生则喜欢喝不那么甜的,七分糖的奶茶最好喝。

过桥米线是哪里的?

过桥米线是哪里的?
过桥米线是来自云南省滇南地区的一种有名特色小吃。过桥米线最早是在清朝就已经出现,距离现在至少有一百多年的历史啦!起源于建水县东城外锁龙桥西侧的鸡市街头处,有建水的特产草芽、地椒作配料,风味独特而远近闻名。深受广大美食爱好者的喜欢,不少人为此专门长途跋涉,只为尝

面霜和乳液的区别

面霜和乳液的区别
面霜和乳液的区别,相较而言乳液的水分含量要比面霜高,乳液质地要轻薄一些,乳液主要作用是保湿,滋润可以隔离外界干燥的气候,面霜既可保湿,又可美白,还能抗衰老,乳液的吸收快一些,而面霜吸收比较慢一些,因为液体的吸收速度都比较快。

怎么摘隐形眼镜

怎么摘隐形眼镜
在摘隐形眼镜之前,先用洗手液将手清洗干净,以免将细菌带入眼睛内,对着镜子,用右手中指轻拉眼睛下眼睑,左手中指轻拉眼睛上眼睑,让黑色眼球暴露在空气中,用右手食指和拇指轻触镜片的两边缘部分,向中间推使镜片拱起,再用两手指轻轻捏出镜片即可。

粉饼和散粉的区别

粉饼和散粉的区别
粉饼是呈压缩固体状态,多呈圆形或者方形,散粉则是细腻的粉末状,粉饼遮瑕力会比较强一些,可以湿用做粉底,或者用来补妆,而散粉则是定妆的效果,粉饼通常用在底妆的第一步,而散粉通常用在底妆最后一步。

冷烫和热烫的区别

冷烫和热烫的区别
冷烫和热烫的区别:冷烫对头发的要求是要在保温状态下才能给卷有个好的效果,而热烫是在干和湿的情况下都行,热烫烫出来的头发比较自然明显而有弹力,冷烫的头发风干后基本看不出来,并且发质会有点干。

高品质香水如何鉴别?用三步就可以解决

高品质香水如何鉴别?用三步就可以解决
1、看色泽以天然香料调制而成的高级香水,都有它本来的颜色,且大都是琥珀色或褐色,看起来很像宝石,比如,从茉莉、玫瑰或水仙等天然鲜花中所萃取的精油都呈黄色、褐白或绿褐色;此外,香水中所添加的魅惑香气物性香料也是褐色,苔类中的橡树苔是绿色,从树根或树根脂类中萃取的

如何去除黑眼圈

如何去除黑眼圈
去除黑眼圈首先可以用热毛巾敷眼,然后再用冷毛巾敷,十分钟就能让黑眼圈淡化的不那么严重,其次将去壳后的鸡蛋用无菌纱布包裹住,敷于眼部轻轻转动,可以急救去除黑眼圈,另外抹完眼霜后,用双手顺时针按摩,可以促进血液循环消除黑眼圈。
本文Tag