首页 > 新闻资讯

超链接代码怎么写(超级链接代码)

超级链接代码(超链接代码怎么写)

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—

原文标题:超链接代码怎么写(超级链接代码),如若转载,请注明出处:https://www.dnheimuer.com/news/15696.html
免责声明:此资讯系转载自合作媒体或互联网其它网站,「东宁黑木耳网」登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,文章内容仅供参考。