运用宏自动生成Excel目录.docVIP

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 = 正在生成目录…………请等待！ ??? 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就没这便利功能，心酸。 不明