Cara Menampilkan Headers ListView di UserForm VBA Excel

Menggunakan ListView di UserForm VBA Excel akan terlihat lebih keren, ListView memiliki Headers dengan tampilan yang lebih profesional.

Headers ListView lebih fleksible dapat digeser-geserkan untuk menentukan lebar tiap kolom data. ListView juga memiliki garis secara horizontal dan vertikal sebagai pembatas tiap kolom dan baris data.

Cara Menampilkan Headers ListView di UserForm VBA Excel

Aplikasi yang dibuat dengan VB 6.0, Vb.net, Delphi dan lainnya sering menggunakan ListView untuk menampilkan informasi data.

Bagaimana bagi kita yang membuat aplikasi dengan menggunakan VBA Excel ? Filtur ListView juga dapat kita gunakan pada aplikasi yang kita buat menggunakan VBA Excel.

Cara menambahan filtur ListView pada ToolBox hingga cara menempatkan ListView pada UserForm sudah saya bahas disini. Harap dibaca..!!

Sebagaimana yang pernah saya sampaikan pada posting sebelumnya. Saya belum menemukan solusi berbagai macam error yang muncul ketika menggunakan ListView pada Microsoft Office 2007 yang 32 bit.

Sehingga saya mengawali belajar secara otodidak menggunakan ListView pada UserForm VBA Excel menggunakan Microsoft Office 2007 64 bit. Tentunya menggunakan Windows 64 juga.

Pada posting ini "Cara Menampilkan Headers ListView di UserForm VBA Excel", saya akan mencoba berbagi dua macam cara untuk menampilkan Headers pada ListView.

Cara pertama judul Header ListView diletakkan pada kode secara langsung. Cara kedua Headers ListView menggunakan Headers tabel yang ada pada Sheet.

Perhatikan gambar format Gif dibawah yang menampilkan 2 buah ListView yang masing-masih menggunakan cara berbeda.

Langkah-langkah Cara Menampilkan Header ListView di UserForm VBA Excel.

Buka Excel, pilih tab Developer dan klik Visual Basic

Tambahkan UserForm, tambahkan ListView dengan cara klik ToolBox dan letakkan ke UserForm. Buatlah ListView1 dan ListView2

ListView1 akan kita gunakan untuk percobaan Headers yang kita tempatkan langsung dalam kode dan ListView2 akan kita gunakan untuk percobaan Headers dari Sheet

Properties UserForm dan ListView biarkan saja secara standar, Jadi jangan dikotak-katik lagi yeah..!!

Cara Pertama Penempatan Headers ListView Secara langsung dalam kode :

Percobaan dilakukan untuk ListView1

Klik kanan pada UserForm1, pilih View Code copy kode berikut dan letakkan pada UserForm_Intialize()

Private Sub UserForm_Initialize()

'Memberikan Judul pada ListView

With ListView1

.Gridlines = True

.View = lvwReport

.FullRowSelect = True

.ColumnHeaders.Add Text:="NO", Width:=25

.ColumnHeaders.Add Text:="NIS", Width:=35

.ColumnHeaders.Add Text:="NAMA", Width:=60

.ColumnHeaders.Add Text:="KELAS", Width:=40

.ColumnHeaders.Add Text:="ALAMAT", Width:=85

.ColumnHeaders.Add Text:="SIKAP", Width:=70

End With

End Sub

Selesai..!! Coba jalankan dengan klik Run, Muda bukan..!!

Cara Kedua Mengambil Judul Headers Dari Sheet :

Percobaan dilakukan untuk ListView2

Pada Sheet1 buatlah table di cell "A1" dengan judul headers NO, NIS, NAMA, KELAS dan ALAMAT. anda dapat menyesuaikan dengan kebutuhan sendiri untuk jadul tabelnya. Table dibuat dari cell "A1" karena kita akan mengambil baris pertama Excel sebagai Headers yang akan ditampilkan pada Headers ListView.

Klik kanan pada UserForm1, pilih View Code copy kode berikut dan letakkan pada UserForm_Intialize()

Private Sub UserForm_Initialize()

With Me.ListView2

.Gridlines = True

.HideColumnHeaders = False

.View = lvwReport

End With

'Deklarasi Variable

Dim wksSource As Worksheet

Dim rngData As Range

Dim rngCell As Range

'Set sheet yang akan di tampilkan

Set wksSource = Worksheets("Sheet1")

'Set range yang akan ditampilkan dimulai dari baris pertama A1

Set rngData = wksSource.Range("A1").CurrentRegion

'menambahkan judul Headers listbox

For Each rngCell In rngData.Rows(1).Cells

Me.ListView2.ColumnHeaders.Add Text:=rngCell.Value, Width:=65

Next rngCell

End Sub

Keterangan

(1) merupakan acuan baris pertama yaitu "A1"yang akan dijadikan Headers pada ListView, Jika ingin baris yang kedua anda tinggal menggantikan angka tersebut sesuai dengan baris yang diinginkan.

Selesai..!! Coba jalankan dengan klik Run, Muda bukan..!!

Kedua macam cara menampilkan Headers ListView mempunya fungsi yang sama untuk menampilkan judul Headers.

Namun cara yang kedua memiliki kelebihan yaitu akan mengambil semua data pada baris pertama sebagai Headers secara otomatis.

Sedangkan cara pertama, kita diharuskan memasukkan judul Headers ListView secara manual satu persatu. Terserah anda mau menggunakan yang bagaimana.

Demikian posting Cara Menampilkan Headers ListView di UserForm VBA Excel. Semoga dapat dikembangkan dengan keinginan dan kebutuhan masing-masing.