VBA / VB6 - Memaksa ComboBox untuk membuka

Excel ketika dikombinasikan dengan VBA, membentuk alat yang ampuh untuk membuat solusi analisis data yang disesuaikan dan otomatis. VBA memiliki kontrol bawaan seperti ComboBox yang memungkinkan pengguna untuk memilih dari daftar yang sudah terisi atau memasok input mereka sendiri. Satu dapat menautkan dua ComboBoxes dengan menggunakan metode SetFocus dalam kode khusus. Setelah itu, pengguna dapat menjalankan kode lain yang menggunakan kode kunci kembali dari satu ComboBox untuk menginisialisasi yang lain. Fitur ini membantu programmer untuk mengatur kode sedemikian rupa sehingga setelah seleksi dibuat di ComboBox1, itu menyebabkan ComboBox kedua terbuka secara otomatis.

Untuk memaksa ComboBox untuk membuka ada fungsi berikut ...

 ComboBox1.DropDown

Tapi ... untuk itu kita memiliki fokus ComboBox, dan jika perintah dari kontrol lain tidak akan terbuka.

Untuk membuka ComboBox lain Anda harus menggunakan trik di sini:

Tempatkan 2 ComboBox pada lembar kerja atau UserForm dan beri nama masing-masing sebagai ComboBox1 dan CombBox2
Gunakan kode berikut untuk menautkan kedua ComboBox:

 Sub Pribadi 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 As MSForms.ReturnInteger, ByVal Shift As Integer) Jika KeyCode = 16 Kemudian ComboBox2.DropDown End If End Sub End

Dengan menghapus baris 1 atau 2 tergantung pada lokasi ComboBox.

Hasil: ketika Anda membuat pilihan pada ComboBox 1, yang kedua terbuka secara otomatis.

Unduh sampel untuk Excel 97 - 2003