VBA / VB6 - Tvinge en ComboBox å åpne

Excel når det kombineres med VBA, danner et kraftig verktøy for å skape tilpassede og automatiserte dataanalyser. VBA har innebygde kontroller som ComboBox som tillater brukere å velge fra en allerede populert liste eller levere egen inngang. Man kan koble to ComboBoxer ved å bruke SetFocus-metoden i en egendefinert kode. Deretter kan brukeren kjøre en annen kode som bruker nøkkelkoden tilbake fra en ComboBox for å initialisere den andre. Denne funksjonen hjelper programmereren til å sette opp en kode på en slik måte at når et valg blir gjort i ComboBox1, får det den andre ComboBoxen til å åpne automatisk.

For å tvinge en ComboBox å åpne der er følgende funksjon ...

 ComboBox1.DropDown

Men ... for det har vi ComboBox fokus, og hvis kommandoen fra en annen kontroll det ikke vil åpne.

For å åpne en annen ComboBox bør du bruke et triks her:

Plasser 2 ComboBox på et regneark eller en UserForm, og navngi dem henholdsvis som ComboBox1 og CombBox2
Bruk følgende kode for å koble de to ComboBoxene:

 Private Sub ComboBox1_Change () '========= Combo sur une feuille ========= 1' ComboBox2.Activate '========== Kombinere med en UserForm ou VB6 ========= 2 'ComboBox2.SetFocus' ================================== ======== SendKeys "^ (F4)" End Sub Private Sub ComboBox2_KeyDown (ByVal KeyCode Som MSForms.ReturnInteger, ByVal Shift As Integer) Hvis KeyCode = 16 Så ComboBox2.DropDown End Hvis End Sub

Ved å rydde linje 1 eller 2 avhengig av plasseringen av ComboBox.

Resultat: Når du velger et ComboBox 1, åpnes den andre automatisk.

Last ned prøve for Excel 97 - 2003