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)

相关推荐