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

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

(相關資料圖)

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

本例用到一個對象，Hyperlink。

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

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

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

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

添加收藏

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

方法：

ActiveWorkbook.AddToFavorites

創(chuàng)建超鏈接使用Hyperlink.Add方法來實現(xiàn)。

參數(shù)如下圖所示：

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

其它參數(shù)可選。

語法：

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

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

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

具體代碼如下圖所示：

代碼：

創(chuàng)建超鏈接

PrivateSubCommandButton1_Click()DimRAsRange,RsAsRangeSetRs=ActiveSheet.Range("B4:B15")"定義創(chuàng)建超鏈接的定位標記區(qū)域ForEachRInRs"遍歷超鏈接區(qū)域"""添加超鏈接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

刪除只有一個方法，沒有參數(shù)，Delete。

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

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

以后再詳細介紹。

---END---

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