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.
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.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!