Cara menggunakan ListView dengan Peti Masuk di VBA

Pengarang: Peter Berry
Tarikh Penciptaan: 11 Ogos 2021
Tarikh Kemas Kini: 16 November 2024
Anonim
Cara Menampilkan data ke dalam Listbox pada Macro VBA Microsoft Excel
Video.: Cara Menampilkan data ke dalam Listbox pada Macro VBA Microsoft Excel

Kandungan

Menggunakan kawalan ListView dengan kotak pilihan pada bentuk VBA boleh membuat aplikasi lebih dinamik dengan menyediakan pilihan kepada pengguna. A ListView menunjukkan item dengan menggunakan salah satu daripada empat pandangan yang berbeza dan mengaturnya dalam lajur dengan atau tanpa tajuk Microsoft Excel. Gunakan ciri "ListItems.Add" untuk menambah item dan "Diperiksa" untuk menentukan perkara yang telah dipilih oleh pengguna.


Arahan

Isi kawalan ListView dalam Excel menggunakan VBA (Hemera Technologies / Photos.com / Getty Images)
  1. Buka Microsoft Excel, klik pada tab "Pemaju" dan kemudian pada "Visual Basic" untuk membuka tetingkap editor VBA. Klik menu "Sisipkan" dan kemudian "UserForm" (borang pengguna) untuk membuat borang baru. Klik "Alat," "Kawalan Tambahan," dan pilih kotak bersebelahan dengan "Kawalan Senarai Senarai Microsoft" (kawalan Senarai Microsoft) untuk menambah kawalan "ListView" baru pada borang.

  2. Klik kanan pada kawalan "ListView" dan kemudian pada "Properties". Tatal ke bawah tetingkap dan pilih "Benar" di sebelah pilihan "Kotak Cek". Klik "CommandButton" pada panel "Kotak Alat" dan kemudian pada borang untuk menambah butang baru. Tambah butang kedua menggunakan langkah yang sama.


  3. Klik dua kali pada "CommandButton1" untuk membuat acara baru untuk butang itu. Tambah kod berikut kepada "ListBox" yang popular dengan tiga item:

    Me.ListView1.ListItems.Add (1) = "Semak Item 1" Me.ListView1.ListItems.Add (2) = "Semak Item 2" Me.ListView1.ListItems.Add (3) = "Check Item 3"

  4. Kembali ke borang dan klik dua kali pada "CommandButton2" untuk membuat acara klik baru untuk butang itu. Tambahkan kod berikut untuk melangkau item "ListBox" dan paparkan item yang dipilih dalam tetingkap "Segera":

    Untuk counter = 1 Untuk Me.ListView1.ListItems.Count Jika Me.ListView1.ListItems.Item (counter) .Checked Kemudian Debug.Print Me.ListView1.ListItems.Item (counter) .Text Akhir Jika Seterusnya

  5. Kembali ke borang dan klik "F5" untuk menjalankan program ini. Kemudian klik "CommandButton1" untuk mengisi kawalan "ListView" dan kemudian "CommandButton2" untuk menunjukkan item yang dipilih.


Apa yang anda perlukan

  • Microsoft Excel

Menonton cat kering ama ekali tidak menyenangkan. Maalahnya bermula apabila dia tidak mahu mengering. Tinta boleh menimbulkan pelbagai maalah emaa anda menunggu untuk memperbaikinya. Cat melekit yang ...

Cara mengurangkan rasa jus lemon

Roger Morrison

November 2024

Menambah ju lemon terlalu banyak ke dalam reipi boleh membuat raa hailnya terlalu maam dan pahit. Bahkan edikit aid tambahan dapat ditonjolkan dalam hidangan, menghilangkan raa ali. Oleh kerana anda t...

Pilihan Kami