excel的sheet名称目录链接

最新推荐文章于 2024-07-16 15:49:25 发布

转载最新推荐文章于 2024-07-16 15:49:25 发布 · 995 阅读

本文介绍了一段VBA代码，用于在Excel的Sheet1页面的第一列自动生成所有工作表的名字列表，并在B2单元格创建指向各工作表A1单元格的超链接。通过这段代码，可以快速导航到不同的工作表，提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原文链接： https://jingyan.baidu.com/album/d2b1d10297ceb35c7e37d499.html?picindex=3

1、录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列

Sub createmulu()

For i = 1 To Sheets.Count

Cells(i, 1) = Sheets(i).Name

End Sub

2、在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

Ygg_Lee

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

excel表多个sheet自动生成目录

m0_66501929的博客

06-05

5418

excel表多个sheet自动生成目录

EXCEL多sheet添加目录跳转

weixin_45525324的博客

06-04

5695

excel中有几十个sheet，点下方左右切换sheet太耗时，希望可以有根据sheet名超链接跳转相应sheet，处理完后再跳回原sheet。

参与评论您还未登录，请先登录后发表或查看评论

Excel创建sheet目录

zhengjia12的专栏

06-08

2302

Excel建立目录：方法1：使用宏表函数步骤1：在A1单元格建立名字为目录的名称管理器 =INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW()) 步骤2：在B1单元格输入以下公式 =IFERROR(HYPERLINK("#’"&目录&"’!A1",RIGHT(目录，LEN(目录)-FIND("]",目录))),"") 方法2：使用vb脚本 Attribute VB_Name = "模块1" Sub 目录() Attribute 目录.VB_ProcDa

【Excel】给Excel生成工作表目录

热门推荐

Ep流苏的博客

09-23

1万+

