今天來談談目錄製作,其實,往期談了不少,但是實戰過程中,我更多的是寫成自動管理的,因為普通的方式太麻煩
進入正題:直接開始寫代碼
1、進入VBE
進入VBE的方法有很多,這裡使用快捷鍵:ALT+F11,進入VBE
更多方法參考:番外篇-EXCEL如何使用宏(VBA)
雙擊 目錄 對應的 Sheet1

2、寫入自動生成目錄的代碼
效果演示,新增刪除表名,點擊目錄後自動更新
新增星期日,激活目錄表法,發現同步更新
大家可以自行刪除測試,完全OK


源碼:
'激活工作表事件
'激活工作表,寫入除目錄外所有表名
'作者:EXCELl辦公實戰小易
'------------------------------------------
Private Sub Worksheet_Activate()
Cells.Clear '清空全部內容
[A1:B1] = [{"序號","表名"}] '表頭
Dim i As Long, n As Long: n = 1
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name <> "目錄" Then
n = n + 1
Cells(n, 1) = n - 1
Cells(n, 2) = Sheets(i).Name
End If
Next
3、雙擊跳轉到對應的工作表


'雙擊表名單元格,跳轉到對應工作表
'作者;EXCEL辦公實戰-小易
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge > 1 Then End '選擇多個單元格無效
'第二行開始且是第二列開始生效
'on error resume next
If Target.Row > 1 And Target.Column = 2 Then
Sheets(Target.Value).Activate
End If
End Sub
4、快速返回目錄
有老鐵問我,那怎麼高效返回目錄,送一招
這裡我們利用的是定義名稱,要點選擇目錄中的任意單元格
輸入 返回目錄,ctrl+enter錄入
在任何表中,選擇返回目錄,即可快速跳轉到目錄
關注小編,下次精彩不明迷路
--THE END--