本文由 发布，转载请注明出处，如有问题请联系我们！ 发布时间: 2021-08-01怎么设置目录格式样式-目录格式调整

当Excel中有很多电子表格时，有一个连接网站是特别便捷的。如下图所显示，在我们在目录表中挑选A列相匹配的表名时，会自动跳转到相匹配的表，隐藏别的表。

怎么制作那样的Excel电子表格文件目录？使我们一起来看看生产制造的机理和流程。

最先大家必须新开一个问号的电子表格，重新命名为“文件目录”，做为大家制作目录的储放的部位。最先，大家必须建设一个新的空乳白色电子表格，并将其重新命名为“文件目录”，这将是大家文件目录的储存部位。

随后，右键“文件目录”电子表格名字标识，点一下“查询编码”指令，自弹出出VBA编码入录编写对话框，将下边的一段VBA编码拷贝到对话框中。最终关掉VBA对话框就可以。如下图所显示：随后右键“文件目录”电子表格的名字标识，点一下“查询编码”指令，自弹出出VBA编码入录编写对话框，将下边的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 = xlCenterEnd SubPrivate 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 < 2 Or Target.Column >1随后撤出电子表格中每一个sht的sub假如sht.name "directory "那麼sht . visible = xlsheetveryhidden next sheets(target . value)。。由此可见= xlsheet由此可见电子表格(总体目标。值)。为工程图纸中的每一个工程图纸挑选完毕子工程图纸表明(Dimsh)做为电子表格。visible =-1 nextendsub回到Excel主界面后，大家只要点一下除“文件目录”电子表格名字标识外的随意电子表格名字标识。比如，在本例中，小编点击了“单价表”电子表格名字标识，大家发觉“文件目录”表格中的全部电子表格名字都全自动置放在A列中，产生了一个文件目录。

最终大家就保持了入选中“文件目录”表格中相匹配A列的表名便会自动跳转到相匹配的表并隐藏别的的表。Excel文件目录到此就制搞好了。最终，大家完成了选定目录表中A列相匹配的表名会自动跳转到相匹配的表中，隐藏别的表。Excel文件目录已经准备好。

这类制作目录方式的一大特点便是入选中“文件目录”表格中相匹配A列的表名便会自动跳转到相匹配的表并隐藏别的的表，可是大家如何把掩藏的全部的图表表明出去呢？这类制作目录的办法的一个主要特点是，当挑选了目录表中A列相匹配的表名时，会自动跳转到相匹配的表中，隐藏别的表，可是怎样才可以表明全部掩藏的表呢？

如果我们立即右键电子表格，点一下“取消隐藏”按键，会发觉“取消隐藏”按键是橘黄色的，不能用，表明这不是平常的掩藏电子表格，反而是深层掩藏的电子表格。

要想处理这个问题，大家只必须再度进到VBA编写对话框，点一下运作刚刚那一段编码，此刻，全部掩藏的电子表格就都体现出来。要处理这个问题，大家只必须再度进到VBA编写对话框，点一下运作刚刚的编码。这时，将表明全部掩藏的电子表格。

这类制做Excel文件目录的方式还有一个非常便捷的地区：这类制做Excel文件目录的方式也有另一个非常的便捷之处:

也就是大家加上电子表格后，不用再次建立文件目录，文件目录目录会自动升级，十分便捷，如下图所显示: