Pole kombi to rozwijana lista, z której użytkownik może wybrać element lub uzupełnić swój wybór. Stworzyć pole kombi w Excel VBA, wykonaj następujące kroki.
1. Na karcie Deweloper kliknij Wstaw.
2. W grupie Formanty ActiveX kliknij Pole kombi.
3. Przeciągnij pole kombi na arkusz.
Uwaga: możesz zmienić nazwę kontrolki, klikając ją prawym przyciskiem myszy (upewnij się, że wybrano Tryb projektowania), a następnie klikając Właściwości. Na razie zostawimy ComboBox1 jako nazwę pola kombi.
Utwórz wydarzenie otwartego skoroszytu. Kod dodany do zdarzenia Workbook Open zostanie wykonany przez Excel VBA po otwarciu skoroszytu.
4. Otwórz Edytor Visual Basic.
5. Kliknij dwukrotnie na Ten skoroszyt w Eksploratorze projektów.
6. Wybierz Skoroszyt z lewej listy rozwijanej i wybierz Otwórz z prawej listy rozwijanej.
7. Aby dodać elementy do pola kombi, dodaj następujące linie kodu do zdarzenia Workbook Open Event:
Z Arkusz1.ComboBox1
.AddItem "Paryż"
.AddItem "Nowy Jork"
.AddItem "Londyn"
Kończyć z
Uwaga: użyj Sheet2 jeśli twoje pole kombi znajduje się w drugim arkuszu, Sheet3 jeśli twoje pole kombi znajduje się w trzecim arkuszu itd. Jeśli używasz tych linii kodu poza zdarzeniem Workbook Open, możesz dodać poniższe linie kodu przed tymi wierszami kodu. Pierwsza linia kodu czyści pole kombi. W ten sposób Twoje elementy nie zostaną dodane wielokrotnie, jeśli wykonasz kod więcej niż raz. Druga linia kodu kasuje twój własny wybór.
ComboBox1.Wyczyść
ComboBox1.Value = ""
8. Aby połączyć to pole kombi z komórką, kliknij prawym przyciskiem myszy pole kombi (upewnij się, że wybrany jest tryb projektowania) i kliknij Właściwości. Wypełnij D2 dla LinkedCell.
Uwaga: zobacz także właściwość ListFillRange, aby wypełnić pole kombi zakresem komórek.
9. Zapisz, zamknij i ponownie otwórz plik Excel.
Wynik:
Chociaż w niektórych sytuacjach może być przydatne bezpośrednie umieszczenie pola kombi w arkuszu, pole kombi jest szczególnie przydatne, gdy jest umieszczone w formularzu użytkownika.
