excel利用VBA选择已定义名称的区域
发布时间：2023-10-08 07:11:39
标签：区域,名称,定义,选择,Excel函数
如果活动单元格位于某个已定义名称的区域中，可以用下面的VBA代码来选择这个区域，同时在状态栏中给出提示。
Public Sub SelectRange()
Dim RngName As String
Dim R As Range
Set R = ActiveCell
Dim Msg As String
Msg = "活动单元格不在已定义名称的区域中"
RngName = CellInNamedRange(R)
If RngName <> "" Then
Range(RngName).Select
Msg = "已选择的区域名称： " + RngName
End If
Application.StatusBar = Msg
End Sub
Public Function CellInNamedRange(Rng As Range) As String
Dim N As Name
Dim C As Range
Dim TestRng As Range
On Error Resume Next
For Each N In ActiveWorkbook.Names
Set C = Nothing
Set TestRng = N.RefersToRange
Set C = Application.Intersect(TestRng, Rng)
If Not C Is Nothing Then
CellInNamedRange = N.Name
Exit Function
End If
Next N
CellInNamedRange = ""
End Function
如果活动单元格位于多个已定义名称的区域中，将按照名称框下拉列表中的顺序选择第一个名称区域。
0
投稿猜你喜欢
- 在我们工作时，有时需要把WPS表格的表格设置成横向，但是一旦设置了横向，打印时就会打印不全，有什么办法可以解决这个问题呢?下面小编马上就告诉
在做PPT时，许多人都希望自己能做出吸人眼球的动画效果，因为动画在演示过程中如果能够巧妙的运用，能够引导观众视线和注意力，强调视- 经过了漫长的等待，我们终于迎来了Windows 10的推出。只有Windows 7以及Windows 8.1用户才可以自7月29日起免费进行
- 深度xp系统中网页链接打不开该怎么办呢？好端端的电脑出现了网页打不开的问题，这样的故障真是令人头疼，不过想要在深度xp系统中解决这个问题其实
- 在全新的 iOS 17 系统中，苹果为信息APP带来重大升级：包括全新贴纸、优化搜索、返回上次离开对话的位置、实时分享位置、平安确认功能等。
- 如何ping网络ip地址？其实很简单，本文就为大家带来了Win11网络地址ping测试方法，需要的朋友赶紧看看吧ping属于一种通信协议，是
- 现在的工作已经离不开Excel等办公软件了，如何使用好软件，提升工作效率，在Excel中，有的数据我们已经在1个工作表中完成了，现在要在另一
- 各人好， 咱们在 一样平常 事情 傍边， 常常 需求给文档 增加装订线，使文章看起来 明晰 美妙， 那末在WPS 笔墨 傍边， 怎样给文档
- 说明NORM.S.INV 函数返回标准正态累积分布函数的反函数值。标准正态分布函数的平均值为 0，标准偏差为 1。返回值标准正态累积分布函数
- 很多时候，我们在安装某些软件时，有时会需要先获取管理员权限，才能继续执行下去。不过，不少win10系统用户都不知道该获取电脑运行的管理员权限
- 硬盘无法识别?不少用户表示在开机时进入bios修改设置时因为电脑硬盘无法识别而消失不见了，无论如何重启电脑结果仍然不变。这是怎么回事呢?如何
- 怎么在win11上设置默认打印机？在 Windows 11 上，当您安装多台打印机时，系统会使用“让 Windows 管理我的默认打印机”功
- 一般情况下，win8系统只要删除桌面文件，文件图标就会消失了。但是一些用户反馈说Win8删除文件后图标不消失，只有刷新后才会消失，该怎么解决
- 有很多win7电脑用户都会安装斑马打印机来使用，而要正常使用的话，就要安装斑马打印机驱动才可以，但是很多win7系统用户可能不知道如何安装斑
- 我们在编辑WPS文档的时候总会遇到各种各样的问题，让我们非常烦恼。就比如最近有小伙伴问我WPS文档做完了却出现了空白页，怎么也删不掉最后留在
- 在当下遍地都是网红的时代，抖音作为一个短视频发布平台，成就了众多普通人的网红梦。还是那句老话，工欲善其事必先利其器，想要玩转抖音，手里没有几
- 这两天发生了一件大事，滴滴收购了Uber，我的天啊，免费打车时代就这么结束了？不过易道很快就站了出来，表示行业只剩下滴滴优步和易到两家，今后
- 书香小说怎么查看目录？书香小说是一款小说阅读器，书香小说为用户提供了海量的小说阅读，如果我们想要在书香小说中查看小说目录的话，要怎么进行操作
- Win10系统虽然经过补丁，慢慢的在稳定，但是还是有很多小问题以及BUG经常碰上，比如系统画面突然定格死机。很多用户只能通过强制关机再重启使
- 下面以PowerPoint2007为例，介绍插入Word表格具体操作步骤。1.在演示文稿编辑模式中，单击功能区的“插入”选项卡。2.单击“文
