• 人社部副部长汤涛巡视中央机关及其直属机构2018年度考试录用公务员四川考区笔试考务工作 2019-06-11
  • 王哲林18分方硕12分 中国红队52-64澳大利亚NBL联队 2019-06-11
  • 杨梅:谣言太多伤不起 2019-06-09
  • 马克思的每个人全面而自由发展,是人的最高需求层次理论。 2019-06-08
  • [新闻直播间]端午假期铁路旅客运输启动 今天将迎假期出行最高峰 2019-06-07
  • 三个版本的小米8发布,都有哪些区别? 2019-06-06
  • 中共中央印发《中国共产党廉洁自律准则》 2019-06-05
  • 在生产力水平低下的时代,农业税是国家税收的重要来源之一。当工业发展到一定阶段后,国家就取消了农业税,并适当给予农民补助,对农业基础设施进行了一定的投入。 2019-06-04
  • 27岁澳大利亚外教去世 捐器官救助5人 2019-06-04
  • 五一游记:随华商网乡村游走进安康 游览南宫山 蜀河古镇 2019-06-03
  • (原创首发)希望依照监察法践行法治反腐不迟到、不缺席。 2019-06-03
  • 尼斯湖里有啥?新西兰学者欲探测“水怪DNA”揭秘 2019-06-02
  • 【理上网来·喜迎十九大】扶贫也创新!十八大以来年均减贫人数超1300万 获历史突破 2019-06-01
  • 广州市番禺区人民法院公告专栏 2019-06-01
  • 女性之声——全国妇联 2019-05-31
  • 白小姐资料一肖中特马133期

    excel目录制作实例教程 最快捷的Excel目录制作教程

    时间:2018-10-19 23:04来源:Office教程学习网 白小姐资料一肖中特马133期 www.yzzcc.tw编辑:麦田守望者

    白小姐资料一肖中特马133期 www.yzzcc.tw 文件中如果有多张工作表,切换就成了问题。尤其是提交给老板的文件更应该考虑工作表的快速切换。通常采用目录索引的方式进行工作表的切换。只不过常见的目录索引做法存在单向跳转,或者目录挤占页面的情况。本篇教程,则通过最简单的3步操作——都是复制粘贴给出的代码,实现全自动更新、双向跳转,并且不挤占工作页面的目录。

    工作中,如果数据量大工作表多文件,查看数据就需要来回切换工作表,操作很不便。于是就有了目录索引。
    网上Excel目录索引教程有两种,都只实现了单向跳转:
    第1种,目录只存在“目录”工作表里。
    单击目录,切换到需要的工作表。
    缺点:
    只是单向跳转,无法从工作表返回目录,工作表之间的切换仍然很不方便,需要单击工作表标签才能切换。
    目录不会自动更新。增加新的工作表后,需要在目录里手动填充公式才能更新目录。
    excel目录单向跳转
    第2种,目录存在所有工作表里。
    单击目录,可以方便的在各个工作表中切换。
    缺点:
    目录挤占页面空间。
    目录不会自动更新。增加新的工作表后,需要在目录里手动填充公式才能更新目录。
    excel目录单向跳转
    今天要分享给大家的是做可以双向跳转、全自动更新的目录索引:
    ◎单击目录,跳转到工作表,双击工作表单元格,跳转到目录
    ◎增加、删除了工作表后,目录自动更新,不用手动填充公式
    ◎不但能快速实现工作表之间的切换,目录也不挤占页面空间。
    效果如下:
    excel目录双向跳转
    第一步:生成工作表目录
    (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)生成目录
    首先单击任何一个非目录工作表,然后再单击切换到“目录”工作表,完成目录生成。
    excel自动生成目录
    第二步:目录跳转到各工作表
    打开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表示点击单元格。上述代码意思:单击目录列中的某单元格就会跳转到以该单元格值命名的工作表。为了排除错误跳转,代码还设置了单击多个单元格不跳转、如果不存在以单元格值命名的工作表也不跳转等规则。
    excel目录跳转到工作表
    第三步:由各工作表跳回目录
    打开VBA编辑器,然后在左侧工程资源管理器窗口,双击EXCEL对象里面的“ThisWorkbook”,在右侧的代码窗口输入如下代码:
    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Worksheets("目录").Activate
    End Sub
    解析:
    SheetBeforeDoubleClick表示双击单元格。上述代码意思:在任一工作表内双击单元格就跳转到“目录”工作表。
    excel跳转到目录
    Ok,现在我们就实现了双向跳转的全自动目录索引创建。
    最后提醒大家一下,如果想在工作簿使用VBA代码,除了EXCEL2003其他版本的都要保存为EXCEL启用宏的工作簿“xlsm”格式哦!
    下载:
    本文配套的练习课件与代码请加入QQ群:264539405下载。
    ------分隔线----------------------------
    标签(Tag):excel excel2016 excel目录制作
    ------分隔线----------------------------
    推荐内容
    猜你感兴趣
  • 人社部副部长汤涛巡视中央机关及其直属机构2018年度考试录用公务员四川考区笔试考务工作 2019-06-11
  • 王哲林18分方硕12分 中国红队52-64澳大利亚NBL联队 2019-06-11
  • 杨梅:谣言太多伤不起 2019-06-09
  • 马克思的每个人全面而自由发展,是人的最高需求层次理论。 2019-06-08
  • [新闻直播间]端午假期铁路旅客运输启动 今天将迎假期出行最高峰 2019-06-07
  • 三个版本的小米8发布,都有哪些区别? 2019-06-06
  • 中共中央印发《中国共产党廉洁自律准则》 2019-06-05
  • 在生产力水平低下的时代,农业税是国家税收的重要来源之一。当工业发展到一定阶段后,国家就取消了农业税,并适当给予农民补助,对农业基础设施进行了一定的投入。 2019-06-04
  • 27岁澳大利亚外教去世 捐器官救助5人 2019-06-04
  • 五一游记:随华商网乡村游走进安康 游览南宫山 蜀河古镇 2019-06-03
  • (原创首发)希望依照监察法践行法治反腐不迟到、不缺席。 2019-06-03
  • 尼斯湖里有啥?新西兰学者欲探测“水怪DNA”揭秘 2019-06-02
  • 【理上网来·喜迎十九大】扶贫也创新!十八大以来年均减贫人数超1300万 获历史突破 2019-06-01
  • 广州市番禺区人民法院公告专栏 2019-06-01
  • 女性之声——全国妇联 2019-05-31
  • 坦克世界 技能 曼联对瓦伦西亚直播 古怪猴子中奖图片 圣埃蒂安巴黎 拉齐奥队 堡垒之夜手机版叫啥 巴黎圣日耳曼足球俱乐部logo 莱斯特城夺冠 杜塞尔多夫足球队 图卢兹位置