
输入名称“我的目录”,和引用位置“=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())”,点击“确定”。
这样就会返回名称管理器窗口,并可以在窗口中看到该名称,关闭该名称管理器窗口。
在单元格中输入公式“=IFERROR(HYPERLINK(我的目录&"!A1",MID(我的目录,FIND("]",我的目录)+1,50)),"")”。
向下填充公式,这样就可以得到工作簿中所有的工作表名称,且每个名称下都有链接。
将步骤5得到的目录复制到每个工作表下,这样就可以在各个工作表中任意切换目录了。
最后,一定要将excel文件保存为“Excel启用宏的工作簿(*.xlsm)”。
1.右键单击工作表左下角的两个小三角及之间的区域,Excel就会d出一个类似工作表目录的界面;单击界面上的相应表名可以激活对应的工作表。
2.使用相应代码也可以制作EXCEL工作表目录。
所使用代码如下:
Sub ml()
Dim sht AsWorksheet, i&, n$
Columns(1).ClearContents
'清空A列数据
Cells(1, 1)= "目录"
'第一个单元格写入字符串"目录"
i = 1
'将i的初值设置为1.
For Each shtIn Worksheets
'循环当前工作簿的每个工作表
n =sht.Name
If n<>ActiveSheet.Name Then
'如果sht的名称不是当前工作表的名称则开始建立超链接
i =i 1
'累加i
ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="", _
SubAddress:=”’” &n &"’!a1", TextToDisplay:=n
'建超链接
End If
Next
End Sub
1、首先,打开需要创建目录的excel表格或者新建一个表格。
2、新建一个工作表,并填入相应的内容。
3、选择B2空白单元格(或者选中目录要放的空白单元格)。
4、在文档的菜单栏中,选择“插入”,点击进入插入选项卡。
5、在插入选项卡中,选择“链接”。
6、在d出的窗口中,选择“本文档中的位置”。
7、在打开的本文档中的位置选项卡中,选择相对应的名称。
8、最后就回到刚创建的目录页,在目录页中就可以看到目录已经创建完成了。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)