Excelのドロップダウンリストでの選択に基づいて、隣接するセルにすばやくジャンプするにはどうすればよいですか？

Excelのドロップダウンリストでの選択に基づいて、隣接するセルにジャンプするようにイメージしたことがありますか？ たとえば、ここでは、セルC1に曜日名を含むドロップダウンリストがあり、列Aは日付のリスト、列Bは時間のリストです。 ドロップダウンリストから平日の名前（木曜日など）を選択すると、カーソルは列Aの木曜日に隣接するB5にジャンプします。Excelには、このタスクを解決するための組み込み機能はありませんが、強力なVBAコードが可能です。

VBAによるドロップダウンリストの値に基づいて隣接するセルにジャンプします

---

VBAによるドロップダウンリストの値に基づいて隣接するセルにジャンプします

1.ドロップダウンリストから使用する日を選択し、を押します Altキー+ F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、以下のコードをに貼り付けます モジュール.

VBA：値に基づいて隣接するセルにジャンプします

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
    If Target.Address <> [C1].Address Then
       Exit Sub
    Else
       JumpToCell

    End If
End Sub

Sub JumpToCell()
    Dim xRg, yRg As Range
    Dim strAddress As String
    strAddress = ""
    Set yRg = Range("A2:A8")
    For Each xRg In yRg
    'MsgBox Cell.Value
        If xRg.Value = ActiveCell.Value Then
           strAddress = xRg.Address
        End If
    Next
    If strAddress = "" Then
       MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
        vbInformation, "Kutools for Excel"
       Exit Sub
    Else
       Range(strAddress).Offset(0, 1).Select
    End If
End Sub

3。 押す F5 キーを押すと、ドロップダウンリストの値に基づいてカーソルが隣接するセルにジャンプします。

注意：

VBAコードでは、A2：A8はドロップダウンリストの値に一致する値を含むリストです。必要に応じてこの参照を変更できます。