万事通 • 2022年12月12日 09:18 • 自媒体

很高兴又和各位见面啦！这次周国亮想和你们聊聊怎么设置目录格式样式,目录格式调整，以及其他关于目录,工作,名称的一些相关干货，既然来了就别走了，好好的静下心把这篇文章阅读完相信你会有一定的收获哦！

当Excel中的工作表数量很多时，有一个带链接的目录真是太方便了，如下图所示，当我们选中“目录”表中对应A列的表名就会跳转到对应的表并自动隐藏其他的表。

这样的Excel工作表目录该如何制作呢？下面周国亮就带大家了解一下制作原理及步骤吧！

首先我们需要新建一个空白的工作表，重命名为“目录”，作为我们制作目录的存放的位置。

然后，右击“目录”工作表名称标签，点击“查看代码”命令，自动弹出VBA代码录入编辑窗口，将下面的一段VBA代码复制粘贴到窗口中。最后关闭VBA窗口即可。如下图所示：

VBA代码如下：

Private Sub Worksheet_Activate()
   On Error Resume Next
   Sheets("目录").Range("A1") = "目录"
   k = 1
   For Each sh In Sheets
       If sh.Name  "目录" Then
           k = k + 1
           Sheets("目录").Cells(k, 1) = sh.Name
       End If
   Next
   Sheets("目录").Range("A:A").EntireColumn.AutoFit
   Sheets("目录").Range("A:A").EntireColumn.HorizontalAlignment = xlCenter
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim sht As Worksheet
   On Error Resume Next
   If Target.Address = "$D$1" Then
       Call ShowSheet
       Exit Sub
   End If
   If Target.Row  1 Then Exit Sub
   For Each sht In Worksheets
       If sht.Name  "目录" Then sht.Visible = xlSheetVeryHidden
   Next
   Sheets(Target.Value).Visible = xlSheetVisible
   Sheets(Target.Value).Select
End Sub
Sub ShowSheet()
   Dim sh As Worksheet
   For Each sh In Sheets
       sh.Visible = -1
   Next
End Sub

回到Excel主界面后，我们只要点击一下除“目录”工作表名称标签以外的的任意一个工作表名称标签，比如本例中，周国亮点击了“单价表”工作表名称标签，我们发现在“目录”表中，所有的工作表名称就自动放置到了A列，形成了一个目录列表。