2

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

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

谢谢

4

1 回答 1

3

如果您已对命名单元格进行了超链接，则将值从超链接源单元格复制到其目标的方法是：

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
于 2012-06-10T05:55:46.530 回答