1号

添加超链接是网页编程中非常基本的操作。在Excel中，还介绍了超链接的一些方法。

使程序能够访问不同的工作表或网页。

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

下面是如何使用VBA代码向Excel单元格添加超链接。

2号

要实现超链接功能，必须有一个对象来承载这个方法。

这些对象包括范围、工作表和图表。

也就是说，以上三个对象的属性都包含超链接对象。

换句话说，这三个对象都可以实现超链接功能。

了解了这些，我们就可以有针对性的添加链接了。

3号

添加超链接

方法:

范围。Add(锚点、地址、子地址、屏幕提示、文本显示)

用于添加超链接的方法是添加超链接。

众所周知，Add就是添加的意思，这里用的是超链接的复数宾语。

这个复杂的对象只有两个方法，一个是添加，一个是删除。

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

4号

下面用一个实际的例子来说明超链接的方法。

上表有两个按钮。一个按钮的功能是将列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

5号

在此示例中，Range对象用作示例。此外，上述代码还用于图表和工作表对象的应用。只需更改链接的对象。

例如:

图表(1).Hyperlinks.add Range("A1 ")，" Http://www.toutiao.com"

向第一个图表对象添加超链接，链接地址为“Http://www . toutiao . com” 。

不同表格的具体应用可以具体设置，不详细介绍了。

希望这个功能用起来更方便。