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
投稿
猜你喜欢
- 许多用户在使用完毕电脑之后,都会习惯性的关闭电脑系统。但是不少用户最近在关闭自己的电脑的时候,发现关闭了很久电脑都没有关机,这有什么办法解决
- 在Excel里,可以根据函数截取各种字符,仍然,却没有截取中文的函数。在Excel里,可以根据函数截取各种字符,仍然,却没有截取中文的函数。
- 如果工作表中包含大量列,则可以使用”按比例调整大小”选项减小工作表的大小,以便更好地适应打印页面。请按以下步骤操作:单击功能区上的”页面布局
- NoteExpress插件在word中不显示怎么解决?NoteExpress安装后word没有显示怎么办?有很多朋友安装了WORD插件但是发
- Excel表格文件转换成pdf格式的方法教学分享。今天和大家一起来分享Excel表格文件格式转换的方法。有的用户想要将文件转换成为PDF格式
- excel表格中的数据太过繁杂时,我们可以使用筛选在找到我们所需的数据。下面就跟小编一起来看看吧。excel表格筛选数据的步骤选中数据,在工
- 相信不少网友在win10系统安装软件时都遇到过“系统资源不足,无法完成请求的服务”的情况,到底是怎么回事?检查内存空间都足够大的,其实往往导
- 经常使用Excel录入数据的朋友应该都知道,在工作表的单元格中键入了多达15位数字,第15位之后的数字就更改为零。这样一来就非常扰乱数据的正
- 在我们使用excel2007查看数据的时候,都会讲表格转成图表,这样能直观的明晰的查看各项的数据。下面让小编为你带来excel2007直方图
- 福昕PDF阅读器怎么添加电子图章?福昕PDF阅读器想要给pdf文件添加图章,该怎么添加呢?下面我们就来看看详细的教程,很简单,需要的朋友可以
- 我们在网络上下载的文档,通常都会附带答案的,但我们有时又想批量删除里面的答案,然后共享出去一起进行复习。对于这个问题小编已经心中有答案咯。下
- 第1步,打开Word2013文档窗口,依次单击“文件”→“选项”命令,如图2013042403所示。 2第2步,打
- win10系统是当下使用人数最多的系统之一,但是系统并不如win7稳定,比如重装或者安装系统快完成的时候卡死了,这个问题如果碰上了要怎么解决
- 时间就是金钱、浪费时间就是浪费生命”相信这样的话大家都听过不少,所以在工作中我们要在有限的时间内尽可能的完成更多的事情,体现出自身的价值。为
- 由于 Excel 具有十分友好的人机界面和强大的计算功能,它已成为国内外广大用户管理公司和个人财务、统计数据、绘制各种专业化表格的得力助手。
- office版本:20191、按 “win+R” 键,打开运行,输入"regedit",打开注册表编辑器
- 有时候,我们可能需要将用户限定到工作表的某区域,只能看到这部分区域的内容。如下图1所示,无论你拖动右侧的垂直滚动条,还是右下侧的水平滚动条,
- 虽然word 2007自带了一些固定的页眉样式,但多数文档都不需要如此复杂的页眉。有时只需要将少量的信息添加到页面顶部,比如你的姓
- 找到vlookup.点确定 引用一列数据步骤6:关于Vlookup函数内容解析: Lookup_value唯一值为需要在数组第一列中查找作参
- ①启动Excel2007,打开表格,看到D列里面都是小写形式的,我们需要将其转为大写形式,在单元格输入下面的函数公式: =upper(D2)