2007Excel超链接怎么打开隐藏的工作表

2007Excel超链接怎么打开隐藏的工作表

如图所示，首先建立了一个工作簿“天干地支”，其中含11个worksheet，第一个worksheet名为“天干”，后面十个依次命名为甲、乙、丙、丁、戊、己、庚、辛、壬、癸。
　　——最终的目标是当前只显示“天干”worksheet，隐藏后十个worksheet，但是要在第一个“天干”工作表中显示出后十个表格对应的序号的名称，并通过超链接进入对应worksheet。同时，在后十个worksheet中放入返回“天干”的链接，一旦返回“天干”后，该worksheet继续隐藏。
　　1、按照最常用的方法对“天干”worksheet中的对应名称建立超链接。

　　2、按Alt+F11，启动VBA编辑，点击左侧“天干地支”工作簿下的“天干”worksheet，在右侧打开的编辑框中复制以下代码：
　　Private Sub Worksheet_Activate()
　　Dim sht As Worksheet
　　For Each sht In Worksheets
　　If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden
　　Next sht
　　End Sub
 　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　On Error Resume Next
　　Sheets(Target.Value).Visible = xlSheetVisible
　　Sheets(Target.Value).Select
　　End Sub

　　3、运行代码并保存退出。


　　

这个我之前做个示例文件，已通过VBA来实现，请查看附件文件（需Excel2007+才能打开）。