Question

我在单元格中有一个值，当我双击它时，它会将我带到命名范围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

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

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

谢谢

Answer 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

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

1 个答案: