Excel自动创建财会工作表超链接目录

Excel宏代码片段：

Private Sub Worksheet_Activate()

Dim sh As Worksheet

Dim a As Integer

Dim R As Integer

//在目录工作表激活时，自动创建工作簿中除“目录”工作表外所有工作表的目录

R = Sheet1.[A65536].End(xlUp).Row

a = 2

If Sheet1.Cells(2， 1) <> "" Then//判断是否存在工作表目录

Sheet1.Range("A2:A" & R).ClearContents

End If

For Each sh In Worksheets

If sh.CodeName <> "Sheet1" Then

Sheet1.Cells(a， 1).Value = sh.Name

a = a + 1

End If

Next

End Sub

提示：由于该功能是通过编辑宏代码实现的，因此一定要把编辑的工作簿以“Excel启用宏的工作簿(*.xlsm)”格式保存才行。下一次重新打开此工作簿时会警告宏已被禁用，单击警告栏中的“启用内容”即可。

赞 (0)

相关推荐

  • Excel如何自动创建财会工作表超链接目录

    小李是公司会计，每天需要处理的Excel工作表多达几十个，数量非常大。为了方便工作，小李需要在Excel工作簿中创建目录，这个目录包含超链接，点击即可进入对应的工作表，如果工作簿中的工作表出现了什么变 ...

  • Excel表格怎么创建工作表超链接目录

    Excel表格怎么创建工作表超链接目录

    Excel是我们常用的办公软件之一,有小伙伴问怎么创建工作表超链接目录,下面小编介绍一下.具体如下:1. 打开编辑好的表格,选中一个工作表名称,然后右击弹出列表,选择[创建表格目录]2. 弹出对话框, ...

  • 给Excel 2007多个工作表快速创建目录

    我们经常把同类相关Excel工作表集中保存在同一文档中，以便于在各表格间进行引用、查看。当一个文档中的工作表达到一定数量时，要想找到需要的工作表就变得很麻烦了。此时若能建立一张“目录”工作表显示所有工 ...

  • excel如何设置新建工作表不用默认名称?

    excel中使用vba新建工作表不使用默认名称的方法,对于有需要的朋友可以参考本文,希望这篇文章能对大家有所帮助! 步骤 1.首先我们打开一个工作样表作为例子. 2.使用alt+f11组合快捷键进入v ...

  • Excel2016表格中怎么创建预测工作表?

    excel表格中想要创建预测工作表,该怎么创建呢?下面我们就来看看详细的教程. 1.首先我们需要准备这样一份数据,一列是间隔相同的日期,一列是对应的数值,小编预设的是一列线性数据,然后来观测预测的结果 ...

  • 怎么在WPS同时编辑Excel文档所有工作表

    怎么在WPS同时编辑Excel文档所有工作表

    Excel文档常常被用来统计各类数据,可以在文档中创建多个工作表,有些用户为了方便操作想知道怎么在WPS同时编辑Excel文档所有工作表,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先 ...

  • Excel如何重命名工作表

    Excel如何重命名工作表,下面就和大家来聊聊. 操作方法 01 打开Excel,点击左下角的+号. 02 创建三个工作表. 03 以第二个工作表为例,鼠标双击左下角的sheet2选项. 04 然后输 ...

  • 如何在MS Excel 2016 创建数据透视表并添加字段

    创建空白数据透视表基于传统创建数据透视表的方法,通过这种方式创建的透视表,只是一个报表框架,需要我们手动添加字段和调整数据透视表的布局,不过这种方式更为灵活.下面就详细的告诉小伙伴们,如何在MS Ex ...

  • Excel怎么快速删除工作表中空白行

    Excel怎么快速删除工作表中空白行 1.启动Excel 2013并打开工作表,这张工作表中存在一些空行.在工作表中选择数据区域,在"开始"选项卡的"编辑"组中 ...