如何创建Excel工作表目录?

  • 格式:docx
  • 大小:92.63 KB
  • 文档页数:3

如何创建Excel工作表目录?

答:以下方法适合所有版本Excel

方法1:手工添加

方法2:利用公式(快)

方法3:利用编程(更快)

目标:为 Shee2-Sheet6 添加目录,'目录'工作表已事先准备好。

效果:

• 手工添加

在“目录”表的A2单元格右键,选择'超链接',打开对话框,选好单元格地址和工作表名即可。

• 利用公式

按Ctrl+F3,打开名称对话框,新建一个名称,照图输入内容。

输入名字:Name

引用位置:=MID(GET.WORKBOOK(1),FIND(']',GET.WORKBOOK(1))+1,99)&T(NOW()) 回到'目录'工作表,在单元格A2中输入公式,下拉至空白。

=IFERROR(HYPERLINK('#'&INDEX(Name,ROW(A2))&'!A1',INDEX(Name,ROW(A2))),'')

• 利用编程

按ALT+F11组合键,打开VB窗口,执行'插入'-'模块',复制下面代码进去,按F5运行一步生成。

Sub AddHyperlinks()

Dim i As Integer

Dim Cell As Range

Set Cell = Sheets('目录').Range('A2')

For i = 2 To Sheets.Count

If Sheets(i).Name <> '目录' Then

Cell.Parent.Hyperlinks.ADD anchor:=Cell, Address:='',

SubAddress:=Sheets(i).Name & '!A1',

TextToDisplay:=Sheets(i).Name

End If

Set Cell = Cell.Offset(1, 0) Next