Excel 自动根据Sheet名生成目录
来源:互联网 发布:网络资讯免费资讯 编辑:程序博客网 时间:2024/04/28 01:06
以下方法转载自网络,以便大家共享
打开你要创建,目录的表格按Alt+F11在谈出的对话框中点插入选择模块然后把下面的代码复制到模块中
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
复制完成后按F5运行即可,如果后期对表名做了修改,只需要重新F5运行刷新下目录即可。
- Excel 自动根据Sheet名生成目录
- Excel 自动根据Sheet名生成目录
- 生成Excel的Sheet目录
- [AHK]为excel生成sheet目录
- Excel自动生成目录
- Excel自动生成目录
- excel 将一个sheet分割成多个sheet,并生成目录
- Asp.net(C#)中自动获取Excel的Sheet名
- EXCEL 文档自动生成目录
- Excel-根据身份证号自动生成出生日期
- sybase 自动根据sql生成excel文件
- 根据目录将含有多个Sheet的Excel拆分成多个Excel
- 获得EXCEL的SHEET名
- Excel获取Sheet表名
- poi Excel根据列名生成多文件工具类
- 制作pdf文档书签,自动生成or根据目录生成
- 【VBA】 excel中通过VBA批量生成超链接,连接名为sheet页名
- excel自动转换为可印刷版式:目录的自动生成
- [leetCode]Single Number III
- SSM框架——使用MyBatis Generator自动创建代码
- poj 3255(次短路径)
- kaminari分页插件的使用
- App TransportSecurity has blocked a cleartext HTTP (http://)
- Excel 自动根据Sheet名生成目录
- html之插入外部资源
- mysql数据库优化小结
- video格式2016-1-6
- CEF Windows开发环境搭建
- 8张图理解Java
- SQL Server中行列转换 Pivot UnPivot
- 第二章 基本概念
- 求幂算法