编按:文件中如果有多张工作表,切换就成了问题。尤其是提交给老板的文件更应该考虑工作表的快速切换。通常采用目录索引的方式进行工作表的切换。只不过常见的目录索引做法存在单向跳转,或者目录挤占页面的情况。本篇教程,则通过最简单的3步操作——都是复制粘贴给出的代码,实现自动更新、双向跳转,并且不挤占工作页面的目录。
工作中,如果数据量大工作表多文件,查看数据就需要来回切换工作表,操作很不便。于是就有了目录索引。网上Excel目录索引教程有两种,都只实现了单向跳转。
第1种,目录只存在“目录”工作表里:单击目录,切换到需要的工作表。
缺点:
只是单向跳转,无法从工作表返回目录,工作表之间的切换仍然很不方便,需要单击工作表标签才能切换。
目录不会自动更新。增加新的工作表后,需要在目录里手动填充公式才能更新目录。
第2种,目录存在所有工作表里:单击目录,可以方便的在各个工作表中切换。
缺点:
目录挤占页面空间。
目录不会自动更新。增加新的工作表后,需要在目录里手动填充公式才能更新目录。
今天要分享给大家的是做可以双向跳转、自动更新的目录索引:
单击目录,跳转到工作表,双击工作表单元格,跳转到目录
增加、删除了工作表后,目录自动更新,不用手动填充公式
不但能快速实现工作表之间的切换,目录也不挤占页面空间。
效果如下:
制作过程:
第一步:生成工作表目录
(1)输入代码
按Alt+F11打开VBA编辑器,然后在左侧工程资源管理器窗口,双击EXCEL对象里面的“Sheet1(目录)”,在右侧的代码窗口输入如下代码(加QQ群:920864360可以下载代码):
Private Sub worksheet_activate()
Dim i As Integer, ss As String
Range("a:a").Clear '清空A列
For i = 1 To Worksheets.Count
Range("A" & i).Value = Worksheets(i).Name '逐个获取工作表名称
Next i
End Sub
单引号'用于代码注释,其后的信息在VBA窗口里会显示为绿色,不会作为代码执行。
解析:
Acti