Wednesday, March 15, 2017

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.

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.


Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon