vba代码如何在每个工作簿都能执行（VBA即用型代码手册:如何创建目录）

【分享成果，随喜正能量】如果你不同意一个人的看法，又不想去反驳他，最简单方法就是含笑听他说话。君子莫大乎与人为善。尽己所能的去行善，身体力行的去帮助他人，渡人的同时也给自己温暖。。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据的准确度。我推出的VBA系列教程共九套(本文的最后附有VBA教程目录和VBA工具目录)，现在已经全部完成。

如果您VBA是入门阶段，可以选择7.1.3.9教程，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。如果您有了一定的VBA基础可以根据自己的需要，进行教程的选择。教程提供的程序源码文件就如一座大型的代码库支持着大家的工作。同时还有实用的资料送给学员。

VBA是面向对象编程的语言，博大精深。很多朋友咨询英语和VBA的关系，这套《VBA即用型代码手册（汉英）》集合了众多的案例，案例我用汉语和英语同时发布，学员从中可以更好的领会和掌握VBA中用到的一些英语。今日的内容：VBA即用型代码手册:如何创建目录

Simple procedure of code

Sub nzTableofContent() '创建目录

Dim i As Long

On Error Resume Next

Application.DisplayAlerts = False

Worksheets("目录").Delete

Application.DisplayAlerts = True

On Error GoTo 0

ThisWorkbook.Sheets.Add Before:=ThisWorkbook.Worksheets(1)

ActiveSheet.Name = "目录"

For i = 1 To Sheets.Count

With ActiveSheet

.Hyperlinks.Add _

Anchor:=ActiveSheet.Cells(i, 1), _

Address:="", _

SubAddress:="'" & Sheets(i).Name & "'!A1", _

ScreenTip:=Sheets(i).Name, _

TextToDisplay:=Sheets(i).Name

End With

Next i

End Sub

假设您的工作簿中有超过 100 个工作表，现在很难导航。不要担心，这个宏代码会拯救一切。当您运行此代码时，它将创建一个新工作表，并创建一个带有超链接的工作表索引。

Let's say you have more than 100 worksheets in your workbook and it's hard to navigate now. Don't worry this macro code will rescue everything. When you run this code it will create a new worksheet and create a index of worksheets with a hyperlink to them.

• 本节内容参考程序文件：Chapter07.xlsm

【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】知足，才能生活无忧。无忧，才能活得心静。心静，才能活得自在。自在，才能发自内心的快乐。不懂知足的人永远也瞒住不了内心的欲望，知足才能常乐，感恩，知足，微笑，简单，保持这种轻松愉悦的心情，行走在理性中，生活在感性里，用最美的心情，过好自己的日子。。