【Excel VBA】超連結回首頁

VBA超連結回首頁

前一篇有介紹到VBA設立超連結至各個工作表，那要怎麼再將各個工作表設立超連結回首頁呢？

如以下超連結至「9月」工作表後，沒有可以往返回「超連結」工作表。

輸入巨集

※輸入以下指令※

Sub 超連結至各個工作表()
For i = 2 To Worksheets.Count
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(1, 7), _
Address:="", _
SubAddress:="'" & Worksheets(1).Name & "'!A1", _
TextToDisplay:="<回首頁>"
Next i
End Sub

執行巨集

點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。

執行後則於「G1」儲存格建立「<回首頁>」超連結。

點選後則返回首頁-「超連結」工作表。

語法說明

For i = 2 To Worksheets.Count
‘使用For迴圈，i從2開始直到工作表數量
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(1, 7), _
‘第「i」個工作表插入超連結至第「i」個工作表之第「1」列第「7」欄儲存格
Address:=””, _
‘超連結的位址，輸入空值則表示沒有特別指向到網址或是檔案路徑，即仍於本活頁簿內。
SubAddress:=”‘” & Worksheets(1).Name & “‘!A1”, _
‘超連結目標， 第1個工作表的 「A1」儲存格
TextToDisplay:=”<回首頁>”
‘顯示的超連結文字，則將超連結文字顯示成「<回首頁>」。

其他文章分享