Cara menggunakan ListView dengan Kotak Centang di VBA

Pengarang: Peter Berry
Tanggal Pembuatan: 11 Agustus 2021
Tanggal Pembaruan: 14 Januari 2025
Anonim
Configuring a CheckBox on an Excel VBA UserForm
Video: Configuring a CheckBox on an Excel VBA UserForm

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)
  1. 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.

  2. 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.


  3. 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"

  4. 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

  5. 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

Kucing menjilati dirinya endiri beberapa kali dalam ehari, bukan hanya karena pada daarnya mereka adalah hewan yang berih, tetapi juga ebagai alat untuk menghilangkan bulu rontok yang menumpuk. Karena...

Memecahkan Masalah Bobcat Loader

Tamara Smith

Januari 2025

Bobcat adalah produen kid teer terkemuka dan telah meningkatkan produknya elama lebih dari 50 tahun. Alat berat yang bertenaga dan kompak ini angat bagu untuk menangani beban berat di emua jeni tempat...

Membagikan