当我们一个工作簿中有很多张工作表时候，希望能够建立一个目录（类似Word中的目录），可以自由跳转，这样就能更好提升我们工作表之间的切换。那么如何做呢，且听老墨分解。如上图，共有10张工作表：目录，加上Sheet1-Sheet9十张表。首先要做的，我们为“目录”定义一个名称。“目录”的内容是：=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())，也就是一个公式。INDEX()负责引用，GET.WORKBOOK是工作表。确定保存以待后用。接下来我们要编写B1单元格公式，也就是目录的实现公式。=IFERROR(HYPERLINK(目录&'!A1',MID(目录,FIND(']',目录) 1,99)),'')，这个公式的核心HYPERLINK()。HYPERLINK 函数可以创建快捷方式或跳转，以打开存储在网络服务器、intranet 或 Internet 上的文档。当单击 HYPERLINK 函数所在的单元格时，Microsoft Excel 将打开存储在 link_location 中的文件。HYPERLINK 函数具有下列参数：1）Link_location，必需。可以作为文本打开的文档的路径和文件名。Link_location 可以指向文档中的某个更为具体的位置，如 Excel 工作表或工作簿中特定的单元格或命名区域，或是指向 Microsoft Word 文档中的书签。路径可以表示存储在硬盘驱动器上的文件，或是服务器上的通用命名约定 (UNC) 路径（在 Excel 中），或是在 Internet 或 Intranet 上的统一资源定位器 (URL) 路径。2）Friendly_name，可选。单元格中显示的跳转文本或数字值。Friendly_name 显示为蓝色并带有下划线。如果省略 Friendly_name，单元格会将 link_location 显示为跳转文本。Friendly_name 可以为数值、文本字符串、名称或包含跳转文本或数值的单元格。B1单元格公式输入完成下拉复制，这时B2:B10区域会出现Shee1-Sheet9内容，其实到这里目录已经创建完成了。当我们把鼠标放在其中一个单元格内容上时，会显示“[批量创建Sheet工作表目录.xlsx]Sheet1!A1-单击一次可跟踪超链接 & 单击并按住不放可选择此单元格。”这时，只要你点击单元格就可以跳转了指定的表格了。当然，我们还可以在各个Sheet表建立一个返回键按钮，通过超链接方式返回到“目录”工作表。以下动图是完成之后目录跳转的效果。百度搜索“就爱阅读”,专业资料,生活学习,尽在就爱阅读网,您的在线图书馆!
欢迎转载：
推荐： 　　　The page is temporarily unavailable
nginx error!
The page you are looking for is temporarily unavailable.
Please try again later.
Website Administrator
Something has triggered an error on your
This is the default error page for
nginx that is distributed with
It is located
/usr/share/nginx/html/50x.html
You should customize this error page for your own
site or edit the error_page directive in
the nginx configuration file
/etc/nginx/nginx.conf.The page is temporarily unavailable
nginx error!
The page you are looking for is temporarily unavailable.
Please try again later.
Website Administrator
Something has triggered an error on your
This is the default error page for
nginx that is distributed with
It is located
/usr/share/nginx/html/50x.html
You should customize this error page for your own
site or edit the error_page directive in
the nginx configuration file
/etc/nginx/nginx.conf.[原创]在Excel中实现自动显示与隐藏工作表--清心无尘
此页面上的内容需要较新版本的 Adobe Flash Player。
载入中。。。
载入中。。。
载入中。。。
载入中。。。
载入中。。。
「&[原创]在Excel中实现自动显示与隐藏工作表 」
→尘哥 发表于
　　一位老师在QQ群里提出了一个问题，一个Excel工作簿中有N多个工作表，为了便于使用，想在第一个工作表中做一个目录，把其它工作表都隐藏起来，通过在目录工作表中单击超级链接后显示相应的工作表，用完后，该工作表还应该能够自动隐藏。对这个问题有点兴趣，便花了点时间研究了一下。
　　用超级链接肯定是不行的，因为，当工作表被隐藏时，超级链接就不再能访问了，那么怎么解决呢？可以通过控件和VBA来实现（VBA代码可以通过录制宏来得到，再进行修改）。经过研究，实现了这一功能。具体做法是：
（1）在第一个工作表中创建指向其它工作表的按钮。
右击工具栏空白处，在弹出的工具栏选项中选择“控件工具箱”；
选择“按钮”控件，在第一个工作表中画出N个（等于其它工作表的个数）按钮；
单击按钮上的文字部分，修改显示内容；
右击代表Sheet2的按钮，选择属性，修改按钮的Name属性，如Sheet2、Sheet3……（不修改也可以，不过从规范性来说修改可以使代码阅读起来更清晰）；
双击按钮，进入VBA编辑器；
输入如下代码：
&&&&&&& Private Sub sheet2_Click()&&&&&&&&&&&&&&& Sheets("Sheet2").Visible = True&&&&&&&&&&&&&&& Sheets("Sheet2").Select&&&&&&& End Sub
按上述方法修改指向其它工作表的按钮，输入代码――注意上述代码中引号内的Sheet2是工作表的名字，需要按实际情况修改；
（2）切换到第二个工作表――Sheet2
同样创建一个按钮，修改其显示内容为“回目录”，当然，也可以按你的想法输入；
修改该按钮的Name属性为“back”；
双击按钮，进入VBA编辑器；
输入如下代码：
&&&&&&&&Private Sub back_Click()&&&&&&&&&&&&&&& Sheets("Sheet2").Select&&&&&&&&&&&&&&& ActiveWindow.SelectedSheets.Visible = False&&&&&&& End Sub
（3）按（2）步骤在其它工作表中插入返回按钮；
（4）分别将除目录以外的其它工作表隐藏；
&&&&&&& OK，现在试试，是不是已经实现预期的功能了？
&&&&&&& 但是现在还存在一个问题，当我们保存文件，重新打开时会发现系统给出一个关于宏不能运行的提示，并且功能丧失，这是由于我们EXCEL的宏安全级别过高造成的，只要在Excel中选择“工具”――“宏”――“宏安全级别”，选择低级别即可正常运行。
&&&&&&& 本来还要研究下用其它控件实现的，比方说单选框，理论上是可行的，可是太晚了困得不行，算了吧，睡觉。
标签：&&&&&
「&Re:[原创]在Excel中实现自动显示与隐藏工作表 」
→xgdyl(游客)发表评论于<span id="t_-3-31 18:30:00
没弄成功，能否再写的详细一点。写的正是我这几天一直再研究的问题，可是我照您写的没弄出来，麻烦再指教一下。谢谢！以下为尘哥的回复： 要看是哪一步没成功，有什么现象，然后找原因。你可以说说看你的操作卡在哪一步了。
「个人主页 |
发表评论：
载入中。。。每月精选课程11
管理者必修
经营思维重塑
降本增效系列
专项能力提升
每月精选课程11
管理会计与财务转型系列
财务经理人系列
营运资本与现金管理系列
金融与资本系列
项目管理系列
信用管理系列
会计政策与准则系列
财务工具系列
每月精选课程11
最新政策解析系列
每月精选课程11
经营分析和业财融合
提升财务团队战斗力
财务管理转型和共享中心运营
每月精选课程11
管理转型和全面预算
精益成本和价值链
业绩评价和绩效管理
每月精选课程11
汽车行业（零配件、厂商、4S店）
房地产行业
医药和医疗器械行业
金融与保险行业
每月精选课程11
活动咨询：021
Excel中为多个工作表快速创建目录
在Excel 的使用中会碰到一张工作簿中有很多工作表，而当需要快速定位到某张工作表时就会比较麻烦，使用超链接可以快速定位，但为每张工作表创建超链接本身也比较麻烦。这里为大家介绍一种使用函数的方法，只需创建一个公式，然后复制即可。如果觉得每次创建下文要讲的这样的公式也比较麻烦，可以把这个文件作为一个模板放在Excel的特定目录，这样，每次需要这个公式的时候，只需插入这个工作表即可。
　　我们经常把同类相关的Excel工作表集中保存在同一文档中，以便于在各表格间进行引用、查看。当一个文档中的工作表达到一定数量时，要想找到需要的工作表就变得很麻烦了。此时若能建立一张&目录&工作表显示所有工作表的名称和链接，事情将会简单很多。当然，我们可以通过创建超链接的方法，为每一个工作表分别创建超连接，但这样会比较麻烦，工作表多的时候，工作量也蛮大。下面介绍一种通过HYPERLINK函数结合定义名称的方法，快速创建工作表目录。下面主要以Excel& 2007 演示，在Excel 2003 中同样适用。
　　一．定义名称
　　打开Excel 2007，右击第一张工作表标签选择&重命名&，把它重命名为&目录&工作表。选中B1单元格，切换到&公式&选项卡，单击&定义名称&，在弹出的&新建名称&窗口中输入名称 List，在引用位置中则输入=INDEX(GET.WORKBOOK(1)，$A1)&T(NOW())，单击确定即可定义出一个名为 List 的名称。
　　公式中GET.WORKBOOK(1)用于提取当前工作簿中所有工作表名称，INDEX函数则按A1中的数字决定要显示第几张工作表的名称。此外，由于宏表函数GET.WORKBOOK(1)在数据变动时不会自动重算，而NOW()是易失性函数任何变动都会强制计算，因此我们需要在公式中加上NOW()函数才能让公式自动重算。函数T()则是将NOW()产生的数值转为空文本以免影响原公式结果。
　　注：宏表函数GET.WORKBOOK，不能直接在单元格公式中使用，必须通过定义名称才能起作用。
　　二．输入公式
　　在&目录&工作表的A1单元格输入2，在B1单元格输入公式=IFERROR(HYPERLINK(List&&!A1&,&&)。公式表示当名称List的值为错误值时显示为空，否则创建指向第二张工作表的超链接。当然出现的文本包括工作簿名、工作表名和单元格A1，如果只想显示工作表名，可用一些文本函数作为HYPERLINK的第二个参数，使得超链接显示的文本满足自己的要求。
　　然后选中A1：B1单元格，把鼠标指向选中区右下角的&填充柄&按住鼠标左键向下拖动即可（根据该工作簿中工作表的数量决定复制多少行）。单击相应工作表名称即可快速切换到该工作表中。
　　三．保存设置
　　切换到&开始&选项卡适当设置一下目录中的字体、字号和颜色等等，建议把字号放大并设置加粗以便查看，还要调整一下A：B列的列宽以便完全显示工作表名称。最后单击&Office&按钮，选择&另存为&，在弹出的另存为窗口中选择保存类型为&Excel启用宏的模板(*.xltm)&格式。
　　由于宏表函数GET.WORKBOOK(1)是通过宏功能起作用的，所以插入了工作表目录的文档最后都必须以&Excel启用宏的工作簿(*.xlsm)&格式另存，这样下次打开时才能正常显示工作表目录。此外，打开工作簿时，Excel 2007默认会禁用宏，得单击警告栏中的&选项&按钮，选中&启用此内容&单选项，确定后才能显示工作表目录。
　　Excel 2003 则以xls 格式保存即可。同样，在使用上述所讲的功能之前，需将宏的安全级别设为&中&或&低&：工具 & 宏 & 安全性
安越财务培训-微信
安越公众号：Anyueapp
安越财务培训-微博
您可能感兴趣
安越零距离
CopyRight(C) 安越咨询 版权所有 沪ICP备
电子邮箱:.cn}