自动隐藏。

大家好，我是老君。在实际工作中，我们经常会遇到下面这种情况：需要跳转至某个表的对应位置，但表多了之后，表名就会被遮挡住。

今天，我要分享一种方法，让这些表全部自动隐藏。

首先，选中需要隐藏的表，按住Shift键，再点击整个表，然后右键点击“隐藏”。这样，只显示我们需要的表，而隐藏的表则无法在目录中显示。使用VBA操作起来更加方便。只需要点击一下，就可以跳转到对应人员的资料表，然后返回目录，隐藏的表也会自动消失。点击刘备的名字，可以查看隐藏的表，点击目录时请注意。这个操作是如何实现的呢？接下来，我们将进入VBA代码。

首先，打开VBA编辑器，按下“alt+f11”进入编辑模式。然后，双击目录工作表，点击“通用”选项卡，再点击“Worksheet”选项，自动弹出一段代码。将代码复制到sdr（Sheet2的名称）中。

将代码复制到zhrhpu（Sheet1的名称）中。在“video”选项卡中，将“VISIBLE”设置为“=0”。如果不记得这个单词，可以点击目录工作表，然后按F4键，在工作表属性窗口中找到“显示”选项，然后找到“ehr”选项，将其设置为“显示”，将“0”设置为“隐藏”。

还有一个参数“2”，表示深度隐藏。在工作表中无法取消隐藏。因此，我们需要在第一步中将其隐藏，然后将代码复制到sdr（Sheet2的名称）中。点击“seet”。这里也有这个单词，但是只有一部分，需要稍微记住一下。第一步完成。

刚刚弄错了，e1代表显示，所以诸葛亮的名字会跳转到诸葛亮的资料表。点击“返回目录”，隐藏的表就会自动消失。

虽然这样做可以解决问题，但每次都需要手动隐藏，否则工作表会变得很混乱。其实，还有一种更简单的方法。继续按下“alt+f11”，然后点击“Worksheet”选项卡，找到“This Workbook”选项，再找到“Workbook”选项，在“Open”选项下方找到“Workbook Exit Event”选项，点击它，然后在代码中添加以下代码。

当我们离开工作表时，我们就是工作表，所以“s”代表“消失”。将“VISIBLE”设置为“=0”。

回到工作表，然后点击“返回目录”，隐藏的表就会自动消失，操作就完成了。

但我们还需要修复一个小问题。我们需要在上述代码中添加一个判断语句，如果“ln”代表“大乔”，则将其添加到“find”函数中。使用反括号“sh”和点“NAME”搜索资料，无论是否有员工资料表。当搜索结果大于0时，表示找到员工资料表，此时将其隐藏。如果没有找到员工资料表，则跳过该步骤，返回诸葛亮资料表。在这里，模板工作表不会被隐藏，因为我们已经判断了是否需要隐藏，如果不需要则跳过该步骤。

回到工作表，显示目录和模板工作表，然后搜索6张昭资料表。返回诸葛亮资料表。在这里，模板工作表不会被隐藏，因为我们已经判断了是否需要隐藏，如果不需要则跳过该步骤。

当搜索结果为空时，会弹出错误提示。需要判断是否为空值，如果是空值则执行“x”命令，表示退出程序并结束。

当搜索结果为空时，需要判断是否为空值，如果是空值则执行“x”命令，表示退出程序并结束。需要注意，这里的“e”表示当前单元格所在行，而“e target”表示目标单元格所在行。

需要根据实际情况进行判断，如果点选的单元格不在当前行，则需要退出程序。

如果当前单元格的值为空，则执行“x”命令，表示退出程序并结束。

如果当前单元格的值为空，则执行“x”命令，表示退出程序并结束。

如果当前单元格的值为空，则执行“x”命令，表示退出程序并结束。

当搜索结果不为空时，可以根据实际情况进行操作。

在本工作簿中添加了两行代码，用于根据实际情况进行判断和处理。这些代码比较简单，后续我会在粉丝群中分享更多学习资料。