Як швидко перейти до сусідньої комірки на основі виділення у спадному списку Excel?

Ви коли-небудь зображували, щоб перейти до сусідньої комірки на основі виділення у випадаючому списку в Excel? Наприклад, тут у мене є випадаючий список у клітинці C1, який включає імена днів тижня, стовпець A - список дат, а стовпець B - список часів. Тепер, коли я вибираю з випадаючого списку назву дня тижня, наприклад, четвер, курсор переходить до B5, який знаходиться поруч із четвергом у стовпці A. У Excel немає вбудованої функції для вирішення цього завдання, але з потужний код VBA може.

Перейти до сусідньої комірки на основі значення у випадаючому списку VBA

---

Перейти до сусідньої комірки на основі значення у випадаючому списку VBA

1. Виберіть день, який ви хочете використовувати, зі спадного списку, а потім натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі, вставте код нижче в Модулі.

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 - це список, що містить значення, що відповідають значенням у випадаючому списку, ви можете змінити це посилання, як вам потрібно.