超级链接代码（超链接代码怎么写）
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—
