excel怎么做目录索引
3个回答
展开全部
用事件程序可以
比如你的工作表名为目录其它表为索引页那么在目录工作表下添加事件程序,当激活目录工作表时就为自动建立目录:程序如下:
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
比如你的工作表名为目录其它表为索引页那么在目录工作表下添加事件程序,当激活目录工作表时就为自动建立目录:程序如下:
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询