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

打开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

以word为例，在目录中添加目录的方法如下：

1、打开原有目录。

2、选中新标题，然后点击设置标题级别。

3、设置好标题后，点击引用中的更新目录。

4、勾选更新整个目录，然后即可添加目录。

MicrosoftOfficeWord是微软公司的一个文字处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在1983年编写的。随后的版本可运行于AppleMacintosh、SCOUNIX和MicrosoftWindows，并成为MicrosoftOffice的一部分。Word给用户提供用于创建专业而优雅的文档工具，帮助用户节省时间，并得到优雅美观的结果。一直以来，MicrosoftOfficeWord都是最流行的文字处理程序。

---