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 に答える