excel换行同一个格子里面怎么操作?可为单元格设置自动换行,同时调整单元格大小,让单元格内的排版更美观。excel换行快捷键ctrl加什么?excel换行快捷键是ctrl+enter,适合用于自定义......
2022-08-30 212 excel换行 excel换行快捷键
通过下方步骤使用按钮结合VBA代码可以将Excel工作簿里面的所有工作表获取并生成如下图所示目录列表,并且可以单击。
Step01:鼠标依次单击【开发工具】——【Visual Basic】,打开VBA编程窗口
Step02:如下图所示,再新打开的窗口左侧双击Sheet1,右侧窗口输入代码(step03提供)。
Step03:右侧窗口复制输入的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
.Worksheets("目录").Delete
.Worksheets.Add Before:=.Worksheets(1)
End With
On Error GoTo 0
Set wsActive = wbBook.ActiveSheet
With wsActive
.Name = "目录"
With .Range("A1:B1")
.Value = VBA.Array("工作表名称", "顺序 # - # 包含多少页")
.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
Step04:关闭打开的VBA编辑窗口,鼠标依次单击【开发工具】——【插入】——【按钮】,工作表格的工作区拖动绘制后会自动弹出“指定宏”对话框,选择后,单击确定按钮即可。
最后,单击按钮即可自动生成一个新的并且带目录的工作表
标签: Excel自动生成目录
相关文章
excel换行同一个格子里面怎么操作?可为单元格设置自动换行,同时调整单元格大小,让单元格内的排版更美观。excel换行快捷键ctrl加什么?excel换行快捷键是ctrl+enter,适合用于自定义......
2022-08-30 212 excel换行 excel换行快捷键
PPT放映时,用鼠标点击切换幻灯片确实有利于演讲者的演讲,但是偶尔我们也需要自动放映幻灯片以增强演讲效果,那么ppt自动放映在哪里设置呢? ppt自动放映在哪里设置 1、打开PPT演......
2023-07-24 224 ppt自动放映
有时候我们安装了WPS与office两个办公软件时,打开excel表格或word文档时会默认用office打开, 但是我们如果是想默认用wps打开excel表格与word文档该如何设置呢? 下面我就教大家如何设置. 第一......
2022-08-10 414 wps设置成默认软件
简介:双行合一就是一行中输入两行文字,常用于政府两个部门共同发文。如图所示 步骤: 1.打开word文档,输入教育部 财政部 2.选中文字,点击段落组的中文版式图标,如图所示 3.点......
2023-05-12 385 Word实现双行合一
本篇文章主要介绍的是在 Excel 中, 可以通过多种方式筛选唯一值, 或删除重复值: 筛选唯一值 请单击 数据 排序 筛选 高级。 选中需要进行筛选的目标数据列 点击【数据】菜单栏 点击【......
2023-09-11 215 excel教程