如何根据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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！