ExcelVBA给单元格添加超链接,Excel制作超链接教程

网页编程中,添加超链接是一个很基本的操作,在Excel中,同样也引入了超链接的一些方法。

使得程序可以访问不同的工作表或者网页。

可以提高Excel工作的交互性能。

ExcelVBA给单元格添加超链接,Excel制作超链接教程

下面介绍一下,如何使用VBA代码,实现在Excel单元格里添加超链接。

No.2

实现超链接功能,首先要有一个对象来进行承载这个方法。

这些对象包括就是Range、WorkSheet和Chart。

也就是说,在上述三个对象的属性里,都包含HyperLink对象。

换言之,这三个对象都可以实现超链接功能。

知道这一点之后,我们就可以有针对性地添加链接了。

No.3

添加超链接

方法:

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

ExcelVBA给单元格添加超链接,Excel制作超链接教程

添加超链接用到的方法是HyperLinks的Add。

众所周知Add就是添加的意思,这里用到HyperLink的复数对象。

这个复数对象只有两个方法,一个添加,一个删除。

具体添加方法Add的参数可参考上图。

No.4

下面是以一个实际例子对HyperLink方法的解释。

ExcelVBA给单元格添加超链接,Excel制作超链接教程

上图表格两个按钮,一个按钮功能是将,C列链接添加到B列的文字作为链接地址。

另一个按钮是清楚链接对象,也就是删除链接。

例子十分简单,具体代码,看下图:

ExcelVBA给单元格添加超链接,Excel制作超链接教程

添加链接代码:

Private Sub AddLinks() Dim xR As Range, R As Range Set R = Range(“B2:B” & Range(“B65535”).End(xlUp).Row) ‘定义链接区域 For Each xR In R With 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 With Next xR End Sub

删除链接代码:

Private Sub DelLinks() Dim Hx As Object, Hitem As Object With ActiveSheet.UsedRange Set Hx = .Hyperlinks End With For Each Hitem In Hx With Hitem .Delete End With Next Hitem End Sub

 

本文来自作者:博文微金融,不代表小新网立场!

转载请注明:https://www.xiaoxinys.cn/191353.html

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请联系我们举报,一经查实,本站将立刻删除。