Office Excel
目录自动生成宏设置方式
王铭阳
2018/5/28
优点：当工作表数量较多时，由于office Excel存在的缺陷，不能很自如地立刻跳到偏后不在视野内想要打开的工作表，设置目录，把所有用超链接的方式放进目录表，只要点击目录的相应链接，可以直接打开后面的工作表。
缺点：由于office Excel的缺陷与功能不足，跳到工作表后，如果不设置返回链接，就跳不回目录，也没有快捷键能返回到sheet目录。凡是返回链接，必定会在后面每一个工作表都要占用一个单元格，就很麻烦
另外，office的Excel可以说，工作表切换设置很蠢，虽然很多地方很蠢，但是工作需要不得不用。
按省略号只能一张一张表前后移动
同样的，WPS已经做出优化，点击省略号会给出选择框，然后滚轮能快速移动到要打开的工作表视野。
下面说，目录如何设置
首先要建新宏
打开你要作为目录表的表格，一般放sheet1位置，随便按个单元格，
按下组合快捷键 Alt+F11
在弹出的对话框中点插入模块
然后把下面的代码复制到模块中
复制完成后按F5运行即可，如果后期对表名做了修改，只需要重新F5运行刷新下目录即可。
另外，可以将宏导出成文件
在其他工作簿，可以导入，然后直接调用
宏编写完成后，在宏功能这儿，也会自动生成，可以按执行来执行宏
下列是他人设计的宏目录生成程序，虽然有缺陷，不过也还不错，将就用吧
程序可以先复制到TXT文档，再复制到宏模块
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 = "正在生成目录…………请等待！"
excel自动生成排名 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
下面是宏文件，可以直接导入调用
真心希望，office Excel 很多地方作出改善，实在是不方便的地方太多了，而且也不是人人学过宏编辑，很多其实很常用的功能都实现不了，比如WPS有的
滑条用滚轮滚动来左右移动，office就没这便利功能，心酸。
不明白为啥公司非要用office的表格写周报，真是麻烦。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论