excel利用自定义函数获取工作表名称
时间:2022-09-07 20:53:29
有时需要在工作表中引用同一工作簿中其他工作表名称,当工作表数量较多时,逐一手工输入有些繁琐,这时可以添加一个自定义函数来快速获取工作表名称,方法如下:
按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下列代码:
Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As String
Application.Volatile
GetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).Name
End Function
上述代码定义了一个自定义函数GetSheetName,有两个参数:“idx”为工作表的索引号,“relative_position ”为逻辑型可选参数。“relative_position ”参数为“0”或省略时表示按工作表的绝对位置来获取工作表名称,其取值范围为“1,2,3,……”,当“idx”取这些值时依次获取工作簿中从左到右的第1,2,3,……个工作表的名称;该参数为真时按相对位置来获取工作表名称,即“idx”参数为“0”时取得当前工作表名称,为“-1”时取得其左侧第一个工作表名称,为“1”时取得其右侧第一个工作表名称。
示例:
取得第一个工作表的名称:
=getsheetname(ROW(A1))
向下拖到填充柄填充公式即可依次取得各工作表名称。
在G11单元格取得当前工作表的名称:
=getsheetname(ROW()-11,1)
向上填充公式可获取其左侧工作表名称,向下填充公式可获取其右侧工作表名称。
标签:名称,工作,第一个,获取,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Excel指定位置的单元格引用的OFFSET函数使用基础教程
2023-09-07 04:10:11
如何用excel设置xy轴的教程
2022-05-01 08:24:53
excel表格不小心删除了怎么找回
2022-09-07 23:11:13
![](https://img.aspxhome.com/file/2023/1/36311_0s.jpg)
手把手教你学Excel第06课-Excel的数据共享基础教程
2023-03-01 12:07:27
![](https://img.aspxhome.com/file/2023/9/a154849_0s.jpg)
excel如何筛选重复数据
2022-08-14 09:45:53
Excel2007五个函数统计学生期末考试分数段
2023-07-14 03:03:33
![](https://img.aspxhome.com/file/2023/9/38779_0s.jpg)
Excel表格合并单元格快捷键设置方法
2022-02-19 18:31:12
![](https://img.aspxhome.com/file/2023/6/37316_0s.png)
excel中求和的方法(2种)
2022-07-05 00:16:46
简述使用Excel轻松提速
2022-04-06 23:24:47
注释:在恢复所有已撤消的操作时
2022-09-09 02:19:09
excel表格数据透视表的使用方法
2022-08-22 04:01:15
Word设置文本框旋转的方法
2022-03-04 19:42:36
![](https://img.aspxhome.com/file/2023/7/31567_0s.jpg)
Excel表格怎么统计时间段内对应数据数量?
2022-10-28 12:17:49
![](https://img.aspxhome.com/file/2023/5/42605_0s.jpg)
excel表格中制作流程图的方法
2023-01-27 22:42:56
输入下面的函数公式: =TEXT(E2+1+(WEEKDAY(E2
2023-07-16 04:13:41
在Excel表格中怎么设置主次坐标轴?
2023-11-19 04:18:06
![](https://img.aspxhome.com/file/2023/9/a153569_0s.jpg)
联想win10防火墙怎么关闭?联想win10防火墙关闭方法
2023-11-09 05:38:23
![](https://img.aspxhome.com/file/2023/7/47837_0s.png)
升级iOS 16后无法正常安装部分APP怎么办?
2023-08-22 01:38:56
![](https://img.aspxhome.com/file/2023/4/45394_0s.png)
Win10 1903到底有什么不同?Win10 1903更新内容汇总
2023-11-13 05:54:59
![](https://img.aspxhome.com/file/2023/8/48958_0s.jpg)
使用Text函数在Excel2013中建立不会间断的顺序编号
2023-12-16 09:39:50