内容提要：来回切换作业表，操作很不方便。于是就有了目录索引 编按：文件中假如有多张作业表，切换就成了问题。尤其是提交给老板的文件更应该考虑作业表的快速切换。一般采用目录索引的方式进行作业表的切换。只不过常见的目录索引做法存在单向跳转，或许目录抢占页面的状况。本篇教程，则通过最简略的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窗口里会显现为绿色，不会作为代码履行。
解析： Activate表明作业表激活。上述代码表明：一旦从其他作业表跳转到目录作业表，就履行代码，逐一获取作业表的称号，在目录作业表的 A列生成目录。 (2)生成目录 首先单击任何一个非目录作业表，然后再单击切换到目录作业表，完成目录生成。
第二步：目录跳转到各作业表 翻开VBA编辑器，双击EXCEL目标里边的Sheet1(目录)，在右侧的代码窗口输入如下代码: Private Sub worksheet_SelectionChange(ByVal target As Range) Dim sht As Worksheet If target.Count 1 Then Exit Sub \'单击多个单元格不履行代码 On Error Resume Next \'碰到错误继续履行 Set sht = Worksheets(target.Value) \'检查是否存在以Target.Value命名的作业表 If Err.Number = 0 Then \'假如错误为0，即作业簿存在以Target.Value命名的作业表，不然就不履行代码 Worksheets(target.Value).Activate \'激活该作业表 End If End Sub
解析： SelectionChange表明点击单元格。上述代码意思：单击目录列中的某单元格就会跳转到以该单元格值命名的作业表。为了排除错误跳转，代码还设置了单击多个单元格不跳转、假如不存在以单元格值命名的作业表也不跳转等规则。
第三步：由各作业表跳回目录 翻开VBA编辑器，然后在左边工程资源管理器窗口，双击EXCEL目标里边的ThisWorkbook，在右侧的代码窗口输入如下代码: Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Worksheets(目录).Activate End Sub
解析： SheetBeforeDoubleClick表明双击单元格。上述代码意思：在任一作业表内双击单元格就跳转到目录作业表。
Ok，现在我们就完成了双向跳转的全自动目录索引创建。 最后提醒我们一下，假如想在作业簿使用VBA代码，除了EXCEL2003其他版别的都要保存为EXCEL启用宏的作业簿xlsm格式哦!
即可加入考研、考公考编、四六级、计算机等级考试、教师编等【免费网课网盘群组】
易和谐资料优先在群组内补发
或者夸克APP内搜索群号：970062162
暂无评论内容