热re99久久精品国产99热-热re99久久精品国99热-热re99久久国产精品-热re91久久精品国产91热-热er99久久6国产精品免费-热99这里只有精品

您當前的位置 :環球傳媒網>科技 > 正文
今日快訊:超鏈接代碼怎么寫?
2022-06-30 09:53:07 來源:環球信息網 編輯:

超級鏈接代碼(超鏈接代碼怎么寫)

No.1

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


(相關資料圖)

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

本例用到一個對象,Hyperlink。

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

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

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

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

添加收藏

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

方法:

ActiveWorkbook.AddToFavorites

No.2

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

參數如下圖所示:

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

其它參數可選。

語法:

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

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

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

具體代碼如下圖所示:

No.3

代碼:

創建超鏈接

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---

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

相關閱讀
分享到:
版權和免責申明

凡注有"環球傳媒網"或電頭為"環球傳媒網"的稿件,均為環球傳媒網獨家版權所有,未經許可不得轉載或鏡像;授權轉載必須注明來源為"環球傳媒網",并保留"環球傳媒網"的電頭。

Copyright ? 1999-2017 cqtimes.cn All Rights Reserved 環球傳媒網-重新發現生活版權所有 聯系郵箱:8553 591@qq.com
主站蜘蛛池模板: 国产剧情在线播放 | 国产一区风间由美在线观看 | 亚洲视频1区 | 日本www色视频成人免费 | 风间由美被义子中文字幕 | 十大免费批日的软件 | 午夜大片在线观看 | 我被黑人彻底征服的全文 | 日本公与妇中文在线 | 国产一级视频在线观看 | 97精品国产自在现线免费 | 国产色综合久久五月色婷婷中文 | 男人把大ji巴放进男人免费视频 | 免费特黄一级欧美大片 | 亚久久伊人精品青青草原2020 | 国产午夜亚洲精品理论片不卡 | 美女扒开腿让男生桶爽漫画 | 好吊日在线| 深夜在线观看 | 草草视频免费看 | 边摸边吃奶边做爽gif动态图 | japanese乱子mate| cosplay 极品videos| 国产喂奶300部 | 边吃胸边膜下刺激免费男对女 | 午夜人妻理论片天堂影院 | 日本不卡在线一区二区三区视频 | 亚洲色图中文字幕 | 亚洲不卡高清免v无码屋 | 免费理伦片高清在线 | 男人狂躁女人下面的视频免费 | 嗯啊好爽视频 | 欧美三级不卡视频 | 国产高清不卡视频在线播放 | 97菊爱网 | 成人国产午夜在线视频 | 天天躁天天碰天天看 | 免费被靠视频动漫 | 久久99影院 | 韩国免费特一级毛片 | 日本中文字幕在线视频 |