微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
用一个简单的vba程序就可以了 alt+F11打开vba编辑器 然后 点插入-模块-再把代码粘贴到右边空白的地方 然后回到excel界面 按alt+F8 就会看到一个窗口 看到 创建目录 运行即可
Sub 创建目录() '关闭屏幕更新加快速度 Application.ScreenUpdating = False Dim i As Integer, Sht_Count '如果不存在“目录”则添加目录工作表 If Not IsSht("目录") Then Sheets.Add(Sheets(1)).Name = "目录" Sht_Count = Sheets.Count '获取工作表数量 For i = 2 To Sht_Count '遍历工作表 '在“目录”工作表添加链接 Sheets("目录").Hyperlinks.Add Anchor:=Sheets("目录").Cells(i - 1, 2), Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name, ScreenTip:="单击打开:" & Sheets(i).Name Next i '恢复屏幕更新 Application.ScreenUpdating = True '为返回目录过程指定快捷键为【Ctrl+J】 'Application.OnKey "^j", "返回目录" End Sub '声明一个函数,用于判断是否存在某个指定名称的工作表 Function IsSht(ShtName As String) On Error Resume Next Dim sht As Worksheet Set sht = Sheets(ShtName) IsSht = (Err = 0) End Function Sub 返回目录() '如果有目录则返回目录工作表 If IsSht("目录") Then Sheets("目录").Select End Sub