EXCEL表格中怎么制作工程资料卷内目录

Question

如题所述

Answer 1

打开EXCEL,增加一个工作表，名为目录，按ALT+F11,打开VBA，双击目录工作表，将下列代码复制进去。
Sub 序号目录链接()
Application.ScreenUpdating = False
Dim sht As Worksheet, irow As Integer, i%
i = Cells(Rows.Count, 1).End(xlUp).Rows.Count
Range("a2:b" & i).Clear
irow = 2 '在第2行写入第一条记录
For Each sht In Worksheets '遍历工作表
Cells(irow + 1, "A").Value = irow - 1 '写入序号
'写入工作表名，并建立超链接
ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "B"), Address:="", _
SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
'向工作表中添加一个超链接对象(hyperlinks),其中Anchor指定建立超链接的位置,address参数者指定超链接的地址,
'subaddress参数为超链接的子地址,texttodisplay参数指定要显示的超链接的文本
irow = irow + 1 '行号加1
Next
Range("a" & i).Delete
Application.ScreenUpdating = False
End Sub

Answer 2

请参考：

如何用EXCEL制作 工程资料卷内目录表？_百度经验

http://jingyan.baidu.com/article/76a7e409e26f4afc3a6e1542.html

本回答被网友采纳