2007Excel超链接怎么打开隐藏的工作表
答案:2 悬赏:60 手机版
解决时间 2021-01-15 23:01
- 提问者网友：缘字诀
- 2021-01-15 04:41
2007Excel超链接怎么打开隐藏的工作表
最佳答案
- 五星知识达人网友：不如潦草
- 2021-01-15 04:57
如图所示，首先建立了一个工作簿“天干地支”，其中含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、运行代码并保存退出。
——最终的目标是当前只显示“天干”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、运行代码并保存退出。
全部回答
- 1楼网友：夜风逐马
- 2021-01-15 05:38
这个我之前做个示例文件，已通过VBA来实现，请查看附件文件（需Excel2007+才能打开）。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