[已解决]想隐藏工作表只显示目录，并且点击目录后表格自动显示？

翩翩起舞

我有一个工作表，想工作表标签只显示目录，隐藏后点击目录，所指向的表能自动显示出来，指大家指点！有劳！工作簿目录里有十几张表太大无法上传，只有删除掉，留下一张表！

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-8-21 20:44

楼主这样行不行

跳转到最佳答案楼层

翩翩起舞

上传附件{:011:}请大家指点一下

lzclzch

楼主这样行不行

翩翩起舞

没有隐藏表啊，要看不到工作表标签啊，只看得到目录

lzclzch

工具----选项----视图------工作表标签的勾去掉，就把标签给隐藏了

5201314

隐藏标签和工作表
使用一个工作簿打开事件

1. Private Sub Workbook_Open()
   
2.     Dim i
   
3.     On Error Resume Next
   
4.     For i = 1 To Sheets.Count
   
5.         If Sheets(i).Name <> "目录" Then Sheets(i).Visible = 2
   
6.     Next
   
7.     ActiveWindow.DisplayWorkbookTabs = False
   
8. End Sub

复制代码

ls

Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "目录" Then Sheets(i).Visible = 2: ActiveWindow.DisplayWorkbookTabs = False
Next
End Sub
Sub 显示()
Sheet2.Visible = 1
Sheet2.Select
End Sub
Sub 显示1()
Sheet3.Visible = 1
Sheet3.Select
End Sub

5201314

建立工作表目录可以用如下代码

1. Sub 建立工作表目录()
   
2.     On Error Resume Next
   
3.     Application.ScreenUpdating = False
   
4.     '检测是否已经“目录”
   
5.     For i = 1 To Worksheets.count
   
6.         If Worksheets(i).Name = "目录" Then
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10.     If i > Worksheets.count Then
    
11.         Sheets.Add  '如果不存在“目录”则添加新表
    
12.         ActiveSheet.Name = "目录"    '命名工作表
    
13.     End If
    
14.     Sheets("目录").Move Before:=Sheets(1)  '称到最前
    
15.     Sheets("目录").Select
    
16.     Range("D:E").Clear
    
17.     Range("D:E").NumberFormatLocal = "@"  '将D、E列清除并设置格式为文本型
    
18.     Range("D1:E1") = Array("编号", "目录")  '标题
    
19.     For i = 2 To Worksheets.count  '在工作表间循环
    
20.         Cells(i, 4).Value = i - 1  '编号
    
21.         Cells(i, 5).Value = Worksheets(i).Name  '工作表表
    
22.         '添加链接
    
23.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 5), Address:="", SubAddress:="'" & Worksheets(i).Name & "'" & "!A1", TextToDisplay:=Worksheets(i).Name, ScreenTip:="单击打开：" & Cells(i, 5)
    
24.     Next
    
25.     '设置上下、左右都居中对齐
    
26.     Columns("D:D").HorizontalAlignment = xlCenter
    
27.     Columns("E:E").HorizontalAlignment = xlLeft
    
28.     Cells.Interior.ColorIndex = 1  '黑色背景
    
29.     Cells.Font.ColorIndex = 2  '白色字体
    
30.     Range("d2").Select  '选择D
    
31.     ActiveWindow.FreezePanes = True  '锁定窗格
    
32.     Application.ScreenUpdating = True
    
33. End Sub

复制代码

5201314

返回首页可以用如下代码：

1. Sub 返回首页()
   
2.     On Error Resume Next
   
3.     ActiveWorkbook.Sheets(1).Activate
   
4. End Sub

复制代码

从从容容

3楼的效果是可以的