Isi
Menggunakan kontrol ListView dengan kotak centang pada formulir VBA dapat membuat aplikasi lebih dinamis dengan memberikan opsi kepada pengguna. ListView memperlihatkan item dengan menggunakan salah satu dari empat tampilan berbeda dan mengaturnya dalam kolom dengan atau tanpa tajuk Microsoft Excel. Gunakan properti "ListItems.Add" untuk menambahkan item dan "Diperiksa" untuk menentukan item mana yang telah dipilih oleh pengguna.
Instruksi
Isi kontrol ListView di Excel menggunakan VBA (Hemera Technologies / Photos.com / Getty Images)-
Buka Microsoft Excel, klik pada tab "Pengembang" dan kemudian pada "Visual Basic" untuk membuka jendela editor VBA. Klik menu "Sisipkan" dan kemudian "UserForm" (formulir pengguna) untuk membuat formulir baru. Klik "Alat," "Kontrol Tambahan," dan pilih kotak di sebelah "Kontrol Microsoft ListView" (kontrol Microsoft ListView) untuk menambahkan kontrol "ListView" baru ke formulir.
-
Klik kanan pada kontrol "ListView" dan kemudian pada "Properties". Gulirkan ke bawah jendela dan pilih "Benar" di sebelah opsi "Kotak centang". Klik "CommandButton" di panel "Toolbox" dan kemudian pada formulir untuk menambahkan tombol baru. Tambahkan tombol kedua menggunakan langkah yang sama.
-
Klik dua kali pada "CommandButton1" untuk membuat acara baru untuk tombol itu. Tambahkan kode berikut ke "ListBox" populer dengan tiga item:
Me.ListView1.ListItems.Add (1) = "Periksa Item 1" Me.ListView1.ListItems.Add (2) = "Periksa Item 2" Me.ListView1.ListItems.Add (3) = "Periksa Item 3"
-
Kembali ke formulir dan klik dua kali pada "CommandButton2" untuk membuat acara klik baru untuk tombol itu. Tambahkan kode berikut untuk melihat item "ListBox" dan menampilkan item yang dipilih di jendela "Segera":
For counter = 1 To Me.ListView1.ListItems.Count If Me.ListView1.ListItems.Item (counter). Periksa Lalu Debug.Cetak Me.ListView1.ListItems.Item (counter) .Text End If Next
-
Kembali ke formulir dan klik "F5" untuk menjalankan program. Kemudian klik "CommandButton1" untuk mengisi kontrol "ListView" dan kemudian "CommandButton2" untuk menampilkan item yang dipilih.
Apa yang kamu butuhkan
- Microsoft Excel