如何在一页面显示多个excel工作表名

Question

我的一张excel工作簿中有将近20张不同excel工作表。我想把20张工作表名字（sheet1）显示在一页上，点击名字就可以显示这张工作表，以方便查询。请问一下这需要什么程序或措施，敬请各位大侠帮个忙

Answer 1

点击窗口或视图菜单》新建窗口即可在下部系统的任务栏选择。一般每一个工作薄才能在任务栏有一个标签，现在这样做后一个表一个标签了，继续新建窗口还可以有更多的标签供选择。效果如：（任务栏显示：1-1.XLS:1，1-1.XLS:2，1-1.XLS:3，即一个工作表一个标签）。

Answer 2

你说的这个问题我没有办法，但有个更好更方便的方法：鼠标右击工作薄左下角标签左边的箭头区域，自动会出来本工作薄内所有工作表的名称，鼠标点击哪个，哪个就变成活动工作表。比你想要的那个是不是更简单更方便啊。

本回答被提问者采纳

Answer 3

很简单。我的版本是excel2003。你只需要在其中一个单元格里面直接点右键选择“超链接”。打开窗口以后左侧有链接到。。。选择“本文档中的位置”，然后看右侧，最上边是“要显示的文字：”后边你根据自己需要填写。中间行是“请输入单元格引用”默认是A1（表格的第一行第一列），可以不填写，也可以根据自己需要修改。下面选择你所要链接的工作薄名字（比如sheet2）就可以了。

Answer 4

用VBA可以，代码如下：

Sub 创建当前工作簿的工作表目录()
On Error Resume Next
Application.ScreenUpdating = False
Dim XStr, YStr, ZStr
XStr = " -"
ZStr = ""
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "工作表目录" Then
Exit For
End If
Next
If i > Worksheets.Count Then
Sheets.Add
ActiveSheet.Name = "工作表目录"
End If
Sheets("工作表目录").Move before:=Sheets(1)
Sheets("工作表目录").Select
Range("A:B").Clear
Range("B:B").NumberFormatLocal = "@"
Worksheets(1).Cells(1, 4).Value = "编号"
Worksheets(1).Cells(1, 5).Value = "目录"
For i = 2 To Worksheets.Count
Worksheets(1).Cells(i, 4).Value = i - 1
Worksheets(1).Cells(i, 5).Value = Worksheets(i).Name
For j = 1 To Len(Worksheets(i).Name)
YStr = Mid(Worksheets(i).Name, j, 1)
If InStr(XStr, YStr) <> 0 Then
ZStr = "'"
Exit For
End If
Next
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets(1).Cells(i, 5), Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr & "!A1", TextToDisplay:=Worksheets(i).Name
Next
Columns("D:D").HorizontalAlignment = xlCenter
Columns("D:D").VerticalAlignment = xlCenter
Columns("e:e").HorizontalAlignment = xlLeft
Columns("e:").VerticalAlignment = xlLeft
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Answer 5

用超链接，在第一个工作表上设目录，设好后，一点工作表名就会超链接到该工作表