Question

怎样制作EXCEL工作表目录？

Answer 1

1.右键单击工作表左下角的两个小三角及之间的区域，Excel就会弹出一个类似工作表目录的界面；单击界面上的相应表名可以激活对应的工作表。

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