Cara menggunakan ListView dengan Kotak Centang di VBA

Pengarang: Peter Berry
Tanggal Pembuatan: 11 Agustus 2021
Tanggal Pembaruan: 1 November 2024
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

Cara membuat filter kolam sendiri

Roger Morrison

November 2024

Ada berbagai jeni filter kolam. Yang paling umum adalah kartrid atau pair, yang paling mudah dibuat dan digunakan elama berabad-abad. Pada daarnya air mengalir melalui tangki yang berii pair. aat part...

Jika Anda bekerja di program preadheet Microoft Excel, maka Anda mungkin ingin menggunakan kata kunci ebagai variabel dalam preadheet Anda. Excel memungkinkan pembuatan beberapa preadheet, dalam ebuah...

Artikel Populer