Excel VBA 实例(30) – 为多个sheets创建目录和超链接 - 永恒君的百宝箱
微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA 实例(30) – 为多个sheets创建目录和超链接

Excel VBA 实例 永恒君 383℃ 0评论

背景

当excel工作簿(workbook)中有很多个工作表(sheets)时,来回的查找、切换工作表非常的费时费力费眼神~~~

这个时候往往会想到新建一个工作表,在这个工作表当中创建所有的sheets的目录并加入超链接,这样的话可以根据这个目录来随时查看所需要的工作表的信息,如下图:

很显然,工作表少的话,手工挨个创建问题不大。工作表非常多的话,或者工作表数量经常会发生变化的话,手工创建是不太现实的。

今天分享的这个实例就是解决这个问题的:为多个sheets创建目录和超链接。

思路

1、遍历所有的sheets(除了当前“目录”工作表)。

For Each sht In ThisWorkbook.Sheets
    If sht.Name <> "目录" Then
       ...具体操作...
    End If
Next

2、获取所有的sheets的名字(sht.Name),依次填入“目录”工作表中,n_row为填入单元格的列。

Sheets("目录").Range("A" & n_row).Value = sht.Name

3、为创建的目录添加超链接,同时为每一个sheet添加返回“目录”工作表的超链接

Hyperlinks.Add Anchor:=Range("A" & n_row), Address:="", SubAddress:="'" & sht.Name & "'" & "!A1"

Sheets(sht.Name).Hyperlinks.Add Anchor:=Sheets(sht.Name).Range("A1"), Address:="", SubAddress:="目录!A1" 
’返回“目录”工作表的超链接

完整代码:

效果演示

大家如果觉得实用,点个“在看”并分享给更多的朋友吧!

你可能还会想看:

Excel VBA 实例(29) – 快速实现合并单元格的填充

Excel如何将数据逐一拆分成单行?

Excel VBA 实例(28) – 批量生成word报告

Excel VBA 实例(27) – 一键按列分类并保存单独文件

欢迎交流!

微信公众号:永恒君的百宝箱
个人博客:www.yhjbox.com

anyShare分享到:

转载请注明:永恒君的百宝箱 » Excel VBA 实例(30) – 为多个sheets创建目录和超链接

喜欢 (5)
发表我的评论
取消评论

*

code

表情