300 Príkladov

Viacstĺpcový kombinovaný box

Multicolumn Combo Box

Nižšie sa pozrieme na program v Excel VBA ktorý vytvorí užívateľský formulár, ktorý obsahuje a viacstĺpcový kombinovaný box .



Forma užívateľa, ktorú vytvoríme, vyzerá nasledovne:

Viac stĺpcový kombinovaný box v programe Excel VBA





Ak chcete vytvoriť tento formulár používateľa, vykonajte nasledujúce kroky.

ako uložiť ako iba na čítanie

1. Otvorte súbor Editor jazyka Visual Basic . Ak Project Explorer nie je viditeľný, kliknite na Zobraziť, Project Explorer.



2. Kliknite na položku Vložiť, Používateľský formulár. Ak sa Panel s nástrojmi nezobrazí automaticky, kliknite na položku Zobraziť, Panel s nástrojmi. Vaša obrazovka by mala byť nastavená nižšie.

Užívateľské nastavenie obrazovky v programe Excel VBA

3. Pridajte štítok, pole so zoznamom a tlačidlá príkazov. Keď je to dokončené, výsledok by mal byť v súlade s obrázkom používateľského formulára zobrazeným skôr. Napríklad vytvorte ovládací prvok rozbaľovacieho poľa kliknutím na ComboBox v Paneli s nástrojmi. Ďalej môžete na Userforme potiahnuť kombinované pole.

4. Môžete zmeniť názvy a titulky ovládacích prvkov. Mená sa používajú v kóde programu Excel VBA. Titulky sú tie, ktoré sa zobrazujú na vašej obrazovke. Je dobrým zvykom zmeniť názvy ovládacích prvkov, ale nie je to potrebné, pretože v tomto prípade máme len niekoľko ovládacích prvkov. Ak chcete zmeniť popis tlačidiel Userform, štítok a príkazové tlačidlo, kliknite na položku Zobraziť, Okno vlastností a kliknite na jednotlivé ovládacie prvky.

5. Na zobrazenie užívateľského formulára umiestnite a príkazové tlačidlo do pracovného hárka a pridajte nasledujúci riadok kódu:

ako používať funkciu v programe Excel
Súkromné SubCommandButton1_Click ()

UserForm1.Show

Koniec Sub

Teraz vytvoríme podskupinu UserForm_Initialize. Keď pre metódu Userform použijete metódu Show, táto čiastka sa automaticky spustí.

6. Otvorte súbor Editor jazyka Visual Basic .

7. V programe Project Explorer kliknite pravým tlačidlom myši na UserForm1 a potom kliknite na položku Zobraziť kód.

8. V ľavom rozbaľovacom zozname vyberte položku Userform. V pravom rozbaľovacom zozname vyberte položku Inicializovať.

9. Pridajte nasledujúce riadky kódu:

Súkromné SubUserForm_Initialize ()

ComboBox1.ColumnCount = 2

ŽiadnyFilmy (1Komu5, 1Komu2)Ako Reťazec
ŽiadnyiAko Celé číslo, jAko Celé číslo

Films (1, 1) = 'Pán prsteňov'
Filmy (2, 1) = 'Rýchlosť'
Filmy (3, 1) = 'Hviezdne vojny'
Films (4, 1) = 'Krstný otec'
Films (5, 1) = 'Pulp Fiction'

Films (1, 2) = 'Adventure'
Filmy (2, 2) = 'Akcia'
Filmy (3, 2) = 'Sci-Fi'
Films (4, 2) = 'Crime'
Filmy (5, 2) = 'Dráma'

ComboBox1.List = Filmy

Koniec Sub

Vysvetlenie: Prvý riadok kódu nastavuje počet stĺpcov poľa so zoznamom na 2. Namiesto nastavenia počtu stĺpcov za behu môžete toto nastavenie nakonfigurovať aj v čase návrhu. Aby ste to dosiahli, kliknite pravým tlačidlom myši na ovládací prvok kombinovaného poľa, kliknite na položku Vlastnosti a nastavte vlastnosť ColumnCount na hodnotu 2. Ďalej deklarujeme a inicializujeme dvojrozmerné pole . Posledný riadok kódu priradí pole do poľa so zoznamom.

Teraz sme vytvorili prvú časť užívateľského formulára. Aj keď to už vyzerá úhľadne, po kliknutí na príkazové tlačidlá vo formulári User User sa ešte nič nestane.

10. V programe Project Explorer dvakrát kliknite na položku UserForm1.

11. Dvakrát kliknite na tlačidlo OK.

12. Pridajte nasledujúce riadky kódu:

Súkromné SubCommandButton1_Click ()

Vylož ma

MsgBox „Vybrali ste“ & ComboBox1.Hodnota

Zapnuté Chyba Pokračovať Ďalšie
MsgBox „Páči sa vám“ & ComboBox1. Stĺpec (1) a „filmy“

Koniec Sub

Poznámka: tieto riadky kódu zatvárajú užívateľský formulár Excel VBA a zobrazujú vybratú položku a žáner. Príkaz „On Error Resume Next“ ignoruje chybu, keď používateľ vyplní svoj vlastný film (v tomto prípade nie je k dispozícii žiadny žáner).

13. Dvakrát kliknite na tlačidlo Zrušiť.

14. Pridajte nasledujúci riadok kódu:

Súkromné SubCommandButton2_Click ()

Vylož ma

Koniec Sub

Výsledok získate, keď vyberiete položku Rýchlosť a kliknete na tlačidlo OK.

ako vypočítať korelačný koeficient vzorky v programe Excel

Výsledok viac stĺpcového kombinovaného boxu

Výsledok viac stĺpcového kombinovaného poľa

6/11 Dokončené! Prečítajte si oveľa viac o užívateľských formách>
Prejsť na nasledujúcu kapitolu: Rozsah



^