iT邦幫忙

DAY 30
2

Excel VBA 的眉眉角角系列 第 30

Excel VBA 的眉眉角角Day30:超連結與總結

很快的,30天的鐵人賽就要結束,今天整理了前29天的相關資料,原本想說交個Excel檔案了事就好了,就當作這29天的內容總結,但後來還是覺的要教些內容才有意思,既然整理資料,我想就順便教一下如何插入超連結到儲存格中,透過遍歷所有工作表後匯整一份超連結索引表,以便於快速切換。

程式的運作邏輯如下:

遍歷工作表我們之前就有教過,忘記的朋友也沒關係,等一下會再出現。透過遍歷後,對照存放索引的工作表是否有同名,同名則不放超連結,沒有同名,則透過Hyperlinks.Add方法來增加超連結。

程式內容如下:

Sub Day30_Hyperlinks()
    Dim objActSht As Object
    Set objActSht = ActiveSheet
    j = 0
    
    '清除A欄內容
    Columns(1).ClearContents
    
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> objActSht.Name Then
            j = j + 1
            objActSht.Hyperlinks.Add Anchor:=Range("A" & j), Address:="", SubAddress:= _
            Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
        End If
    Next i
End Sub

產生的連結如下:

直接點選連結即可跳到指定工作表。

以下檔案為這30天分享的程式碼,希望各位喜歡,對於有心學習Excel VBA的,可多參考,也歡迎各位提出建議,謝謝!

Excel_VBA的眉眉角角.xls


上一篇
Excel VBA 的眉眉角角Day29:如何抓取網路上的資料?以issuu.com為例
系列文
Excel VBA 的眉眉角角30
0
oxxo
iT邦研究生 2 級 ‧ 2014-10-22 19:35:00

感謝分享,很實用~ ^_^

0
Andy Chiu
iT邦研究生 3 級 ‧ 2014-10-22 23:23:49

多謝Oxxo兄指教! :)

0
z22344566
iT邦新手 5 級 ‧ 2017-03-24 16:38:16

真是太強了!

Andy Chiu iT邦研究生 3 級‧ 2017-03-24 21:22:04 檢舉

多謝指教!

最近在學習 VBA 花點時間 把30天都看完了
剩下的可能要請大師幫幫忙了 /images/emoticon/emoticon01.gif

Andy Chiu iT邦研究生 3 級‧ 2017-03-30 03:21:54 檢舉

哈哈,希望看完後您的功力大進!我還有篇Access VBA的,裡面有些東西可以共用:
http://ithelp.ithome.com.tw/users/20007221/ironman/1071
有問題可來訊切磋切磋 :)

我要留言

立即登入留言