No.1
网页编程中,添加超链接是一个很基本的操作,在Excel中,同样也引入了超链接的一些方法。
使得程序可以访问不同的工作表或者网页。
可以提高Excel工作的交互性能。
下面介绍一下,如何使用VBA代码,实现在Excel单元格里添加超链接。
No.2
实现超链接功能,首先要有一个对象来进行承载这个方法。
这些对象包括就是Range、WorkSheet和Chart。
也就是说,在上述三个对象的属性里,都包含HyperLink对象。
换言之,这三个对象都可以实现超链接功能。
知道这一点之后,我们就可以有针对性地添加链接了。
No.3
添加超链接
方法:
Range.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
添加超链接用到的方法是HyperLinks的Add。
众所周知Add就是添加的意思,这里用到HyperLink的复数对象。
这个复数对象只有两个方法,一个添加,一个删除。
具体添加方法Add的参数可参考上图。
No.4
下面是以一个实际例子对HyperLink方法的解释。
上图表格两个按钮,一个按钮功能是将,C列链接添加到B列的文字作为链接地址。
另一个按钮是清楚链接对象,也就是删除链接。
例子十分简单,具体代码,看下图:
添加链接代码:
Private Sub AddLinks()Dim xR As Range, R As RangeSet 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 xREnd Sub
删除链接代码:
Private Sub DelLinks()Dim Hx As Object, Hitem As ObjectWith ActiveSheet.UsedRange Set Hx = .HyperlinksEnd WithFor Each Hitem In Hx With Hitem .Delete End WithNext HitemEnd Sub
No.5
本例中主要以Range对象来进行一个举例,另外在Chart和Worksheet对象中应用同样使用上述代码,更改一下链接对象就可以。
如:
Charts(1).Hyperlinks.add Range(\”A1\”),\”Http://www.toutiao.com\”
给第一个 Chart对象添加一个超链接,链接地址为\”Http://www.toutiao.com\”
具体在不同的表中应用,可具体设置,不做详细介绍了 。
希望这样的功能用起来更加便利。