2024年5月8日发(作者:)
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 =
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Updating = 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(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Bar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
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
. = True
.ndex = 34
End With
Bar = False
Updating = True
Tuichu:
End Sub
下面是宏文件,可以直接导入调用
Excel目录宏.bas
真心希望,office Excel 很多地方作出改善,实在是不方便的地方太多了,而且也不是人人学过宏编辑,很多
其实很常用的功能都实现不了,比如WPS有的
滑条用滚轮滚动来左右移动,office就没这便利功能,心酸。
不明白为啥公司非要用office的表格写周报,真是麻烦。
发布评论