文章目录[隐藏]

第一第二第三名

超链接代码(如何编写超链接代码)

第一

Excel中超链接的应用是一个非常简单的操作，直接使用插入菜单中的超链接功能即可。

下面是相应的vba代码如何实现，添加，删除，收藏超链接。

这个例子使用了一个对象，超链接。

超文本链接对象，及其集合对象超链接。

其实大部分vba都有单数和复数对象，分别代表一个和多个。

Hyperlinks是Hyperlink的复数，是单个超链接的集合。

Hyperlink对象的方法和属性如下图所示:

添加收藏夹

本文使用的是AddToFavorites，其功能是将超链接快捷方式添加到系统的收藏夹文件夹中。

方法:

ActiveWorkbook。添加收藏夹

第二

使用超链接创建超链接。添加方法。

参数如下图所示:

需要两个参数，定位标记，这是一个范围或形状对象，另一个参数，地址，是超链接地址。

其他参数是可选的。

语法:

超链接。添加(锚点、地址、子地址、屏幕提示、文本显示)

下面的示例将添加一本书的标题作为超链接文本，并将URL作为链接地址。

其实这个功能非常简单实用。

具体代码如下图所示:

第三名

代码:

创建超链接

Private Sub CommandButton1_Click()Dim R As Range, Rs As RangeSet Rs = ActiveSheet.Range(\"B4:B15\")\'定义创建超链接的定位标记区域For Each R In Rs'遍历超链接区域\''\' 添加超链接    Hyperlinks.Add anchor:=R, _Address:=R.Offset(0, 1),  _ScreenTip:=R.Offset(0, 2).Value,  _TextToDisplay:=R.ValueNext REnd Sub

删除超链接

Private Sub CommandButton2_Click()Dim R As Range, Rs As RangeSet Rs = ActiveSheet.Range("B4:B15")Rs.Hyperlinks.DeleteEnd Sub

Delete只有一个方法，没有参数，delete。

在这个例子中，Range对象被用作超链接的定位标记，在应用中也可能使用形状定位，也就是说图形对象定位。

比如地图作为定位的超链接，单位对应区域打开对应城市相关的文件或网页。

稍后我会详细解释。

-结束-

Tags： 标签1 标签2

文章版权声明：除非注明，否则均为供水知识-GONGSHUI.CC原创文章，转载或复制请以超链接形式并注明出处。