超級鏈接代碼（超鏈接代碼怎么寫）

超鏈接在Excel中應用是一個很簡單的操作，直接在插入菜單里使用超鏈接功能就可以。

(相關資料圖)

這里介紹一下對應的vba代碼來如何實現，添加、刪除和收藏超鏈接功能。

本例用到一個對象，Hyperlink。

超文本鏈接對象，和它的集合對象Hyperlinks。

其實vba里大多數都有單數和復數的對象，分別表示一個和多個。

Hyperlinks就是Hyperlink的復數，是單個超鏈接的集合。

Hyperlink對象方法和屬性如下圖所示：

添加收藏

本文用到AddToFavorites，其功能是將超鏈接快捷方式添加到系統的收藏夾文件夾里。

方法：

ActiveWorkbook.AddToFavorites

創建超鏈接使用Hyperlink.Add方法來實現。

參數如下圖所示：

其中兩個參數是必須的，Anchor定位標記，這個要Range或Shape對象，另一個參數Address，超鏈接地址。

其它參數可選。

語法：

Hyperlinks.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

如下例子是將書名作為超鏈接文本，把網址作為鏈接地址進行添加。

其實這個功能還是十分簡單的，用到的比較實用。

具體代碼如下圖所示：

代碼：

創建超鏈接

PrivateSubCommandButton1_Click()DimRAsRange,RsAsRangeSetRs=ActiveSheet.Range("B4:B15")"定義創建超鏈接的定位標記區域ForEachRInRs"遍歷超鏈接區域"""添加超鏈接Hyperlinks.Addanchor:=R,_Address:=R.Offset(0,1),_ScreenTip:=R.Offset(0,2).Value,_TextToDisplay:=R.ValueNextREndSub

刪除超鏈接

PrivateSubCommandButton2_Click()DimRAsRange,RsAsRangeSetRs=ActiveSheet.Range("B4:B15")Rs.Hyperlinks.DeleteEndSub

刪除只有一個方法，沒有參數，Delete。

本例以Range對象作為超鏈接的定位標記，實現在應用中可能還會用到Shape定位，也就是說圖形對象定位。

比如以地圖為超鏈接的定位，單元相應區域打開相應城市相關連的文件或網頁等功能。

以后再詳細介紹。

---END---

關鍵詞： 超級鏈接代碼 超鏈接代碼怎么寫