运行加载项在哪里设置,怎么设置启动加载项

双击这个模块，写入下面的代码：

Sub UpdateTOC()

Dim oSh As Object

Dim oToc As Worksheet

Dim vRemarks As Variant

Dim lCt As Long

Dim lRow As Long

Dim lCalc As Long

Dim bUpdate As Boolean

'分别提取工作表即时状态中的屏幕更新及是否为自动计算的状态并重新设置

bUpdate = Application.ScreenUpdating

Application.ScreenUpdating = False

lCalc = Application.Calculation

Application.Calculation = xlCalculationManual

'检查工作表ToC是否存在，如果不存在，请插入一个

If Not IsIn(Worksheets, "ToC") Then

With Worksheets.Add(Worksheets(1))

.Name = "ToC"

End With

Set oToc = Worksheets("ToC")

'设置工作表网格线、行标题和列标题的显示效果

ActiveWindow.DisplayGridlines = False

ActiveWindow.DisplayHeadings = False

Else

（待续）

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：