[已解决]求助：在sheet1做多个超链，链接到多个隐藏的工作表。

1091126096

求助：在sheet1做多个超链，链接到sheet2、sheet3，sheet2、sheet3等都要隐藏。

最佳答案

月排行榜 / 总排行榜

不解木野狐

2012-2-7 00:15

这是第二步，做完第一步后，点击运行SUB创建目录，自动生成目录工作表后，再复制这个代码，双击目录工作表，粘贴进去第二个代码，一切就OK了！
    说明： 点击超级链接转到那个工作表后，按CTRL+J键就返回到目录表中，同时隐藏当前工作表

1. Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   
2.     Sheets(Target.Name).Visible = True
   
3.     Sheets(Target.Name).Select
   
4.      
   
5. End Sub

复制代码

跳转到最佳答案楼层

不解木野狐

你的意思超简单
   我来扩充一下：
       除了SHEET1其余的工作表都要隐藏
       在SHEET1做个所有工作表的超链接
        点击链接转到工作表，当然同时取消当前工作表的隐藏，按一个自定义的快捷键，返回到SHEET1,同时恢复到初始状态，除了SHEET1所有工作表都隐藏
   是不是这样

不解木野狐

1. 
   
2. 
   
3. 
   
4. Option Explicit
   
5. 
   
6. Sub 创建目录()
   
7.    
   
8.     Application.ScreenUpdating = False
   
9.     Dim i As Integer, Sht_Count
   
10.      If Not IsSht("目录") Then Sheets.Add(Sheets(1)).Name = "目录"
    
11.         Sht_Count = Sheets.Count
    
12.           For i = 2 To Sht_Count
    
13.             Sheets("目录").Hyperlinks.Add Anchor:=Sheets("目录").Cells(i - 1, 2), Address:="", SubAddress:="'" _
    
14.                           & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name, _
    
15.                                ScreenTip:="单击打开：" & Sheets(i).Name
    
16.          Next i
    
17.      Application.ScreenUpdating = True
    
18.       Dim SHE As Worksheet
    
19.          For Each SHE In Sheets
    
20.               If SHE.Name <> "目录" Then
    
21.                  SHE.Select
    
22.                  ActiveWindow.SelectedSheets.Visible = False
    
23.               End If
    
24.           Next
    
25.     Application.OnKey "^j", "返回目录"
    
26. End Sub
    
27. 
    
28. Function IsSht(ShtName As String) As Boolean
    
29.     On Error Resume Next
    
30.     Dim sht As Worksheet
    
31.     Set sht = Sheets(ShtName)
    
32.     IsSht = (Err = 0)
    
33. End Function
    
34. Sub 返回目录()
    
35.     ActiveSheet.Select
    
36.     ActiveWindow.SelectedSheets.Visible = False
    
37.     If IsSht("目录") Then Sheets("目录").Select
    
38. End Sub
    
39. 
    
40. 
    

复制代码

1. 这是第一步，先插入一个模块，复制粘贴进去

复制代码

不解木野狐

这是第二步，做完第一步后，点击运行SUB创建目录，自动生成目录工作表后，再复制这个代码，双击目录工作表，粘贴进去第二个代码，一切就OK了！
    说明： 点击超级链接转到那个工作表后，按CTRL+J键就返回到目录表中，同时隐藏当前工作表

1. Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   
2.     Sheets(Target.Name).Visible = True
   
3.     Sheets(Target.Name).Select
   
4.      
   
5. End Sub

复制代码

不解木野狐

再发一个附件及动画演示{:4212:}

1091126096

不解木野狐 发表于 2012-2-7 00:06
你的意思超简单
   我来扩充一下：
       除了SHEET1其余的工作表都要隐藏

基本上是这样。但另外还有几个工作表是不隐藏的。

1091126096

不解木野狐 发表于 2012-2-7 00:25
再发一个附件及动画演示

这样的话会将目录以外的所有工作表隐藏。我还有工作表是不要隐藏的。

不解木野狐

1091126096 发表于 2012-2-7 10:15
这样的话会将目录以外的所有工作表隐藏。我还有工作表是不要隐藏的。

那您告诉我不需要隐藏的工作表的名称，或者这些不需要隐藏的工作表表名都有一个相同的关键字什么的，这样更好{:4012:}

不解木野狐

1091126096 发表于 2012-2-7 10:15
这样的话会将目录以外的所有工作表隐藏。我还有工作表是不要隐藏的。

我记得刚才回复了，怎么没有显示啊？{:4212:}
     您的不需要隐藏的工作表表名是什么啊？您告诉我，我再改改代码{:4312:}

201228

那个gif做的太帅了，高科技