VBA超連結至各個工作表
Excel有沒有什麼方式可以快速設立超連結至各個工作表？如想設立超連結至工作表1月~12月。
以下帶你使用VBA超連結至各個工作表。
輸入巨集
※輸入以下指令※
Sub 超連結至各個工作表()
Worksheets.Add before:=Worksheets(1)
ActiveSheet.Name = "超連結"
For i = 2 To Worksheets.Count
Worksheets("超連結").Hyperlinks.Add Anchor:=Cells(i - 1, 1), _
Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
TextToDisplay:=Worksheets(i).Name
Next
End Sub
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則建立「超連結」工作表，並於A1儲存格向下依序設立超連結至各個工作表。
如點選超連結-9月工作表，則快速切換至「9月」工作表
語法說明
Worksheets.Add before:=Worksheets(1)
‘插入工作表至第一個工作表前面，也就是插入工作表至第一個。
ActiveSheet.Name = “超連結”
‘將插入的工作表命名為「超連結」。
For i = 2 To Worksheets.Count
‘使用For迴圈，i從2開始直到工作表數量
Worksheets(“超連結”).Hyperlinks.Add Anchor:=Cells(i – 1, 1)
‘插入超連結至儲存格第「i – 1」列第「1」欄
Address:=””, _
‘超連結的位址，輸入空值則表示沒有特別指向到網址或是檔案路徑，即仍於本活頁簿內。
SubAddress:=”‘” & Worksheets(i).Name & “‘!A1”, _
‘超連結目標， 第「i」個工作表的 「A1」儲存格，也就是建立超連結從第二個工作表到最後一個工作表
TextToDisplay:=Worksheets(i).Name
‘顯示的超連結文字，則將超連結文字顯示成工作表名稱。
