内容取自http://zhangpeeta.blog.sohu.com/128784050.html
具体方法如下
1,首先在excel文件的最前面追加一个sheet,命名为“目录”
2,按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
3,复制完成后按F5运行即可,如果后期对表名做了修改,只需要重新F5运行刷新下目录即可。
分享到:
相关推荐
excel自动生成目录-先建名称为目录的页签 excel自动生成目录-先建名称为目录的页签
excel也能实现自动生成目录 1、直接将程序复制过去,运行--用户子过程/用户窗体---搞定 2、Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中
可以自动生成文件夹所有目录文件链接。文件目录管理宏,选择文件夹自动创建该文件夹下面的所有文件及文件夹的目录(超链接),更换目录excel位置后只需要点更新即可。 注意:文件夹超过9层的多出来的不会显示。不...
自己做了一个用于Excel内部自动生成目录,通过目录调用同文件下其他的表格的“Excel启用宏的工作薄”文件,这是通过2010Excel做的。2007应该也能用,大家试试。内带有使用方法及Excel加强工具。
excel自动生成创建表语句,支持MySql,Oracle,SQLServer三种创建方式,自动生成目录文档,方便查看与管理。
excel 电子表格工作表自动生成工作表目录!
查找文件夹下文件,自动生成目录,即时打开链接
读取excel自动生成sql文的txt文件,解压后在同一目录下方可使用
EXCEL表做的,自动在文件夹内生成所有文件的文件目录。
基于Python实现Excel数据处理自动化生成Word文档(含索引目录 分页).zip
Office2007Word目录自动生成详细方法,提供一个实例帮助您快速理解
该工具可以将Windows操作系统下的目录结构自动生成,生成效果如博客所示https://blog.csdn.net/SeaLong_/article/details/108995079
自动生成文件夹目录树,方便使用EXCEL用户
可以自动生成任何文件夹的目录,不用一个一个慢慢查找,一眼就看出文件夹里面的资料名称,适合文件管理使用
excel自动生成二维码标签,QRmake.exe放入当前文件的目录下,自动调用读取数据。二维码的显示精度,显示精度越高辨识度越高,但读取时间较长
可以使用该EXCEL文件,开启宏以后自动导入目录中的txt文件,并生与目录名称相同的excel文件
Excel根据表格,生成sql语句 ,生成建表语句,自行到数据库中执行, 需要excel启用宏,按规则填充表格后可生成表格目录及生成sqlserver语句。
自动建立excel已有工作表名称汇总目录并超链接所有工作表
提取指定目录下的Excel和Word文件,生成Excel列表,并自动生成链接。 采用VS2010开发,需要DotNet2.0支持。 需要源码的请联系我,Q:78534014
作者王丽娟2006年 1 EXCEL 1 1.1 输入数据的注意事项 ...2.6.2 自动生成目录的操作 2.7 格式刷 2.8 查找替换 2.9 文档结构图 2.10 标题行重复 2.11 超链接 2.12 分节 2.13 奇偶页眉页脚 2.14 修改模板