给工作表添加带有超链接的目录

按【Alt+F11】键打开VBE，把以下代码放到thisworkbook,代码作用：

每次打开这个工作薄就可以把所有的表名重新提取一遍放到目录表的A列，防止有新增的表没有链接到。

如图：

Private SubWorkbook_Open()

    On Error Resume Next   

     Sheets("目录").Cells.Clear

    Sheets("目录").Range("A1")= "目录"

    k = 1

    For Each sh In Sheets

        If sh.Name <>"目录" Then

            k = k+ 1

           Sheets("目录").Cells(k, 1) = sh.Name

        End If

    Next

    Sheets("目录").Range("A:A").EntireColumn.AutoFit

    Sheets("目录").Range("A:A").EntireColumn.HorizontalAlignment= xlCenter

End Sub

以下代码放到目录工作表下。

代码作用：
当你选中这个单元格时就跳转这个单元格对应名称的表,并且把除目录及这个表外的其他的表都隐藏，不必因为太多工作表而烦恼。

Private SubWorksheet_SelectionChange(ByVal Target As Range)

    Dim sht As Worksheet

    On Error Resume Next

    If Target.Row < 2 OrTarget.Column > 1 Then Exit Sub

    For Each sht In Worksheets

        If sht.Name<> "目录" Then sht.Visible = xlSheetVeryHidden

    Next sht

    Sheets(Target.Value).Visible =xlSheetVisible

    Sheets(Target.Value).Select

End Sub

 操作动画如下：

今天的分享到此结束，如果想看更多历史文章，请从菜单所有文章查看。