導讀在工作中我們常常遇到在一個工作簿中工作表太多，不好管理的情況，這個時候我們就會想要是有個目錄，并且可以超鏈接一點就過去就好了。因此以下功能代碼孕育而生。Pr....

在工作中我們常常遇到在一個工作簿中工作表太多，不好管理的情況，這個時候我們就會想要是有個目錄，并且可以超鏈接一點就過去就好了。

因此以下功能代碼孕育而生。

Private Sub Worksheet_Activate()

On Error Resume Next

Sheets("目錄").Range("A1") = "目錄"

k = 1

For Each sh In Sheets

If sh.Name <> "目錄" Then

k = k 1

Sheets("目錄").Cells(k, 1) = sh.Name

End If

Next

Sheets("目錄").Range("A:A").EntireColumn.AutoFit

Sheets("目錄").Range("A:A").EntireColumn.HorizontalAlignment = xlCenter

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim sht As Worksheet

On Error Resume Next

If Target.Address = "$D$1" Then

Call ShowSheet

Exit Sub

End If

If Target.Row < 2 Or Target.Column > 1 Then Exit Sub

For Each sht In Worksheets

If sht.Name <> "目錄" Then sht.Visible = xlSheetVeryHidden

Next

Sheets(Target.Value).Visible = xlSheetVisible

Sheets(Target.Value).Select

End Sub

Sub ShowSheet()

Dim sh As Worksheet

For Each sh In Sheets

sh.Visible = -1

Next

End Sub

代碼功能講解：

財務工作中，你是否遇到焦頭爛額不知如何解決的問題呢？

目錄工作表激活事件，目的提取工作表名。

單元格選擇改變事件，也就是我們單擊不同的單元格就會觸發事件，目的是跳轉對應工作表，以及隱藏其他無關的工作表。

顯示所有工作表

代碼如用法：

工作薄中新建一工作表取名為目錄，

右鍵目錄工作表

單擊查看代碼

復制上面的代碼粘貼上去

特別提醒注意：工作簿另存為后綴名.xlsm，啟用宏。

用法如圖：

當我們選中目錄表時，就會自動把所有的工作表名提取到A列。

當我們選中對應A列的表名就會跳轉到對應的表并自動隱藏其他的表。

當我們新增表，再回到目錄表時會自動把新增的工作表名提取到A列中。

來源：貓哥 Excel教程自學平臺

在這里相信有許多想要學習會計的同學，大家可以關注小編頭條號，

下方評論區留言：想要學習，并收藏本文；私信小編：學習

即可領取一整套系統的會計學習資料！還可以免費試學會計課程15天！

因領取人數太多，不能及時回復，請大家耐心等待。。。