VBA / VB6 - sunnib ComboBoxi avama

VBAga kombineerituna moodustab Excel tugeva vahendi kohandatud ja automatiseeritud andmeanalüüsi lahenduste loomiseks. VBA-l on sisseehitatud juhtelemendid nagu ComboBox, mis võimaldavad kasutajatel juba asustatud nimekirjast valida või oma sisendit pakkuda. Kohandatud koodis saab SetFocus meetodi abil ühendada kaks ComboBoxi . Pärast seda saab kasutaja käivitada teise koodi, mis kasutab ühest ComboBoxist tagastatavat klahvikoodi, et teisendada teise koodi. See funktsioon aitab programmeerijal seadistada koodi nii, et kui ComboBox1-s on tehtud valik, tekitab see teise ComboBoxi automaatselt avanemise.

ComboBoxi avamiseks on järgmine funktsioon:

 ComboBox1.DropDown

Aga ... selle jaoks on meil ComboBoxi fookus ja kui käsk teisest kontrollist ei avane.

Teise ComboBoxi avamiseks kasutage siin trikki:

Asetage 2 ComboBoxi töölehele või kasutajaformile ja nimetage need vastavalt ComboBox1 ja CombBox2
Kasutage kahte ComboBoxi ühendamiseks järgmist koodi:

 Private Sub ComboBox1_Change () '========== Combo sur une feuille ========= 1' ComboBox2.Activate '========== Combo sur un UserForm ou VB6 ========= 2 'ComboBox2.SetFocus' ================================== ======== SendKeys "^ (F4)" End Sub Private Sub ComboBox2_KeyDown (ByVal KeyCode nagu MSForms.ReturnInteger, ByVal Shift kui tervikuna) Kui KeyCode = 16 siis ComboBox2.DropDown lõppu kui lõppu

Tühjendades rida 1 või 2 sõltuvalt ComboBoxi asukohast.

Tulemus: valides ComboBox 1, avaneb teine automaatselt.

Proovi allalaadimine Exceli 97 - 2003 jaoks