前言:
今天小伙伴们对“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全部运行即可。
标签: #excel怎么做超链接别的表格