Menampilkan tabel data dengan Listview - Listview merupakan salah satu kontrol VBA yang mampu menampilkan data dalam bentuk tabel yaitu dengan format mendatar dan vertikal, yang menarik lsitview bisa menampilkan tabel data benar benar seperti tabel dalam sel, kenapa saya sebutkan benar benar seperti tabel ?? tidak lain karena Listview membeikan border atau garis pemisah antara kolom satu dengan kolom lainya dan memberikan border juga antara baris satu dengan baris lainya, asiknya tak sampai berhenti disitu tabel dalam Listview juga bisa diatur lebar kolomnya secara langsung.

Menurut pendapat orang awam fungsi Listview sama halnya dengan fungsi Listbox, pendapat ini ada benarnya namun banyak salahnya, kenapa ? Alasanya sebagai berikut

Listview mempunyai border sebagai pemisah baris dan kolom sedangkan Listbox tidak ada
Listview bisa diatur panjang pendek kolom meski saat form sedang aktif sedangkan listview tidak bisa
Listview mempunyai Event Event yang tidak dimiliki oleh Listbox seperti AfterLabelEdit, AfterUpdate, BeforeLabelEdit(Cancel As Integer), BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean), Enter, Exit(ByVal Cancel As MSForms.ReturnBoolean) dan masih banyak lagi

Menampilkan tabel data dengan Listview

Saya telah menyebutkan fungsi dan kelebihan kontrol Listview sebagaimana diatas, akan tetapi kekurangan Listview adalah masalah dukungan sistem dari microsoft office maupun microsoft Windows, dan Listview ini tidak begitu dikenal oleh pengguna excel pada umumnya, minimnya sumber daya dan pengetahuan membuat pengguna kurang menyukai kontrol Listview ini, jika memaks maka akan timbul banyak masalah yang tidak bisa dicari jalan keluarnya, coba anda baca kembali Masalah yang muncul ketika menggunakan Listview

Saya akan abaikan semua hal diatas dan jika anda penasaran untuk mempelajari bagaimana cara menampilkan tabel data menggunakan listview silahkan ikuti tutorialnya berikut ini

Langsung saja masuk ke jendela VBE, coba cek pada Toolbox dan cari kontrol Listview, jika anda tidak menemukanya juga coba klik kanan pada mosue untuk menampilkan Opsi, pilih Additional Controls akan muncul jendela Additional Controls, pada jendela Additional Controls cari Microsoft Listview Control Versi 6.0 atau Versi 5.0, Ceklist lalu tekan OK



Jika jendela Additional Controls tidak muncul atau tidak ada Microsoft Listview Control Versi 6.0 atau Versi 5.0, silahkan anda baca kembali Masalah yang muncul ketika menggunakan Listview


Saya berasumsi anda sudah menamhkan kontrol Listview kedalam Userform, jadi saatnya mengetikan kode macro cara menampilkan tabel data kedalam Listview
Jangan lupa sebelumnya cek dibagian References, ceklist box yang ada deskrisinya Microsoft Windows Common Controls 6.0 (SP))
Private Sub UserForm_Activate()
With Me.ListView1
.Gridlines = True
.HideColumnHeaders = False
.View = lvwReport
End With
Call LoadListView
End Sub

Tambahkan lagi kode macro ini
Private Sub LoadListView()
Dim Ws As Worksheet
Dim tbldata As Range
Dim RSel As Range
Dim LstItem As ListItem
Dim RowCount As Long
Dim ColCount As Long
Dim i As Long
Dim j As Long
Set Ws = Worksheets("Sheet1")
Set tbldata = Ws.Range("A1").CurrentRegion
For Each RSel In tbldata.Rows(1).Cells
Me.ListView1.ColumnHeaders.Add Text:=RSel.Value, Width:=90
Next RSel
RowCount = tbldata.Rows.Count
ColCount = tbldata.Columns.Count
For i = 2 To RowCount
Set LstItem = Me.ListView1.ListItems.Add(Text:=tbldata(i, 1).Value)
For j = 2 To ColCount
LstItem.ListSubItems.Add Text:=tbldata(i, j).Value
Next j
Next i
End Sub

Tabel data adalah seluruh tabel yag ada pada sheet1
Header tabel adalah baris pertama




COba dicoba lagi, ku mencoba, begitulah jangan bosan dengan peringatan Error jika menggunakan Listview, Listview sudah saya terapkan secara Full pada Asista POS dengan harga Rp 550.000 anda bisa menggunakan dan mendapatkan Asista POS secara penuh
No comments