Excel如何用超链接连接到隐藏工作表

Excel函数与vba实例 07-18 671

前言：

今天小伙伴们对“excel怎么做超链接别的表格”都比较着重，你们都需要剖析一些“excel怎么做超链接别的表格”的相关内容。那么小编也在网摘上网罗了一些对于“excel怎么做超链接别的表格””的相关知识，希望同学们能喜欢，朋友们快快来了解一下吧！

当工作表过多的时候，为了更快速的查看对应的工作表，我们会选择做一页目录，对应表格进行超链接。同时许为了保护工作表格，可能会隐藏工作表，那怎么用超链接连接隐藏的工作表了？

此时我们就需要用到VBA来处理。效果如下：

如上图，当我们点击对应的超链接时，隐藏的工作表则会自动打开。如果我们点击工作表名称，表格将自动进行隐藏。下面就来学习一下操作方法。

操作步骤：

1、先建好目录，将您需要用超链接的工作表在目录页面一一先做好链接；

2、按alt+F11进入VBA编辑界面，双击左边的目录，在编辑框输入以下代码，如图：

代码如下：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim Sh As Object

On Error Resume Next

Set Sh = Sheets(Replace(Split(Target.SubAddress, "!")(0), "'", ""))

If Not Sh Is Nothing Then Sh.Visible = xlSheetVisible

End Sub

3、双击左边的Thisworkbook,在编辑框中输入以下代码，如图：

代码如下：

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_Activate()

Application.StatusBar = "隐藏"

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) '当离开工作表时

If Sh.CodeName <> "Sheet1" Then Sh.Visible = xlVeryHidden '如果工作表的顺序号表名称不是"Sheet1"则深度隐藏该表

End Sub

4、双击左侧模块1，在编辑框中输入以下代码，如图：

代码如下：

Sub 打开全部隐藏工作表()

Application.ScreenUpdating = False '关闭屏幕刷新

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next i

Application.ScreenUpdating = True '打开屏幕刷新

End Sub

输入完毕后按F5全部运行即可。