显示超链接文本

Question

我正在尝试将超链接文本的值显示到另一个单元格中。例如，我有一列包含多个超链接，每个超链接都链接到其他工作表中的特定单元格。我希望每当有人点击超链接时，该值（文本）都会显示在我主工作表的另一个单元格中。

我尝试输入 getUrL 的 VBA，但它给出了我想要的结果。如果有人能提供解决方案，请告诉我。

Answer 1

可以使用 Private Sub Worksheet 函数 FollowHyperlink（即工作表中的 VBA 代码）来解决此问题，如下所示：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Sheets("MainSheet").Range("E2").Value = Selection.Value
    Sheets("MainSheet").Range("E3").Value = Target.SubAddress
    Sheets("MainSheet").Range("E4").Value = Target.Range
End Sub