Melalui ListBox informasi yang disajikan dapat dipilih untuk melakukan operasi lainnya. Pada posting terdahulu kita sudah membahas tentang cara membuat Tombol Simpan VBA Excel menggunakan UserForm VBA Excel.
Tampilkan Data di ListBox di UserForm VBA Excel |
Admin sangat menyarankan bagi yang sedang mempelajari kode Vba Excel agar membuat file contoh penerapan kode. Dengan membuat file contoh penerapan kode akan mempercepat memahami penggunaan dan fungsi dari kode yang diterapkan
Perlu diperhatikan.!!!
Kita menggunakan File yang telah kita rancang pada posting Tombol Simpan VBA Excel
Ikuti Posting Cara Membuat Range Dinamis
Keterangan :
Perlu diperhatikan.!!!
Kita menggunakan File yang telah kita rancang pada posting Tombol Simpan VBA Excel
Ikuti Posting Cara Membuat Range Dinamis
Langkah-langkah membuat ListBox :
- Buka kembali Excel Yang telah kita rancang pada posting Tombol Simpan VBA Excel
- Buatlah sebuah range dinamis baca posting Cara Membuat Range Dinamis,
- Buka Visual Basic dan tambahkan ListBox pada UserForm Seperti pada gambar berikut ini
- Untuk Properties biarkan saja jangan di ubah baik Label maupun ListBox. Setelah siap di rancang, klik kanan pada UserForm pilih View Code dan Masukkan Kode dibawah ini, perhatikan gambar dibawah kode..!!
Sub ListDB()
With UserForm1.ListBox1
.ColumnCount = 5
.ColumnHeads = False
.ColumnWidths = "25;55;100;70;90"
.RowSource = "ListDB"
.MultiSelect = fmMultiSelectSingle
.BoundColumn = 0
End With
End Sub
Private Sub UserForm_Initialize()
Call ListDB
End Sub
With UserForm1.ListBox1
.ColumnCount = 5
.ColumnHeads = False
.ColumnWidths = "25;55;100;70;90"
.RowSource = "ListDB"
.MultiSelect = fmMultiSelectSingle
.BoundColumn = 0
End With
End Sub
Private Sub UserForm_Initialize()
Call ListDB
End Sub
Keterangan :
- ".ColumnCount = 5" kode ini berfungsi untuk menampilkan banyaknya jumlah kolom yang akan ditampilkan pada ListBox. Jika ingin mengurangi atau menambahkan kolom, anda tinggal mengubah angka 5 dengan angka jumlah kolom yang anda inginkan.
- ".ColumnHeads = False" Kode ini berfungsi untuk mencegah menampilkan Headers ListBox, Jika menginginkan Headers ListBox ditampilkan, maka nilai "False" digantikan dengan nilai "True".
- ".ColumnWidths = "25;55;100;70;90" " deretan angka puluhan pada kode ini berfungsi untuk menentukan tiap lebar tiap kolom, untuk menyesuaikannya kita dapat mengubah angka puluhan tersebut.
- ".RowSource = "ListDB" "merupakan baris Range yang dicari dan ditampilkan pada ListBox "ListDB" merupakan nama dari Range data yang terdapat pada Sheet untuk ditampilkan pada ListBox.
- ".MultiSelect = fmMultiSelectSingle" merupakan perintah agar data yang ditampilkan pada ListBox hanya dapat dipilih secara single saya, untuk pilihan lainnya dapat dilihat pada properties ListBox.
- "Call ListDB" merupakan kode perintah yang disingkat untuk memanggil kode Sub ListDB
- Selesai, Agar saat setelah Tombol Simpan di klik langsung terlihat datanya pada ListBox kita tambahkan kode pada CmdSimpan dengan code berikut sebelum End Sub
Call ListDB
Demikian yang bisa saya share pada kesempatan ini tentang cara membuat ListBox agar menampilkan data dari Sheet. Semoga bermanfaat terutama bagi yang belajar otodidak seperti saya.
Semoga artikel ini bisa menjadi referensi dan informasi bagi yang sedang mempelajari Vba Excel pada tahap pemula.
Jika artikel ini dirasakan bermanfaat dan berguna mohon dapat memberikan komentar di kolom komentar yang tersedia dan mohon dapat share ke media sosial agar teman-teman lain yang memiliki hobi yang sama dapat mengetahui dan mempelajarinya juga.
Jika anda ingin menyampaikan pertanyaan, saran dan kritikan mohon dapat disampaikan dengan bijaksana pada kolom komentar yang tersedia dibawah artikel ini.
Dapatkan berbagai macam file contoh penerapan kode Vba serta Aplikasi Full Vba Excel tanpa Proteksi agar dapat dipelajari secara mandiri dengan menghubungi WhatsApp atau Telegram admin dengan nomor 0811-6822-023.
Semoga artikel ini bisa menjadi referensi dan informasi bagi yang sedang mempelajari Vba Excel pada tahap pemula.
Video Cara Menampilkan Data Sheet ke ListBox
Jika artikel ini dirasakan bermanfaat dan berguna mohon dapat memberikan komentar di kolom komentar yang tersedia dan mohon dapat share ke media sosial agar teman-teman lain yang memiliki hobi yang sama dapat mengetahui dan mempelajarinya juga.
Jika anda ingin menyampaikan pertanyaan, saran dan kritikan mohon dapat disampaikan dengan bijaksana pada kolom komentar yang tersedia dibawah artikel ini.
Dapatkan berbagai macam file contoh penerapan kode Vba serta Aplikasi Full Vba Excel tanpa Proteksi agar dapat dipelajari secara mandiri dengan menghubungi WhatsApp atau Telegram admin dengan nomor 0811-6822-023.