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)
