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

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

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

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

代碼功能講解：

財(cái)務(wù)工作中，你是否遇到焦頭爛額不知如何解決的問題呢？

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

單元格選擇改變事件，也就是我們單擊不同的單元格就會(huì)觸發(fā)事件，目的是跳轉(zhuǎn)對應(yīng)工作表，以及隱藏其他無關(guān)的工作表。

顯示所有工作表

代碼如用法：

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

右鍵目錄工作表

單擊查看代碼

復(fù)制上面的代碼粘貼上去

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

用法如圖：

當(dāng)我們選中目錄表時(shí)，就會(huì)自動(dòng)把所有的工作表名提取到A列。

當(dāng)我們選中對應(yīng)A列的表名就會(huì)跳轉(zhuǎn)到對應(yīng)的表并自動(dòng)隱藏其他的表。

當(dāng)我們新增表，再回到目錄表時(shí)會(huì)自動(dòng)把新增的工作表名提取到A列中。

來源：貓哥 Excel教程自學(xué)平臺(tái)

在這里相信有許多想要學(xué)習(xí)會(huì)計(jì)的同學(xué)，大家可以關(guān)注小編頭條號(hào)，

下方評論區(qū)留言：想要學(xué)習(xí)，并收藏本文；私信小編：學(xué)習(xí)

即可領(lǐng)取一整套系統(tǒng)的會(huì)計(jì)學(xué)習(xí)資料！還可以免費(fèi)試學(xué)會(huì)計(jì)課程15天！

因領(lǐng)取人數(shù)太多，不能及時(shí)回復(fù)，請大家耐心等待。。。