自动生成excel中sheet目录导航

古城微笑少年丶 2021-11-23 14:26 466阅读 0赞

自动生成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 Then Exit Sub  
Application.ScreenUpdating = False  
For i = 1 To ShtCount  
If Sheets(i).Name = "目录" Then  
Sheets("目录").Move Before:=Sheets(1)  
End If  
Next i  
If Sheets(1).Name <> "目录" Then  
ShtCount = ShtCount + 1  
Sheets(1).Select  
Sheets.Add  
Sheets(1).Name = "目录"  
End If  
Sheets("目录").Select  
Columns("B:B").Delete Shift:=xlToLeft  
Application.StatusBar = "正在生成目录…………请等待！"  
For i = 2 To ShtCount  
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= \_  
"'" & Sheets(i).Name & "'!R1C1", TextToDisplay:=Sheets(i).Name  
Next  
Sheets("目录").Select  
Columns("B:B").AutoFit  
Cells(1, 2) = "目录"  
Set SelectionCell = Worksheets("目录").Range("B1")  
With SelectionCell  
.HorizontalAlignment = xlDistributed  
.VerticalAlignment = xlCenter  
.AddIndent = True  
.Font.Bold = True  
.Interior.ColorIndex = 34  
End With  
Application.StatusBar = False  
Application.ScreenUpdating = True  
Tuichu:  
End Sub  
  
复制完成后f5刷新即可，后期若sheet名修改了，重新alt+f11再F5刷新一下即可

发表评论取消回复

表情：

评论列表（有 0 条评论，466人围观）

还没有评论，来说两句吧...

相关阅读

相关 excel宏批量生成返回目录

上一篇https://blog.csdn.net/whandgdh/article/details/100184677，讲了批量生成目录连接到工作表后，我们还有一种场景是...

ゝ一世哀愁。/ 2024年04月17日 21:35/ 0 赞/ 105 阅读

相关 vscode自动生成markdown目录

1.安装插件 2.解决自动生成目录异常问题 3.鼠标指针放在第一行，右单击选择下图所示内容 1.安装插件 ![在这里插入图片描述][watermark

浅浅的花香味﹌/ 2023年10月11日 13:55/ 0 赞/ 90 阅读

相关 Excel中多sheet导出csv

Sub Macro1() Dim sh As Worksheet, p$ With Application.FileDialog(mso

港控/mmm°/ 2022年11月22日 05:12/ 0 赞/ 351 阅读

相关 POI实现一个excel 生成多个sheet

1. 要点 1.1 outPutStream 最后才能close 1.2 使用同一个 workbook 示例代码如下： @ApiOperation(

迷南。/ 2022年11月16日 10:38/ 0 赞/ 452 阅读

相关论文自动生成目录

写论文时自动生成目录这一步是必不可少的，下面我整理了一些生成目录的方法。以下图为例子： ![20161119200834891][] 方法一：（1）

落日映苍穹つ/ 2022年07月16日 13:52/ 0 赞/ 273 阅读

相关 csdn自动生成文章目录

自动生成文章目录 1，博文第一行写这一句代码`@[TOC](文章目录)` 2，使用井号标题记录一下这个小技巧，在博文头部自动生成目录。只需要两步： 1，博

客官°小女子只卖身不卖艺/ 2022年04月25日 09:14/ 0 赞/ 302 阅读

相关 JXLS使用按模板单sheet和多sheet excel生成

[JXLS使用（一）——Simple Sheet][JXLS_Simple Sheet] JXLS是一个简单易用的一个用于生成和读入Excel的工具，有兴趣的朋友可以到J

清疚/ 2022年04月12日 07:10/ 0 赞/ 1366 阅读

相关自动生成excel中sheet目录导航

自动生成excel中sheet目录导航： 1、alt+f11 2、插入-模版 Sub mulu() On Error GoTo Tuichu Dim i A

古城微笑少年丶/ 2021年11月23日 14:26/ 0 赞/ 467 阅读

相关 NPOI导出Excel生成多个sheet

using System; using System.Collections.Generic; using System.Linq; using

╰+攻爆jí腚メ/ 2021年11月10日 14:44/ 0 赞/ 582 阅读

相关 csdn自动生成目录

帮助文档直接粘贴出来就可以了,或者手输入也是可以的,注意下面的标题要用\打头即可 @[TOC](自定义标题) ![在这里插入图片描述][watermark_type

「爱情、让人受尽委屈。」/ 2021年09月21日 03:58/ 0 赞/ 456 阅读