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

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

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

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

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

GIF

代码放置在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.NameSheets('目录').Move Before:=Sheets(M)Sheets(M).Selectn = n + 3

End Sub

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

GIF

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

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

M = ActiveSheet.NameSheets('目录').Move Before:=Sheets(M)Sheets(M).Select

End Sub

赞 (0)

相关推荐