【Excel】一鍵生成帶超連結的工作表目錄

一個Excel工作簿，可能包含多個工作表；這時我們就希望能有一個工作表目錄，一方面，可以縱覽簿裡有多少表、都是什麼名字，另一方面，也可以通過超連結快速查看相關工作表的內容。

那麼說起製作工作表目錄來，您首先想到的是什麼？

函數？

厲害！不愧是擁有函數神技的辦公能手。

不過，一般情況下，我們可以使用Excel自帶的工作表目錄功能。

如上操作動畫所示，右鍵單擊工作表左下角的兩個小三角及之間的區域，Excel就會彈出一個類似工作表目錄的界面；單擊界面上的相應表名可以激活對應的工作表。

是不是很方便呢？                            

但有些時候，Excel自帶的這個工作表目錄界面就有些不方便了。

工作表很多時，它的界面太小，一頁放不下，查看起來明顯就很不方便；另外它也不夠美觀，製作Excel模版時，給別人用起來又有點奇怪。別人問你，大哥，你做的 Excel模版，我想找某個工作表，好難啊。你回說：兄弟，你點這裡，點那樣，這樣那樣……嗯嗯，What are you 懂？……相信我，你解釋了半天，但結果，聽的人很可能一臉懵逼。

所以還得使用函數製作工作表目錄？

——NO！

函數雖好，但需要用到宏表函數，還得定義名稱，確實有點繞了。

打個響指，請看大標題——我們今天分享的是一鍵生成帶超連結的工作表目錄。

請看操作過程動畫：

動畫中所複製的代碼如下：

Sub ml()
    Dim sht As Worksheet, i&, shtname$
    Columns(1).ClearContents
   '清空A列數據
    Cells(1, 1) = "目錄"
   '第一個單元格寫入字符串"目錄"
    i = 1
   '將i的初值設置為1.
    For Each sht In Worksheets
       '循環當前工作簿的每個工作表
        shtname = sht.Name
        If shtname <> ActiveSheet.Name Then
       '如果sht的名稱不是當前工作表的名稱則開始在當前工作表建立超連結
            i = i + 1
           '累加i
           ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="",SubAddress:="'" & shtname & "'!a1",TextToDisplay:=shtname
           '建超連結
        End If
    Next
End Sub

醬紫是不是很有趣？

如果想【目錄】美觀，可以選擇【圖形和形狀】來作為宏代碼運行的按鈕，當然也可以對目錄內容所在單元格做相應的美化處理。

最後補充一點代碼說明：

小代碼裡用到了Hyperlinks.Add語句，這裡用一個圖片來解釋它的每個參數。

如果你覺得有用，就分享給朋友們看看吧~

想要學習Excel函數公式快速入門的小夥伴，

趕快長按掃碼

來報名學習《Excel函數公式啟蒙課程》吧！

投稿、提問郵箱：[e-mail]