Excel自动生成目录图解详细教程, 通过以下步骤,您可以使用按钮结合VBA代码获取Excel工作簿中的所有工作表并生成如下图所示的目录列表,您可以单击它。
步骤01:依次点击鼠标,打开VBA编程窗口。
Step02:如下图所示,双击新打开窗口左侧的Sheet1,在右侧窗口中输入代码(由step03提供)。
步骤03:复制在右侧窗口中输入的VBA代码,如下所示:
Option Explicit
Sub Create_TOC()
Dim wbBook As Workbook
Dim wsActive As Worksheet
Dim wsSheet As Worksheet
Dim lnRow As Long
Dim lnPages As Long
Dim lnCount As Long
Set wbBook=ActiveWorkbook
With Application
.DisplayAlerts=False
.ScreenUpdating=False
End With
'If the TOC sheet already exist delete it and add a new
'worksheet.
On Error Resume Next
With wbBook
. Worksheet (Table of Contents). Deleting
.Worksheets.Add Before:=.Worksheets(1)
End With
On Error GoTo 0
Set wsActive=wbBook.ActiveSheet
With wsActive。名称=目录
With .Range(A1:B1)。价值=VBA。数组(工作表名称,按#-#顺序排列的页数)
.Font.Bold=True
End With
End With
lnRow=2
lnCount=1
'Iterate through the worksheets in the workbook and create
'sheetnames, add hyperlink and count write the running number
'of pages to be printed for each sheet on the TOC sheet.
For Each wsSheet In wbBook.Worksheets
If wsSheet.Name wsActive.Name Then
wsSheet.Activate
With wsActive
.Hyperlinks.Add .Cells(lnRow, 1), _
SubAddress:=' wsSheet.Name '!A1, _
TextToDisplay:=wsSheet.Name
lnPages=wsSheet.PageSetup.Pages().Count
.Cells(lnRow, 2).Value=' lnCount - lnPages
End With
lnRow=lnRow + 1
lnCount=lnCount + 1
End If
Next wsSheet
wsActive.Activate
wsActive.Columns(A:B).EntireColumn.AutoFit
With Application
.DisplayAlerts=True
.ScreenUpdating=True
End With
End Sub
第04步:关闭打开的VBA编辑窗口,依次单击鼠标,在工作表的工作区拖动绘制后,会自动弹出指定的宏对话框。选择后,单击确定。
最后,单击按钮自动生成一个包含目录的新工作表
Excel自动生成目录图解详细教程,以上就是本文为您收集整理的Excel自动生成目录图解详细教程最新内容,希望能帮到您!更多相关内容欢迎关注。