Excelで「ID番号を行き来する」超便利なマクロを作成する方法！

エクセル

2025.01.01

あなたはエクセルで複数のシートの間の移動をするのが面倒だと思ったことはありませんか？

・シート1とシート2のIDを行き来したいけど、手作業で探すのは面倒。
・大量のデータの中で、関連する情報を素早く見つけたい。

こんな課題ありますよね。

そんなとき、このマクロを使えば 「クリックするだけ」 で解決します！

完成イメージ

１．シート1のIDをクリックすると、対応するIDがあるシート2にジャンプ！

２．シート2のIDをクリックすると、対応するIDがあるシート1に戻れる！

作り方を解説！
動作確認
注意点
まとめ

作り方を解説！

以下のコードを設定するだけで、あなたのExcelが魔法のように便利になります。

シート1用のコード

１．Excelを開き、「Alt + F11」でVBAエディタを開きます。

２．左側の「プロジェクトウィンドウ」で「sheet1」をダブルクリックして、以下のコードを貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet
    Dim matchCell As Range
    
    ' A列以外は無視
    If Target.Column <> 1 Then Exit Sub
    
    ' sheet2を参照
    Set ws = ThisWorkbook.Sheets("sheet2")
    
    ' sheet2のA列で一致するセルを探す
    Set matchCell = ws.Columns(1).Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not matchCell Is Nothing Then
        ' 一致するセルに移動
        Application.Goto matchCell, True
        Cancel = True
    Else
        MsgBox "対応するIDが見つかりません。", vbExclamation
    End If
End Sub

シート2用のコード

同様に、「sheet2」に以下のコードを貼り付けます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet
    Dim matchCell As Range
    
    ' A列以外は無視
    If Target.Column <> 1 Then Exit Sub
    
    ' sheet1を参照
    Set ws = ThisWorkbook.Sheets("sheet1")
    
    ' sheet1のA列で一致するセルを探す
    Set matchCell = ws.Columns(1).Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not matchCell Is Nothing Then
        ' 一致するセルに移動
        Application.Goto matchCell, True
        Cancel = True
    Else
        MsgBox "対応するIDが見つかりません。", vbExclamation
    End If
End Sub