Jak szybko przejść do sąsiedniej komórki na podstawie wyboru z listy rozwijanej programu Excel?

Czy kiedykolwiek zdarzyło Ci się przeskoczyć do sąsiedniej komórki na podstawie wyboru z rozwijanej listy w programie Excel? Na przykład tutaj mam rozwijaną listę w komórce C1, która zawiera nazwy dni tygodnia, kolumna A to lista dat, a kolumna B to lista czasów. Teraz, gdy wybieram nazwę dnia tygodnia z rozwijanej listy, na przykład czwartek, kursor przeskakuje do B5, która sąsiaduje z czwartkiem w kolumnie A. W programie Excel nie ma wbudowanej funkcji rozwiązania tego zadania, ale z potężny kod VBA może.

Przejdź do sąsiedniej komórki na podstawie wartości z rozwijanej listy według VBA

---

Przejdź do sąsiedniej komórki na podstawie wartości z rozwijanej listy według VBA

1. Wybierz dzień, którego chcesz użyć z listy rozwijanej, a następnie naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, wklej poniższy kod do pliku Moduł.

VBA: Przejdź do sąsiedniej komórki na podstawie wartości

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. naciśnij F5 klawisz, kursor przeskakuje do sąsiedniej komórki na podstawie wartości z listy rozwijanej.

Uwaga:

W kodzie VBA A2: A8 to lista zawierająca wartości pasujące do wartości na liście rozwijanej, możesz zmienić to odniesienie według potrzeb.