Loading [MathJax]/jax/output/CommonHTML/config.js
前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >VBA实用小程序69:判断一个单元格区域是否包含另一个单元格区域

VBA实用小程序69:判断一个单元格区域是否包含另一个单元格区域

作者头像
fanjy
发布于 2021-03-12 08:46:47
发布于 2021-03-12 08:46:47
3.4K00
代码可运行
举报
文章被收录于专栏:完美Excel完美Excel
运行总次数:0
代码可运行

excelperfect

有些情形下,我们需要判断一个单元格区域是否包含另一个单元格区域,或者说某单元格区域是否在另一个单元格区域内,这样好进行下一步的操作。可以使用一个简单的VBA自定义函数来实现。

程序代码如下:

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
Public Function blnRange(rng1 As Range, rng2 As Range) As Boolean
   '检查rng1是否在rng2中
   '如果是,则返回True
    Dim rngInterRange As Range
    Set rngInterRange = Application.Intersect(rng1, rng2)
    blnRange= Not rngInterRange Is Nothing
    Set rngInterRange = Nothing
End Function

程序使用了Application对象的Intersect方法,如果rng1代表的区域在rng2中,则返回True,否则返回False。

例如,如果当前选择的单元格处于列B中,则将设置其背景色为红色,否则设置其背景色为绿色,代码如下:

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
Sub test()
    If blnRange(Range(Selection.Address), Columns("B:B")) Then
       Selection.Interior.Color = vbRed
    Else
       Selection.Interior.Color = vbGreen
    End If
End Sub

有时候,一段小小的程序能在编程中起到很大的作用。因此,在学习VBA时,可以收集一些实现特定功能的通用程序,方便要用时拿来就用。

欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2021-02-08,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 完美Excel 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
暂无评论
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档
本文部分代码块支持一键运行,欢迎体验
本文部分代码块支持一键运行,欢迎体验