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

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

VBAを使用してドロップダウンリストの値に基づいて隣接するセルに移動

VBAを使用してドロップダウンリストの値に基づいて隣接するセルに移動

1. ドロップダウンリストから使用したい日を選択し、次に Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にします。

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はドロップダウンリスト内の値と一致する値を含むリストです。必要に応じてこの参照を変更できます。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！