MENGYIN1986 · 发表于 2023-1-15 07:59

想要自动生成带有超链接的目录，同时增加序号。目前遇到的问题：
1、超链接的语句存在问题
2、目录的序号跳行显示
代码如下：

Sub 生成目录1()
Dim sht As Worksheet, i As Byte, shtname As String, a As Byte, c As Byte
Range("B3:C30").Clear '清空数据
i = 3 '从第三行创建目录，所以变量值定义为3
For Each sht In Worksheets
shtname = sht.Name '将sheet的名字赋值给shtname
Cells(i, "C").vlaue = shtname '将工作表名称写入C列第i行的单元格
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,"C"), Address:="",SubAddress:= _
"'"&shtname&"'!A1",TextToDisplay:=shtname '创建超链接（第一个问题点，直接录制宏之后改的，也参考了网上的资料，但是还是整不明白）
i = i + 1
Next sht
Rows(3).Delete '删掉第三行，即显示目录的行（目录sheet页本身的名字不需要显示）
c = Worksheets.Count '把单元格的数量赋值给C
For a = 1 To c Step 1
Cells(a + 2, "B") = a '从B3单元开始填充序号（第二个问题点，实际运行时会跳行显示）
a = a + 1
Next
End Sub

复制代码

这个代码对应附件文件中的生成目录1（）
由于是初学，希望大佬能够以这个代码为基础，指出错误的点。如果有更好的方式也希望不吝赐教。谢谢啦~

3190496160 · 发表于 2023-1-15 09:03

Sub 生成目录()
Dim sht As Worksheet, i As Byte, a As Byte, c As Byte
r = Cells(Rows.Count, 1).End(xlUp).Row
If r > 2 Then Range("B3:C" & r).Clear '清空数据
n = 2
For Each sht In Worksheets
If sht.Name <> "底稿目录" Then
 n = n + 1
 Cells(n, 2) = n - 2
 Cells(n, 3) = sht.Name
 ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, "c"), Address:="", SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
End If
Next sht
End Sub

3190496160 · 发表于 2023-1-15 09:04

3190496160 · 发表于 2023-1-15 09:05

（V6000）所得税费用-模板.rar (46.44 KB, 下载次数: 3)

MENGYIN1986 · 发表于 2023-1-15 18:42

3190496160 发表于 2023-1-15 09:05

非常感谢您的回复，我先好好研习一下。非常感谢~

		自动登录	找回密码
密码			免费注册

求助：自动生成带有超链接的目录及目录序号