VBA / VB6 - Prisili ComboBox da se otvori

Excel u kombinaciji s VBA, čini moćan alat za stvaranje prilagođenih i automatiziranih rješenja za analizu podataka. VBA ima ugrađene kontrole poput ComboBoxa koje korisnicima omogućuju odabir s već popunjenog popisa ili opskrbu vlastitog unosa. Moguće je povezati dva ComboBox- a pomoću metode SetFocus u prilagođenom kodu. Nakon toga, korisnik može pokrenuti drugi kôd koji koristi ključni kod koji se vraća s jednog ComboBox-a na drugi. Ova značajka pomaže programeru da postavi kôd na takav način da nakon što je odabran u ComboBoxu 1, drugi ComboBox automatski otvara.

Da biste prisilili ComboBox da se otvori postoji sljedeća funkcija ...

 ComboBox1.DropDown

Ali ... za to imamo fokus na ComboBoxu, i ako se naredba iz druge kontrole ne otvori.

Da biste otvorili drugi ComboBox, trebali biste upotrijebiti trik ovdje:

Postavite 2 ComboBox na radni list ili UserForm i nazovite ih kao ComboBox1 i CombBox2
Koristite sljedeći kôd za povezivanje dva ComboBoxa:

 Privatni Sub ComboBox1_Change () '========== Combo sur une feuille ========= 1' ComboBox2.Activate '========== Combo sur un UserForm ou VB6 ========= 2 'ComboBox2.SetFocus' ================================== ======== SendKeys "^ (F4)" Kraj Sub Privatni Sub ComboBox2_KeyDown (ByVal KeyCode kao MSForms.ReturnInteger, ByVal Shift As Integer) Ako KeyCode = 16 onda ComboBox2.DropDown Kraj Ako Kraj

Čišćenjem linije 1 ili 2 ovisno o mjestu ComboBoxa.

Rezultat: kada odaberete na ComboBoxu 1, drugi se otvara automatski.

Preuzmite uzorak za Excel 97 - 2003