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.发现违规行为请私信站长LAzySheep或进TG群举报。
本文由 @LAzySheep 发布。如若转载,请注明出处: 科技玩家 » Excel通过宏自动创建工作表超链接目录

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

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

2018-7-14 11:29:00

Office

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

2021-3-10 10:49:00

9 条回复 A文章作者 M管理员
  1. hhican

    excell也可以这么玩。

  2. 阿细八

    真不错

    真不错

  3. 阿细八

    粉你真不错

  4. egria

    真不错

  5. 叶德佬

    真不错,支持

  6. YOYO

    一脸懵逼的看着你们

  7. 过路人

    你说的真棒👍

个人中心
今日签到
有新私信 私信列表
搜索