前面章节我们讲过了利用VBA创建一个目录,可以打开指定的各个工作簿。
也讲过利用兼容性检查来给工作表做个目录
今天我们学习下如何用VBA来创建目录。
如下图,一个工作簿中有很多工作表,通过点击创建目录,瞬间就生成了一个目录。
代码如下:
Sub mulu()
Dim ws As Worksheet, n%
For Each ws In Worksheets
If ws.Name <> '首页' Then
n = n 1
Cells(n 3, 4) = ws.Name
Worksheets('首页').Hyperlinks.Add Cells(n 3, 4), '', ws.Name & '!A1'
ws.[a1].Value = '返回目录'
ws.Hyperlinks.Add ws.[a1], '', '首页!d3'
End If
Next
End Sub
这种做法的好处在于,不管你添加多少个明细表都能一次性生成目录,而且别的工作簿中需要创建目录时直接复制代码过去,运行就可以了!
视频教程正在陆续录制中,进入公众号后台菜单中可了解详情!
联系客服