Excel目录创建

一、建立目录工作表:在工作簿中新建一个工作表,工作表标签更改为"目录"。

二、自定义名称:选中B1单元格,点击【公式选项卡,单击【定义名称】按钮,以弹出的【新建名称】窗口中,名称框输入:目录,引用位置框输入公式:=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())

点击【确定】按钮返回编辑区。

三、创建目录:在B1单元格输入公式:

=IFERROR(HYPERLINK(目录&"!A1",MID(目录,FIND("]",目录)+1,99)),"")

拖动填充柄向下复制公式,工作表目录就做好了,可以点击目录自动跳转到相应的工作表,新建或删除工作表,目录自动更改。

四、制作返回目录链接:选中除目录外的一个工作表,在A1单元格输入:返回,然后鼠标右键单击A1单元格,在弹出的菜单中选择【链接】,链接到选择【本文档中的位置】,选择一个位置点击【目录】,点击【确定】按钮,然后复制A1单元格,选择其他所有工作表,粘贴就搞定了

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
您可以使用VBA宏编写一个自动创建Sheet目录的功能。以下是一个示例的VBA代码: ```vba Sub CreateSheetIndex() Dim IndexSheet As Worksheet Dim ws As Worksheet Dim i As Integer '创建一个新的Sheet作为目录 Set IndexSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) IndexSheet.Name = "目录" '在目录Sheet中添加标题 IndexSheet.Range("A1").Value = "Sheet目录" '循环遍历所有Sheet,添加链接到目录Sheet For i = 1 To ThisWorkbook.Sheets.Count - 1 Set ws = ThisWorkbook.Sheets(i) IndexSheet.Hyperlinks.Add Anchor:=IndexSheet.Cells(i + 2, 1), _ Address:="", _ SubAddress:="'" & ws.Name & "'!A1", _ TextToDisplay:=ws.Name Next i '设置目录格式 IndexSheet.Columns("A").AutoFit IndexSheet.Rows(1).Font.Bold = True '切换到第一个Sheet ThisWorkbook.Sheets(1).Activate MsgBox "已成功创建Sheet目录!", vbInformation End Sub ``` 您可以按照以下步骤使用上述VBA代码: 1. 打开Excel文件并按下`Alt + F11`打开VBA编辑器。 2. 在VBA编辑器中,选择`插入` -> `模块`,然后将上述代码复制粘贴到模块中。 3. 关闭VBA编辑器。 4. 按下`Alt + F8`打开宏对话框。 5. 选择`CreateSheetIndex`并点击`运行`按钮。 6. 自动创建的Sheet目录将会在最后一个Sheet后面添加,并且会自动设置好链接。 请注意,此VBA代码将不会在目录Sheet中自动更新Sheet的名称变化,如果您后续添加或删除了Sheet,需要重新运行宏来更新目录

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值