VBA获取单击超链接的单元格的值

在Excel VBA中，要在单击超链接时获取单元格的值，请按照以下步骤操作：

首先，在工作表中添加一个超链接。例如，可以在A1单元格中插入一个指向B1单元格的超链接。
在VBA编辑器中，打开工作表的事件处理程序。可以通过双击工作表选项卡（如“Sheet1”）进入事件处理程序。
在工作表的事件处理程序中，添加以下代码：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim hyperlinkCell As Range
    Dim targetCell As Range
    
    ' 检查超链接是否指向当前工作表的单元格
    If Target.Range.Address = "" Then Exit Sub
    
    Set hyperlinkCell = Target.Range
    Set targetCell = ThisWorkbook.Worksheets(Target.Parent.Name).Range(Target.Address)
    
    ' 在此处处理所需的操作，例如将超链接单元格的值复制到其他单元格
    MsgBox "您单击的超链接单元格 " & hyperlinkCell.Address & " 的值为: " & targetCell.Value
End Sub

这段代码会在单击工作表中的任何超链接时触发Worksheet_FollowHyperlink事件。它会检查超链接是否指向当前工作表的单元格，如果是，则获取目标单元格的值并显示一个消息框。您可以自定义此代码以执行所需的操作，例如将值复制到其他单元格。