超級(jí)鏈接代碼（超鏈接代碼怎么寫）

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

(相關(guān)資料圖)

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

本例用到一個(gè)對(duì)象，Hyperlink。

超文本鏈接對(duì)象，和它的集合對(duì)象Hyperlinks。

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

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

Hyperlink對(duì)象方法和屬性如下圖所示：

添加收藏

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

方法：

ActiveWorkbook.AddToFavorites

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

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

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

其它參數(shù)可選。

語法：

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

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

其實(shí)這個(gè)功能還是十分簡單的，用到的比較實(shí)用。

具體代碼如下圖所示：

代碼：

創(chuàng)建超鏈接

PrivateSubCommandButton1_Click()DimRAsRange,RsAsRangeSetRs=ActiveSheet.Range("B4:B15")"定義創(chuàng)建超鏈接的定位標(biāo)記區(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

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

本例以Range對(duì)象作為超鏈接的定位標(biāo)記，實(shí)現(xiàn)在應(yīng)用中可能還會(huì)用到Shape定位，也就是說圖形對(duì)象定位。

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

以后再詳細(xì)介紹。

---END---

關(guān)鍵詞： 超級(jí)鏈接代碼 超鏈接代碼怎么寫