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
赞 (0)