如何零基础学习VBA——Hyperlink对象

Hyperlink对象是Excel VBA中用于表示一个单元格中的超链接。它包含了超链接的地址、名称和提示信息等信息，并可以通过代码来访问和修改这些属性。可以使用Hyperlink对象来自动添加、修改或删除单元格中的超链接。

以下是一个简单的示例代码，用于在单元格A1中添加一个超链接：

Sub AddHyperlink()
    Dim myRange As Range
    Set myRange = Range("A1")
    myRange.Hyperlinks.Add Anchor:=myRange, Address:="https://www.google.com", TextToDisplay:="Google"
End Sub

代码首先声明一个Range类型的变量myRange，用于表示要添加超链接的目标单元格。然后，使用Set语句将该变量设置为单元格A1所表示的范围。

接着，代码调用myRange对象的Hyperlinks属性，这将返回一个Hyperlinks集合对象。通过调用Add方法，可以向此集合中添加一个新的Hyperlink对象。

Add方法中的参数说明如下：

1、Anchor：必需，表示超链接要连接到的单元格或图形对象（例如Shape）。

2、Address：必需，表示要访问的URL或文件路径。

3、TextToDisplay：可选，表示在单元格中显示的超链接名称。如果未指定，则将使用Address参数中的URL或路径作为默认文本。

在本例中，Anchor参数使用变量myRange，这意味着超链接将连接到单元格A1。Address参数指定要访问的URL为 https://www.google.com，TextToDisplay参数指定在单元格中显示的文本为 "Google"。通过运行该代码，可以将名为“Google”的超链接添加到单元格A1中，单击该超链接将跳转至 https://www.google.com。

以下是一个包含Hyperlink对象所有可能用到的方法和属性的Excel VBA示例：

Sub Example()
    
    '声明变量
    Dim mySheet As Worksheet
    Dim myRange As Range
    Dim myHyperlink As Hyperlink
    
    '设置工作表
    Set mySheet = ThisWorkbook.Sheets("Sheet1")
    
    '设置单元格范围
    Set myRange = mySheet.Range("A1")
    
    '添加超链接
    Set myHyperlink = myRange.Hyperlinks.Add(Anchor:=myRange, Address:="https://www.google.com", TextToDisplay:="Google")
    
    '更改超链接的目标地址
    myHyperlink.Address = "https://www.bing.com"
    
    '设置超链接的显示名称
    myHyperlink.TextToDisplay = "Bing"
    
    '显示超链接的地址
    MsgBox myHyperlink.Address
    
    '判断超链接是否存在
    If myHyperlink.Parent Is Nothing Then
        MsgBox "超链接不存在"
    Else
        MsgBox "超链接存在于" & myHyperlink.Parent.Address & "单元格"
    End If
    
    '删除超链接
    myHyperlink.Delete
    
End Sub

该示例中包含以下操作：

1、声明了一个Worksheet类型的变量 mySheet，用于表示要添加超链接的工作表。

2、声明了一个Range类型的变量 myRange，用于表示要添加超链接的目标单元格范围。

3、添加了一个超链接，并将返回的Hyperlink对象赋值给myHyperlink变量。注意，可以通过链式结构来完成这一步骤，例如：mySheet.Range("A1").Hyperlinks.Add...。

4、使用myHyperlink对象的Address属性更改超链接的目标地址。

5、使用myHyperlink对象的TextToDisplay属性设置超链接的显示名称。

6、使用myHyperlink对象的Parent属性获取包含超链接的单元格范围，并通过其Address属性显示超链接所在的单元格地址。

7、使用myHyperlink对象的Delete方法删除超链接。

下面再提供一个实例，其中包含了Hyperlink对象的一些其他属性和方法：

Sub Example2()
    
    '声明变量
    Dim mySheet As Worksheet
    Dim myRange As Range
    Dim myHyperlink As Hyperlink
    
    '设置工作表
    Set mySheet = ThisWorkbook.Sheets("Sheet1")
    
    '设置单元格范围
    Set myRange = mySheet.Range("A2")
    
    '添加超链接
    Set myHyperlink = myRange.Hyperlinks.Add(Anchor:=myRange, Address:="https://www.microsoft.com", TextToDisplay:="Microsoft")
    
    '调整超链接的颜色和样式
    myHyperlink.Range.Font.ColorIndex = 3 '将字体颜色设为红色
    myHyperlink.Range.Font.Bold = True '将文字加粗
    
    '判断超链接是否已经访问过，并在访问后标记为已访问
    If Not myHyperlink.Parent.Hyperlinks(1).SubAddress = "" Then
        myHyperlink.Parent.Hyperlinks(1).Follow
        myHyperlink.Range.Font.FontStyle = "Strikethrough"
    End If
    
    '设置超链接鼠标悬停时的提示信息
    myHyperlink.ScreenTip = "这是一个指向 Microsoft 官网的超链接"
    
End Sub

该示例中包括以下功能：

1、通过 myHyperlink.Range.Font 属性可以更改超链接上显示文字的字体颜色、大小、样式等属性，在本例中对字体颜色和字体加粗属性进行了改变。

2、在前一个示例中我们使用了 myHyperlink.Parent 获取指向包含超链接的单元格的引用，但是有可能一个单元格中存在多个超链接，因此通过在 myHyperlink.Parent 后加上 .Hyperlinks(1) 来获取指定编号的超链接。在本例中判断了该超链接是否为空，如果已经被访问过，则将其文字加上删除线。

3、使用 myHyperlink.ScreenTip 属性可以设置鼠标悬停在超链接上时显示的提示信息。该属性对于需要提供更多信息的超链接非常有用。

需要注意的是，在真实情况下使用超链接时，建议适度食用，并结合工作表保护等措施来避免恶意修改超链接地址等情况。