Jak poruszać się między arkuszami za pomocą rozwijanej listy w programie Excel?
Przypuśćmy, że masz skoroszyt, który zawiera wiele arkuszy roboczych, teraz musisz utworzyć listę rozwijaną lub pole kombi, które zawiera wszystkie nazwy arkuszy, a po wybraniu jednej nazwy arkusza z rozwijanej listy natychmiast przejdzie do tego arkusza. W tym artykule przedstawię, jak poruszać się między arkuszami roboczymi za pomocą rozwijanej listy w programie Excel.
Poruszaj się między arkuszami, korzystając z rozwijanej listy w programie Excel
Poruszaj się między arkuszami, korzystając z rozwijanej listy w programie Excel
Aby przejść do każdego wybranego arkusza przy użyciu listy rozwijanej, wykonaj następujące czynności:
1. Kliknij Deweloper > wstawka > Pole kombi (formant ActiveX)zobacz zrzut ekranu:
2. Następnie przeciągnij myszą, aby narysować pole kombi, a następnie kliknij je prawym przyciskiem myszy i wybierz Wyświetl kod z menu kontekstowego, zobacz zrzut ekranu:
3. W otwartym Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod, aby zastąpić oryginalny kod, zobacz zrzut ekranu:
Kod VBA: nawiguj między arkuszami za pomocą listy rozwijanej
Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub
4. Następnie zapisz i zamknij to okno kodu, a następnie kliknij Tryb projektowania aby wyłączyć tryb projektowania, teraz, wybierając jedną nazwę arkusza z pola kombi, przejdzie do tego arkusza od razu, patrz zrzut ekranu:
Poruszaj się między arkuszami za pomocą hiperłączy lub przycisków:
Z Kutools dla programu Excel's Utwórz listę nazw arkuszy narzędzie, możesz szybko wyświetlić wszystkie nazwy arkuszy w nowym arkuszu z hiperłączami lub przyciskami makr, a następnie możesz nawigować między nimi zgodnie z potrzebami.
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz! |
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!