Как быстро перейти к соседней ячейке на основе выбора в раскрывающемся списке Excel?

Задумывались ли вы о том, чтобы переходить к соседней ячейке на основе выбора из выпадающего списка в Excel? Например, у меня есть выпадающий список в ячейке C1, который содержит названия дней недели. Столбец A — это список дат, а столбец B — это список времен. Теперь, когда я выбираю название дня недели из выпадающего списка, например, Четверг, курсор переходит к ячейке B5, которая находится рядом с Четвергом в столбце A. В 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 — это список, содержащий значения, соответствующие значениям в выпадающем списке. Вы можете изменить эту ссылку по мере необходимости.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!