2

Excel - シート 1 のセルをクリックして、シート 2 のセルに移動できるようにしたいと考えています。単純なハイパーリンクは必要ありません。シート 2 のセルを見つける必要があります。たとえば、「開始」という単語を含むセル A1 をクリックすると、それをクリックすると、シート 2 の同じフレーズ「開始」のセルに移動します。シート 2 では、これはセル A1、A4、または A57 の可能性があります。その列内で位置が変わった場合に備えて見つけてもらいたいです。基本的に、検索機能を備えたハイパーリンクが必要です。

4

1 に答える 1

3

Worksheet_FollowHyperlinkリンクをクリックした後、VBA イベントを使用して選択範囲を移動できます。

目的の宛先シートの任意のセルに通常のハイパーリンクを追加します

このコードをソース ワークシート モジュールに追加します。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim rngDest As Range
    Dim shDest As Worksheet
    Dim cl As Range

    Set shDest = ActiveSheet
    Set rngDest = shDest.Range("A:A") ' <--- change this to your target search range
    With rngDest
        Set cl = .Find(Target.Range.Cells(1, 1).Value, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, xlByRows, xlNext)
        If Not cl Is Nothing Then
            cl.Select
        Else
            ' value not found, return to original sheet
            Target.Range.Worksheet.Activate
            MsgBox Target.Range.Cells(1, 1).Value & " not found", vbOKOnly, "Not Found"
        End If
    End With

End Sub
于 2013-03-07T08:30:45.420 に答える