Excel如何做目录

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:33:28
我有10个表，所以想做一个excel的目录，当打开excel的时候，只看到这个
目录，不能看到这10张表，只有通过点击excel的目录，才能看，10张表中有
返回键，可以回到主表，希望高手可以指点一下！
重点：单纯的链接，我会的，希望可以打开excel实现只看到目录的效果！
我说的10个表是指在一个excel文件的10个sheet

二楼说得我都会，请大家看清我问的再回答-----

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
i = 2
Do
If i <> Sh.Index Then Worksheets(i).Visible = False
i = i + 1
Loop Until i > Worksheets.Count
End Sub

使用VBA来做最简单，把我这些代码复制到“ThisWorkbook"代码窗口里，打开文件时，就会只显示第一张工作表了。而在第一张工作表里建十个按钮，每个按钮都和一段代码关联，如：
XX.sheet(X).visible=true

具体视你的工作表名称而定。
试试看就知道了。

把这10张表和你的目录表别存放在一个文件夹内，用目录表连接到这10个表位置即可！
要么做个一个表内，右键这10个表的标签隐藏也可以！

1、在同一个工作簿里建11张表
2、把sheet1作为目录
3、让目录链接到每个表（一个标题代表一张表）
4、在后面的10张表中在给每个建个链接“返回”到sheet1
5、OK！

用超链接最简单。缺点是要重复操作。

来个宏搞就最适合了,你按以下操作搞就行了.....

Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中

Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range

ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i