EXCEL按钮制作

我有10个表，所以想做一个excel的目录，当打开excel的时候，只看到这个
目录，不能看到这10张表，只有通过点击excel的目录，才能看，10张表中有
返回键，可以回到主表，希望高手可以指点一下！
重点：单纯的链接，我会的，希望可以打开excel实现只看到目录的效果！
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
具体视你的工作表名称而定。

试试看就知道了。

制作链接可以实现，链接可以用文字链接也可以用图片或自选图形等制作链接，方法是选中单元格或对象，执行菜单“插入-超链接”，选择要链接到的地方即可2.如何用EXCEL控件里面做个命令按钮一点就能超连接打开我电脑里面的一个指定文件夹
1、选择、打开“控件工具箱”工具栏
2、选择按钮工具，在工作表中添加一个按钮，设置按钮名称；
3、双击按钮，进入代码编辑（默认进入点击事件）；
4、在Private Sub CommandButton1_Click()下面输入：
Shell ("c:\windows\explorer.exe e:")
shell是函数，用于启动资源管理器（c:\windows\explorer.exe是资源管理器，windows目录不同则自己修改），后面的e：（前面有个空格）是打开e：盘，想打开哪里自己改。

5、将“控件工具箱”的第一个按钮点起来（退出设计模式），关闭“控件工具箱”。

6、ok了，点点按钮试试！
3.EXCEL薄如何链接到另一个EXCEL具体的工作表、、2、一个工作薄很多个工作表，如何做个目录来链接
右键点击单元格设置超链接，可以链接到另一文件
如果要制定连接到另一工作簿的某个工作表，超链接界面选择“书签”按钮进行设定即可。

4. Excel如何在每个工作表里插入一个返回目录的连接，该怎样做？
1.在第一个工作表中相应单元格输入图示的内容
2.右击单元格-超链接（使他链接到需要的工作表）
3.分别选中后面每个工作表的首行，以同样方式链接到第一个工作表
使用VBA即可实现，将如下代码复制到sheet1中代码中，然后运行。

Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 2), Address:="", SubAddress:= _
Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Cells(i + 1, 2) & "!" & "A1"
Cells(i + 1, 2).Value = Worksheets(i).Name
Next
End Sub
追问
这个执行完在sheet1形成了每个页签的超链接，也很好用呵呵不用我一个一个链了。

但是俺说的是，在后续的每个sheet页增加一个【返回目录】按钮，点击可以返回sheet1相应一样名称的单元格，比如在sheet2（sheet2名称为001）的D4单元格增加【返回目录】字样，超链接到sheet1里相应的名称同为001的单元格。

这个工作量比较大，要一页一页的加。

回答
还是可以用VBA，编辑以后复制在模块中运行。

Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(i + 1, 2), Addr ess:="", SubAddress:= _
Worksheets(1).Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Works heets(1).Cells(i + 1, 2) & "!" & "A1"
Worksheets(1).Cells(i + 1, 2).Value = Worksheets(i).Name
Next
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(4, 4), Address:=" ", SubAddress:= _
"Sheet1!A1", TextToDisplay:="返回目录"
Next
End Sub
追问
太棒了!好厉害!但是这个在后面每个SHEET页里的返回按钮返回的是SHEET1的A1单元格，有办法可以返回跟SHEET页名称一样的单元格吗，就是跟SHE ET1的B2-B99相对应。

回答
Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(i + 1, 2), Addr ess:="", SubAddress:= _
Worksheets(1).Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Worksh eets(1).Cells(i + 1, 2) & "!" & "A1"
Worksheets(1).Cells(i + 1, 2).Value = Worksheets(i).Name
Next
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(4, 4), Address:=" ", SubAddress:= _
"Sheet1!B" & i + 1, TextToDisplay:="返回目录"
Next
End Sub
提问者评价
非常感谢您的热心帮助~希望以后还能多多指教~。