Excel通过宏自动创建工作表超链接目录

因本人从事财务工作,平时基本都是做excel数据处理工作。

本文记录一下常用超链接目录代码:

Sub Add_Sheets_Link()

For i = 1 To ThisWorkbook.Worksheets.Count

Cells(i + 2, 3).Value = Worksheets(i).Name

ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 3), Address:="", SubAddress:=Cells(i + 2, 3) & "!" & "A1", TextToDisplay:=Cells(i + 2, 3) & "!" & "A1"

Cells(i + 2, 3).Value = Worksheets(i).Name

Next

End Sub

使用方法:

  1. 打开Excel,在工作表页签右键,选择”查看代码“;
  2. 在弹出的窗口最上方菜单,依次选择”插入-模块“,复制粘贴以上代码,保存;
  3. 选择你要创建超链接目录的工作表,点击代码窗口顶部菜单的”运行“;
  4. 接下来就是见证奇迹的时刻。
-> 加入科技玩家交流群组:点击加入 <-
注意:
1.文中二维码和链接可能带有邀请性质,请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头,拉app注册等信息,发现必小黑屋。
4.同一种信息仅发一次,多发会被删除。
5.文章中源码或APP等,无法保证其绝对安全,需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @LAzySheep 发布。如若转载,请注明出处: 科技玩家 » Excel通过宏自动创建工作表超链接目录

给TA买糖
共{{data.count}}人
人已买糖
Office学习笔记工具

Excel使用技巧:如何将大于或小于某一数值替换成一个具体的数字?

2018-7-14 11:29:00

Office

Excel通过宏一键自动取消所有隐藏工作表

2021-3-10 10:49:00

28 条回复 A文章作者 M管理员
贴心提醒
请认真对待作者付出,勿发表无意义言论,触发过滤规则的评论将无法提交,包含敏感词的评论会自动变成待审核状态哦。
  1. YANMING

    萌新报道

  2. 灰灰

    萌新报道

  3. 两个空格

    谢谢分享,学习了

  4. 萝卜头

    谢谢分享,学习了

  5. 萝卜头

    谢谢,分享学习了

  6. 橙子

    谢谢,分享学习了

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索