Jak wypełnić pole kombi danymi o nazwie zakresu w programie Excel?
Możesz określić pole kombi (formant ActiveX) z danymi z określonego zakresu, dodając zakres do właściwości ListFillRange pola kombi. Ale czy wiesz, jak wypełnić pole Combo danymi z nazwanego zakresu w programie Excel? Na przykład nazwałeś zakres komórek w swoim arkuszu, a teraz musisz określić tę nazwę zakresu w polu Combo. Po wybraniu nazwy zakresu w jednym polu kombi wszystkie wartości komórek w tym nazwanym zakresie zostaną automatycznie wypełnione w innym polu kombi. W tym artykule przedstawimy metodę VBA, aby rozwiązać ten problem.
Wypełnij pole Combo danymi z nazwanego zakresu z kodem VBA
Wypełnij pole Combo danymi z nazwanego zakresu z kodem VBA
Wykonaj następujące czynności, aby wypełnić pole Combo danymi z nazwanego zakresu w programie Excel.
1. Proszę zaznaczyć całe nagłówki (w tym przypadku wybieram A1: E1) w arkuszu, a następnie wpisać nazwę w Nazwa Box jak pokazano na poniższym zrzucie ekranu.
2. Wybierz dane każdej kolumny z wyjątkiem nagłówka, a następnie nazwij kolumnę osobno w Nazwa Box. Zobacz zrzut ekranu:
W tym przypadku zakres A2: A8, B2: B8, C2: C8, D2: D8 i E2: E8 nazwałem osobno jako Data, Sklep, Przedmioty, Sprzedaż i Dzień tygodnia.
3. Następnie wstaw pole Combo, klikając Deweloper > wstawka > Pole kombi (formant ActiveX). Zobacz zrzut ekranu:
4. Powtórz krok 3, aby wstawić kolejne pole Combo do arkusza.
5. Kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
6. W otwarciu Microsoft Visual Basic for Applications należy skopiować i wkleić poniższy kod VBA do okna kodu.
Kod VBA: Wypełnij pole Combo danymi z nazwanego zakresu
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Note: W kodzie ComboBox1 to nazwa pola kombi, w którym zostaną wyświetlone wszystkie nazwy zakresów, a ComboBox2 to nazwa pola kombi, w którym zostaną wypełnione dane o określonym nazwanym zakresie. „Nagłówki” to nazwa zakresu, którą utworzyłeś w kroku 1.
7. Wyłącz tryb projektowania, klikając Deweloper > Tryb projektowania.
8. Kliknij dowolną komórkę w arkuszu, aby aktywować kod. Kliknij przycisk strzałki w pierwszym polu kombi, zobaczysz, że wszystkie nazwane zakresy są wymienione w środku. Zobacz zrzut ekranu:
Po wybraniu nazwanego zakresu w pierwszym polu kombi odpowiednie dane komórki zostaną wypełnione w drugim polu kombi, jak pokazano na poniższym zrzucie ekranu:
Z łatwością utwórz listę rozwijaną z polami wyboru w programie Excel:
Połączenia Lista rozwijana z polami wyboru użyteczność Kutools dla programu Excel może pomóc w łatwym utworzeniu listy rozwijanej z polami wyboru w określonym zakresie, bieżącym arkuszu, bieżącym skoroszycie lub wszystkich otwartych skoroszytach w zależności od potrzeb.
Pobierz i wypróbuj teraz! (30-dniowy bezpłatny szlak)
Podobne artykuły:
- Jak skopiować wartość pola kombi do aktywnej komórki w programie Excel?
- Jak wyświetlić format daty w wyjściu pola kombi w programie Excel?
- Jak zapobiec lub wyłączyć pisanie w polu kombi w programie Excel?
- Jak wypełnić pole kombi określonymi danymi w otwartym skoroszycie?
- Jak automatycznie wypełnić inne komórki podczas wybierania wartości na liście rozwijanej programu Excel?
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!