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

场景

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

方法

1、新建一个页签,重命名为:目录

2、公式→定义名称

 3、定义名称为“ML”(此处可以自定义命名,但注意后面会用到,所以别太复杂),引用位置处输入如下代码,然后点确定

=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

 4、在目录sheet页签,找一个格子输入如下代码(注意ML是上一步定义的名称,如何定义的不是ML,需要自行修改):

=IFERROR(HYPERLINK("#'"&INDEX(ML,ROW(A1))&"'!a1",INDEX(ML,ROW(A1))),"")

 5、将鼠标放在刚才格子的右下角,鼠标编程十字形,然后按住鼠标向下拖动,直至出现空的单元格(所有页签都已经显示)

6、点击名称就可以跳转到对应sheet页签

7、保存或另存为xlsm格式(务必保存为此格式,否则关闭后将失效)

8、再次打开时,会有安全警告,务必点击“启动内容”,才能看到链接

 进阶

1、多下拉几行

2、当插入新的sheet或者改名时

 3、只要你下拉的格子数量大于总的sheet页签数量,目录页都会自动更新(如果没有自动更新,可以保存关闭一次,务必保存为xlsm格式,再打开一半就更新了)

  • 5
    点赞
  • 11
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
### 回答1: 可以使用 VBA 在 Excel 中循环遍历每一个工作,然后使用 "Sheet.Name" 属性获取工作名称。 例如,以下代码可以在活动工作簿的每个工作上循环,并在每个工作的 "A1" 单元格内插入超级链接,其文本为工作名称,并将其链接到该工作。 Sub CreateLinksToSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets With ws.Range("A1") .Hyperlinks.Add Anchor:=.Cells(1, 1), Address:="", SubAddress:= _ ws.Name & "!A1", TextToDisplay:=ws.Name End With Next ws End Sub 注意:在运行此代码之前,请确保启用了 "Microsoft Forms 2.0 对象库" 引用。 可以通过以下方式启用该引用: 1. 在 Excel 中打开 "开发人员" 工具栏。 2. 单击 "Visual Basic" 按钮。 3. 在 Visual Basic 编辑器中,单击 "工具" > "引用"。 4. 在 "引用" 对话框中,勾选 "Microsoft Forms 2.0 对象库" 前面的复选框,然后单击 "确定" 按钮。 希望这可以帮助你。 ### 回答2: 使用VBA可以很方便地获取Excel中每个sheet名称,并生成超级链接。下面是一个实现这个功能的例子: ``` Sub GenerateHyperlinks() Dim ws As Worksheet Dim hyperlinkSheet As Worksheet Dim row As Integer ' 创建一个名为Hyperlinks的工作,用于存放超级链接 Set hyperlinkSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) hyperlinkSheet.Name = "Hyperlinks" ' 在Hyperlinks工作中添加标题行 hyperlinkSheet.Range("A1").Value = "Sheet Name" hyperlinkSheet.Range("B1").Value = "Hyperlink" row = 2 ' 循环遍历所有的sheet For Each ws In ThisWorkbook.Sheets If ws.Name <> hyperlinkSheet.Name Then ' 排除Hyperlinks工作 ' 将sheet名称填入Hyperlinks工作的第一列 hyperlinkSheet.Cells(row, 1).Value = ws.Name ' 生成超级链接并插入到Hyperlinks工作的第二列 hyperlinkSheet.Cells(row, 2).Formula = "=HYPERLINK(" & Chr(34) & "#" & ws.Name & "!A1" & Chr(34) & ")" row = row + 1 End If Next ws ' 设置超级链接列的格式为超级链接样式 hyperlinkSheet.Range("B:B").Style = "Hyperlink" ' 调整列宽 hyperlinkSheet.Columns("A:B").AutoFit ' 在Hyperlinks工作中选中标题行 hyperlinkSheet.Range("A1:B1").Select End Sub ``` 执行上面的代码后,会在Excel文件中生成一个名为Hyperlinks的工作,其中的第一列是每个sheet名称,第二列是对应的超级链接。可以根据需要自行调整、修改生成超级链接的方式和样式。 ### 回答3: 使用VBA编程可以很方便地获取Excel每个 sheet 名称,并生成链接。下面是一个示例代码: ```vba Sub CreateHyperlinks() Dim ws As Worksheet Dim lnk As Hyperlink Dim rng As Range Dim shtName As String ' 遍历所有 sheet For Each ws In ThisWorkbook.Sheets ' 获取 sheet 名称 shtName = ws.Name ' 设置超链接的目标范围 Set rng = ws.Range("A1") ' 创建超链接 Set lnk = ws.Hyperlinks.Add(rng, "#'" & shtName & "'!A1", , , shtName) ' 设置超链接样式 lnk.Range.Font.Color = RGB(0, 0, 255) lnk.Range.Font.Underline = xlUnderlineStyleNone lnk.Range.Font.Size = 12 Next ws End Sub ``` 这段代码使用了一个 For Each 循环来遍历当前工作簿中的所有 sheet 。对于每个 sheet ,获取其名称并将其作为超链接的显示文本。然后,创建一个超链接对象并指定其目标范围为单元格 A1。超链接的目标地址是一个字符串,由 "#"、单引号、sheet 名称、单引号、叹号和单元格地址组成。最后,通过设置超链接对象的 Range 属性,可以对超链接的样式进行修改,如字体颜色、下划线和大小等。 运行该宏后,每个 sheet 的单元格 A1 都会生成一个超链接,点击该链接可以跳转到对应的 sheet
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值