1. 首頁 > 生活百科 > >

怎么添加超鏈接 Excel添加超鏈接詳細教程

生活百科

No.1網頁編程中 ， 添加超鏈接是一個很基本的操作 ， 在Excel中 ， 同樣也引入了超鏈接的一些方法 。
使得程序可以訪問不同的工作表或者網頁 。
可以提高Excel工作的交互性能 。

怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
下面介紹一下 ， 如何使用VBA代碼 ， 實現在Excel單元格里添加超鏈接 。
No.2實現超鏈接功能 ， 首先要有一個對象來進行承載這個方法 。
這些對象包括就是Range、WorkSheet和Chart 。
也就是說 ， 在上述三個對象的屬性里 ， 都包含HyperLink對象 。
換言之 ， 這三個對象都可以實現超鏈接功能 。
知道這一點之后 ， 我們就可以有針對性地添加鏈接了 。
No.3添加超鏈接
方法：
Range.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
添加超鏈接用到的方法是HyperLinks的Add 。
眾所周知Add就是添加的意思 ， 這里用到HyperLink的復數對象 。
這個復數對象只有兩個方法 ， 一個添加 ， 一個刪除 。
具體添加方法Add的參數可參考上圖 。
No.4下面是以一個實際例子對HyperLink方法的解釋 。
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
上圖表格兩個按鈕 ， 一個按鈕功能是將 ， C列鏈接添加到B列的文字作為鏈接地址 。
另一個按鈕是清楚鏈接對象 ， 也就是刪除鏈接 。
例子十分簡單 ， 具體代碼 ， 看下圖：
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
怎么添加超鏈接 Excel添加超鏈接詳細教程

文章插圖
添加鏈接代碼：
Private Sub AddLinks()Dim xR As Range, R As RangeSet R = Range(\"B2:B\" & Range(\"B65535\").End(xlUp).Row)\'定義鏈接區域For Each xR In RWith xR\'添加鏈接.Hyperlinks.Add anchor:=xR, _Address:=VBA.UCase(xR.Offset(0, 1).Value), _ScreenTip:=VBA.UCase(xR.Offset(0, 1).Value), _TextToDisplay:=VBA.UCase(xR.Value)End WithNext xREnd Sub【怎么添加超鏈接 Excel添加超鏈接詳細教程】刪除鏈接代碼：
Private Sub DelLinks()Dim Hx As Object, Hitem As ObjectWith ActiveSheet.UsedRangeSet Hx = .HyperlinksEnd WithFor Each Hitem In HxWith Hitem.DeleteEnd WithNext HitemEnd SubNo.5本例中主要以Range對象來進行一個舉例 ， 另外在Chart和Worksheet對象中應用同樣使用上述代碼 ， 更改一下鏈接對象就可以 。
如：
Charts(1).Hyperlinks.add Range(\”A1\”),\”Http://www.toutiao.com\”
給第一個 Chart對象添加一個超鏈接 ， 鏈接地址為\”Http://www.toutiao.com\”
具體在不同的表中應用 ， 可具體設置 ， 不做詳細介紹了。
希望這樣的功能用起來更加便利 。

    推薦閱讀