如何创建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