Worksheet_FollowHyperlink - 获取超链接所在的单元格值答案

【问题标题】：Worksheet_FollowHyperlink - get the cell value in which the hyperlink is locatedWorksheet_FollowHyperlink - 获取超链接所在的单元格值
【发布时间】：2012-06-10 05:36:48
【问题描述】：

我在一个单元格中有一个值，当我双击它时，它会将我带到命名范围 Account_Number（位于另一个工作表上）并更新该值。

我的问题是我想修改下面的代码，以便它可以与 Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 事件一起使用。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If (ActiveCell.Column = 23 And Not ActiveCell.Value = "") Then   
    [Account_Number] = ActiveCell.Value
    Application.GoTo Reference:=[Account_Number]
End If

End Sub

我想在包含值 4111 的单元格 J9 中放置一个超链接，当我单击超链接时，它会将我带到另一个工作表中的命名范围并将命名范围的值更新为 4111。

我不确定如何将值动态分配给命名范围。有人可以告诉我这是否可行以及代码应该是什么？

谢谢

【问题讨论】：

标签： excel vba

【解决方案1】：

如果您已经创建了指向命名单元格的超链接，则将值从超链接源单元格复制到其目标的方法是：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveCell.Value = Target.Parent.Value
End Sub

您可能只想将此应用于特定命名单元格的超链接，例如：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  If Target.SubAddress = "Account_Number" Then
    ActiveCell.Value = Target.Parent.Value
  End If
End Sub

【讨论】：