excel怎么做目录索引
发布网友
发布时间：2022-02-24 10:49
共1个回答
热心网友
时间：2022-02-24 12:18
比如你的工作表名为目录其它表为索引页那么在目录工作表下添加事件程序，当激活目录工作表时就为自动建立目录：程序如下：
Private Sub Worksheet_Activate()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "目录" Then
n = n + 1
Range("a" & n + 1) = n
Worksheets("目录").Range("b" & n + 1) = sh.Name
Worksheets("目录").Hyperlinks.Add anchor:=Cells(n + 1, 2), Address:="", SubAddress:=sh.Name & "!A1"
End If
Next
End Sub
