Worksheet_FollowHyperlink - 獲取超鏈接所在的單元格值

Question

我在單元格中有一個值，當我雙擊它時，它將帶我到名稱範圍Account_Number（駐留在另一個工作表上）並更新值。

我的問題是我想調整我的代碼，以便Worksheet_FollowHyperlink（ByVal目標爲超鏈接）事件。

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.

我不確定如何動態地將值分配給命名範圍。有人可以讓我知道這是否可能，代碼應該是什麼？

謝謝

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