Excel如何让目录始终显示，方便查找其余表

这篇文章要和大家分享的是让目录表始终显示在当前活动表的前方。当我们一个工作簿里有很多个sheet时，需要快速的找到我们需要的sheet，在这种情境下这篇文章可以帮到你。比如下图：

这里有12个工作sheet，一个目录sheet。目录的位置在第一个，当我们点击到后面时，目录表就会被隐藏，无法快速找到，不能便捷的跳转到需要的sheet。

这里就需要用到本篇说到的VBA方法。我写了两个不同的代码，一个需要点击单元格后才能执行，一个在变化sheet时就可以执行。这个灵感来自于一位网友，他的要求是让目录表始终显示出来，像冻结视图一样。我稍作变通改了一下，但是实现同样的结果。

第一个代码是变化sheet时就可以执行。

代码放置在thisworkbook里，放在其它表内无效。

具体代码如下，只需要将修改“目录”两个字改为你需要的sheet名。

Dim n As Integer
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If n Mod 3 <> 0 And n > 0 Then
Exit Sub
End If
M = ActiveSheet.Name
Sheets("目录").Move Before:=Sheets(M)
Sheets(M).Select
n = n + 3
End Sub

第二个代码是需要点击当前活动表内任意单元格方能执行。代码依旧要放在thisworkbook里，放在其它表内无效。

具体代码如下，只需要将修改“目录”两个字改为你需要的sheet名。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
M = ActiveSheet.Name
Sheets("目录").Move Before:=Sheets(M)
Sheets(M).Select
End Sub