VBA LISTVIEW PADA Ms. EXCEL

Menampilkan ListView pada Microsoft Excel
Listview Merupakan salah satu Control dari Visual Basic Editor yang lumayan berguna untuk menampilkan data pada database yang diambil dari Workbook Microsoft Excel, namun kalau menurut saya pribadi penggunaan ListView pada Microsoft Excel teramat dipaksakan karena terkadang bisa saja terjadi error yang agak memusingkan (Mungkin karena saya masih amatiran)
ListView pada Microsoft Excel tak ubahnya seperti ListBox yang sering saya bahas pada link artikel dibawah ini

Bedanya Listview dengan Listbox adalah terletak pada Header dan terdapatnya garis garis layaknya workbook yang bisa digeser geser

Untuk menampilan listvie pada Microsoft Excel silahkan anda ikuti langkah dibawah ini
Seperti yang sudah sudah buatlah satu project dengan Control Listview saja lihat gambar

Langsung saja masukan kode dibawah ini kedalam Userform

Const ip1 = 1
Const ip2 = 2
Const ip3 = 3
Const ip4 = 4
Private Sub UserForm_Initialize()
With lsLista
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="Nomor", Width:=40
.ColumnHeaders.Add Text:="Nama Depan", Width:=60
.ColumnHeaders.Add Text:="Nama Belakang", Width:=85
.ColumnHeaders.Add Text:="L/K", Width:=30
End With
lsLista.ListItems.Clear
lin = 2
Do Until Sheets("Sheet1").Cells(lin, ip1) = ""
Set li = lsLista.ListItems.Add(Text:=Sheets("Sheet1").Cells(lin, ip1).Value)
li.ListSubItems.Add Text:=Sheets("Sheet1").Cells(lin, ip2).Value
li.ListSubItems.Add Text:=Sheets("Sheet1").Cells(lin, ip3).Value
li.ListSubItems.Add Text:=Sheets("Sheet1").Cells(lin, ip4).Value
lin = lin + 1
Loop
End Sub

Simpan dan tekan F5, jika anda kesulitan langsung saja download samplen ListView pada Microsoft Excel dibawah ini