推荐您关注微信平台：jiuzheer
2017年七月
2017年五月
2017年四月
2017年三月
2017年二月
2017年一月
2016年十二月
2016年十一月
2016年八月
2016年七月
2016年六月
2016年五月
2016年四月
2016年三月
2016年二月
2016年一月
2015年十二月
2015年十一月
2015年九月
2015年八月
2015年七月
2015年五月
2015年三月
2015年一月
2014年十二月
2014年十一月
2014年十月
2014年九月
2014年八月
2014年七月
2014年六月
2014年五月
2014年四月
2014年三月
2014年二月
2014年一月
2013年十二月
2013年十一月
2013年十月
2013年九月
2013年八月
2013年七月
2013年六月
欢迎您关注我们查看: 16970|回复: 46
【会问会答】如何快速给多个工作表创建超链接目录
春季促销报名
CMA获得政府及各大企业集团一致推荐
会计越老，越容易被淘汰
财务职场，变迁太快?
Excel知名公众号作者
随书扫码看视频学Excel
问题：在工作中常常遇到这样一种情况，一个工作簿中有很多个格式类似的工作表，比如，每个项目单位都提供一个工作表，一共是几十个或上百个，这时候要用鼠标点击其中的某个工作表查阅数据，会很费力，于是希望能够为这些工作表制作出一个带超链接的目录，只要在目录上找到这个表的名字并点击，就可以直接跳转到想要的工作表了。那多个工作表如何快速创建超链接目录？
回答：三步带你完成首页目录创建。
Step One:定义公式名
　打开Excel 2007，右击第一张工作表标签选择重命名，把它重命名为目录工作表。选中B1单元格，切换到公式选项卡，单击定义名称，在弹出的新建名称窗口中输入名称工作表名，在引用位置中则输入公式
=INDEX(GET.WORKBOOK(1),!$A1)&T(NOW()) 复制代码
单击确定即可定义出一个名为工作表名的名称，在建立公式名后，直接在A1列写序列号，在B1列使用公式菜单中的“用于公式”选项，利用刚才创建的公式，然后按住ctrl拖出很多行（有几个sheet就拖出几行）。这时候在 B1到Bn列 ，会显示出每个 sheet的字符串名称。
上述函数公式解释如下：公式中GET.WORKBOOK(1)用于提取当前工作簿中所有工作表名称，INDEX函数则按A1中的数字决定要显示第几张工作表的名称。此外，由于宏表函数GET.WORKBOOK(1)在数据变动时不会自动重算，而NOW()是易失性函数任何变动都会强制计算，因此我们需要在公式中加上NOW()函数才能让公式自动重算。函数T()则是将NOW()产生的数值转为空文本以免影响原公式结果。　　注：宏表函数GET.WORKBOOK，不能直接在单元格公式中使用，必须通过定义名称才能起作用 复制代码
Step TWO:去掉sheet名称中的不必要字符（括号和英文）
在C1列写函数:
=RIGHT(B1,(LEN(B1)-FIND(&]&,B1))) 复制代码
注：公式中RIGHT(工作表名，LEN(工作表名)-FIND(]，工作表名))这段函数的作用是除去工作表名中]以前的内容
Step Three:建立超链接
=HYPERLINK(&#&&C1&&!A1&,C1) 复制代码保存设置　　切换到开始选项卡适当设置一下目录中的字体、字号和颜色等等，建议把字号放大并设置加粗以便查看，还要调整一下A：B列的列宽以便完全显示工作表名称。然后右击其他工作表标签选择删除，把所有其他工作表全部删除只保留一张目录工作表。最后单击Office按钮，选择另存为，在弹出的另存为窗口中选择保存类型为Excel启用宏的模板(*.xltm)格式、文件名为目录.xltm，保存到C:\Program Files\Microsoft Office\Office12\XLSTART文件夹下，关闭Excel 2007退出。若你的Office不是按默认路径安装，请按实际安装路径修改。三秒创建目录　　以后要为工作簿创建目录就简单了，只要用Excel 2007打开要创建目录的工作簿，在第一张工作表的标签上右击选择插入，在插入窗口中双击选择目录，即可在第一张工作表前插入一张目录工作表，并显示出所有工作表目录。这操作有3秒就够了吧？　　在目录工作表中，可通过对目录进行筛选、排序、查找来快速找到工作表名，然后单击工作表名即可打开相应工作表。创建目录后，在这个工作簿中增加、删除工作表或者修改工作表名称，目录工作表中的工作表目录都会自动更新。此外，前面我们只复制了300行目录公式，因此工作表总数超过300个时，超出的工作表名就不会显示了，得把目录工作表中A1：B1的公式再向下复制填充才行。　　由于宏表函数GET.WORKBOOK(1)是通过宏功能起作用的，所以插入了工作表目录的文档最后都必须以Excel启用宏的工作簿(*.xlsm)格式另存，这样下次打开时才能正常显示工作表目录。此外，打开工作簿时，Excel 2007默认会禁用宏，得单击警告栏中的选项按钮，选中启用此内容单选项，确定后才能显示工作表目录。
本帖被以下淘专辑推荐:
& |主题: 47, 订阅: 2
& |主题: 3, 订阅: 0
Sub 目录()
Dim sht As Worksheet
For Each sht In Worksheets
k = k + 1
Cells(k, 1) = sht.Name
Cells(k, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:= _
sht.Name & &!a1&, TextToDisplay:=sht.Name
Next
End Sub复制代码
QQ截图46.png (12.46 KB, 下载次数: 41)
10:13 上传
<p id="rate_8357" onmouseover="showTip(this)" tip="&威望 + 4
" class="mtn mbn">
笑看今朝 发表于
这个不会用，还没仔细研究过
vba用起来很方便、简洁。
{:sweat:}这个不会，我迷茫了。。。
写的真好，尤其是VBA的用法。我一般用&table&&td&&a href=#sheet1!a1&shee1!a1来代替hyperlink函数。
楼上的都是高手！正需要这个，学习了，谢谢！
谢谢，这个我还要好好学习
queyue 发表于
问题：在工作中常常遇到这样一种情况，一个工作簿中有很多个格式类似的工作表，比如，每个项目单位都提供一 ...
学习收藏了~~
刚看到，感觉不错，得好好琢磨才能会用~
不会，学不会。可以远程教我吗？
受教了&&厉害
得好好琢磨才能会用~
要是能有演示图列就好了，自己按着这些步骤做，都做不出来。{:cry:}
强烈请求楼主发一个演示图吧,我水平有限,实在看不懂,但又急需要解决这个问题!自己按着这些步骤做，都做不出来&&,,,{:cry:}{:cry:}
先记号一个。
函数“博大精深”
请问这个代吗执行后，由目录工作可直接链接到目标工作表，那么没有做人工作表返回到目录工作的链接啊？不如再写一段吧。
请问这个代吗执行后，由目录工作可直接链接到目标工作表，那么没有做人工作表返回到目录工作的链接啊？不 ...Sub 提取工作表名()
& & Dim i As Integer '定义i为整型变量
& & On Error Resume Next '防止工作簿里没有目录工作表，在删除时报错
& & Application.DisplayAlerts = False '关闭询问对话框
& & Worksheets(&目录&).Delete '删除目录工作表
& & Application.DisplayAlerts = True '打开询问对话框
& & Sheets.Add before:=Sheets(1) '在第一个工作表前插入一张新的工作表
& & Sheets(1).Name = &目录& '把第一个工作表取名为&目录&
& & Cells(1, 1) = &目录& '在目录工作表中的A1单元写于&目录&两字
& & For i = 2 To Worksheets.Count 'Worksheets.Count统计工作的总数，整句代码的意思遍历每一个作表
& && &&&Worksheets(1).Activate '一定要加上这一句，由于我们为了添加按钮时，把添加按钮的那个工作表设置为活动工作表，添加之后还要把&目录&工作表设置为当前工作表
& && &&&Cells(i, 1) = Sheets(i).Name '依次把工作表的名字写A列
& && &&&ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=&&, _
& && &&&SubAddress:=Worksheets(i).Name & &!A1&, TextToDisplay:=Cells(i, 1).Value
&&Worksheets(i).Shapes.AddTextEffect(msoTextEffect32, &返回目录&, &黑体&, 16#, _
& && &&&msoTrue, msoFalse, 600#, 20.25).Select
& && &&&Sheets(i).Select
& & Sheets(i).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
& && &&&&&, SubAddress:=Worksheets(1).Name & &!A1&
& &Range(&A1&).Select
& & Next i
End Sub复制代码
<p id="rate_7699" onmouseover="showTip(this)" tip="好文&威望 + 1
" class="mtn mbn">
站长推荐 /1
随着近期极低的过会率，每家过会企业被发审委委员拿放大镜去观察，并形成详细的反馈报告。针对这些报告如何有效去解读，是否只是表面所说的那些bug，嘉宾根据自己的观察思考来针对进行详细的解读。本活动由元年云快报支持举办。
Powered by查看: 903|回复: 3
excel做目录链接到word文档中
阅读权限20
在线时间 小时
背景：1、正在做一些文档搜集和整理的工作，目前是把excel做目录用，手动添加超链，链到对应的word文档中。
2、word文档存放在文件夹中
1、不用写vba&&不用手动添加超链&&怎么样批量添加超链呢
2、不用写VBA&&是否可以实现把 一片文章存放到文件夹中后，自动在excel中形成超链呢？
最希望实现的就是&&在节点文件夹内增加一片文章，在excel目录上就自动生成一个指向这个word的超链
文字表达的比较不容易看懂，下面上图
用excel当目录 超链到word文档
目录.jpg (46.41 KB, 下载次数: 2)
18:18 上传
这是阶段文件夹 ，每个阶段文件夹下都有很多节点文件夹
阶段文件夹.jpg (38.31 KB, 下载次数: 23)
18:16 上传
这是节点文件夹，每个文件夹内存放数量不等的文章
节点文件夹.jpg (16.45 KB, 下载次数: 2)
18:16 上传
这是一个节点内存放的word文档
文章存放.jpg (18.02 KB, 下载次数: 1)
18:16 上传
小弟 道行实在太浅，还请大侠们不吝赐教&&谢谢啦
阅读权限50
在线时间 小时
看来不用 VBA 不行。
“一篇”不是“一片”。
阅读权限20
在线时间 小时
看来不用 VBA 不行。
“一篇”不是“一片”。
小弟的陋习&&错字百出 后面一定改
阅读权限20
在线时间 小时
看来不用 VBA 不行。
“一篇”不是“一片”。
再请教下& &不用VBA 可以批量超链吗 {:soso_e183:}
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel中如何将工作表名创建为目录超链接
　　下面要和大家分享的是：如何将excel中的工作表名创建为目录超链接?　　1、首先打开数据表格，我们发现有5个工作表，如下图所示：　　2、接着我们定位到sheet1中，选择 方方格子插件 ，如下图所示：　　3、选择后，单击项目下的 表格目录按钮 ，如下图所示：　　4、在弹出的对话框中选择输出的存放位置，如下图所示：　　5、确定后即可看到以每一个 工作表名命名的超链接按钮 ，如下图所示：　　6、单击sheet2即可打开表格sheet2，其他的类似，如下图所示：
最新更新栏目
您可能喜欢
大家都在搜