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

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