当工作表太多时，尽管有响应的命名，但还是不容易维护。所以通过以下步骤制作一个Excel工作表目录就方便很多了。操作步骤：第一步，在第一个工作表前面插入新的工作表，并命名为目录；第二步，打开公式选项卡中的名称管理器选项；第三步，点击新建，新建一个名称为目录，引用位置为 =INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW()) 的名称； 4. 第四步，在目录工作表的 B1 单元格内输入公式：=IFERROR(HYPERLINK(目录&"!

excel 电子表格工作表自动生成工作表目录

03-27

excel 电子表格工作表自动生成工作表目录！

Excel 批量获取sheet页名称，并创建超链接指向对应sheet页

菜鸟记录

04-29

5352

⏹Excel 批量获取sheet页名称，并创建超链接指向对应sheet页

Excel提取sheet页签，并生成跳转链接

ww2011的博客

04-01

3375

有非常多的Excel的sheet页签时，做一个目录，可以快速点击定位。

解析SQLServer获取Excel中所有Sheet的方法

09-10

以下是一个示例UDF，名为`dbo.udf_getExcelTableNames`，用于获取Excel文件中的所有Sheet名称： ```sql use tempdb; go if (object_id ('udf_getExcelTableNames' ) is not null ) drop function dbo.udf_...

VBA学习(4):一键生成Sheet表目录

nianfen的博客

06-18

1071

今天给大家分享一段VBA小代码，作用是批量获取当前工作簿所有工作表的名称，并创建超链接，以方便工作表的查阅与管理。第8至第13行代码采用索引法遍历当前工作簿表的集合。Sheets.Count语句返回当前工作簿工作表的数量。第3至第6行代码清空当前表A列内容，并设置文本格式，避免当工作表名称是文本型/类日期星数值时名称变形。技术交流，软件开发，欢迎加微信xwlink1996。各参数说明如下图所示。

[AHK]为excel生成sheet目录

liuyukuan的专栏

10-22

1371

工作中遇到excel有n多sheet，而excel的sheet浏览条比较短，能显示的sheet页面数目有限，不方便使用。【需求】在首页中生成目录，每个目录项对应一个sheet，点击可以跳转：在每个sheet中有返回首页的超链接： AutoHotkey脚本： ;作者：sunwind ;时间：2017年10月22日22:40:35 ;功能：为exce

提取Excel文档的sheet表目录

yuhualee的专栏

03-31

1929

提取Excel文档的sheet表目录步骤： 1.定义宏：getworkbook= get.workbook(1) 2.双击A1单元格，提取sheet表名，输入公式：=INDEX(RIGHT(getworkbook,LEN(getworkbook)-FIND("]",getworkbook)) ,ROW(A1) )&T(NOW())。然后下拉出所有表名 3.双击A2单元格，建立表名对应到相

使用Excel公式，获取当前 Excel 的Sheet页的名字

sun0322

11-28

8312

使用公式如下 =MID(CELL("filename",$A$1), FIND("]", CELL("filename",$A$1))+1, 20) 以上・补足1 使用上面的公式，sheet页的长度超过20时会有问题，具体请自行调整・补足2 CELL("filename",$A$1)对应的内容如下 C:\Users\userName\Desktop\[新建 Microsof...

如何使用excel制作工作表目录

Zola的博客

08-22

3104

第一步，建立目录工作表。在我们已经有多个sheet页工作数据的excel文件中新建一个工作表，命名为“目录”。第二步，单击B1单元格，切换到【公式】选项卡。第三步，单击【定义名称】，弹出【新建名称】对话框，在“名称”文本框中输入“目录”。第四步，在“引用位置”文本框输入以下公式：=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW()) 第五步，创建带链接的目录...

自动生成excel中sheet目录导航

jonesAriven的博客

07-26

3303

自动生成excel中sheet目录导航： 1、alt+f11 2、插入-模版 Sub mulu() On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range ShtCount = Worksheets.Count If ShtCount = 0 Or ShtCount = 1 T...

Excel-怎么样批量生成sheet名称目录链接(转)

测试小鸟的博客

08-15

8499

源文章地址：https://jingyan.baidu.com/article/d2b1d10297ceb35c7e37d499.html

Excel 根据sheet生成目录和链接

weixin_34391854的博客

11-03

972

2019独角兽企业重金招聘Python工程师标准>>> ...

自动创建Excel sheet页索引的办法

Alpha's 学习笔记

12-27

2161

方法一： 1）先下载一个Excel文件：http://vdisk.weibo.com/s/lKO2s 2）把Catalog页移动到需要建立索引的Excel文件中 3）右键Create按钮 - Assign Macro... - 选择：Catalog.Create_DropDown_MainMenu 右键Clear按钮 - Assign Macro... - 选择：Catalog.Del...

【EXCELL技巧篇】使用Excel公式，获取当前 Excel的Sheet页的名字

最新发布

书成日记，日记便成了一本书

07-16

3045

【通知】：正式跟大家说个难过的消息，本来在「中国朝代史」结束后，开启的下一个专栏「中国近代史」前面几期做的还好好的，可是今天起正式通知审核不过，因为一些原因。其实我对于历史这一块我还是很感兴趣的，因为兴趣所致，所以也很用心去整理归纳，很可惜，后面不能再更新这个系列了，这几天看看后面更新啥。

Excel如何为sheet设置超链接目录

你的代码有灵魂吗？

09-13

8434

初始Excel如下，第一个sheet为目录表，后面几个为包含具体信息的sheet 先按如下步骤操作：点击【公式】，然后选择【定义名称】，输入公式=GET.WORKBOOK(1) 选择单元格C3，填入如下内容： =HYPERLINK("#'"&IFERROR(INDEX(MID(工作表名称,FIND("]",工作表名称)+1,99),ROW()-1),"")&T(RAND())&"'!A1",IFERROR(INDEX(MID(工作表名称,FIN...

Excel自动创建sheet页目录

07-08

您可以使用VBA宏编写一个自动创建Sheet页目录的功能。以下是一个示例的VBA代码： ```vba Sub CreateSheetIndex() Dim IndexSheet As Worksheet Dim ws As Worksheet Dim i As Integer '创建一个新的Sheet页作为目录 Set IndexSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) IndexSheet.Name = "目录" '在目录Sheet页中添加标题 IndexSheet.Range("A1").Value = "Sheet页目录" '循环遍历所有Sheet页，添加链接到目录Sheet页 For i = 1 To ThisWorkbook.Sheets.Count - 1 Set ws = ThisWorkbook.Sheets(i) IndexSheet.Hyperlinks.Add Anchor:=IndexSheet.Cells(i + 2, 1), _ Address:="", _ SubAddress:="'" & ws.Name & "'!A1", _ TextToDisplay:=ws.Name Next i '设置目录格式 IndexSheet.Columns("A").AutoFit IndexSheet.Rows(1).Font.Bold = True '切换到第一个Sheet页 ThisWorkbook.Sheets(1).Activate MsgBox "已成功创建Sheet页目录！", vbInformation End Sub ``` 您可以按照以下步骤使用上述VBA代码： 1. 打开Excel文件并按下`Alt + F11`打开VBA编辑器。 2. 在VBA编辑器中，选择`插入` -> `模块`，然后将上述代码复制粘贴到模块中。 3. 关闭VBA编辑器。 4. 按下`Alt + F8`打开宏对话框。 5. 选择`CreateSheetIndex`并点击`运行`按钮。 6. 自动创建的Sheet页目录将会在最后一个Sheet页后面添加，并且会自动设置好链接。请注意，此VBA代码将不会在目录Sheet页中自动更新Sheet页的名称变化，如果您后续添加或删除了Sheet页，需要重新运行宏来更新目录。