Salam...,
Kali ini saya akan memberikan materi cara menampilkan data dalam Database Worksheet Excell pada Listview, hal ini tidak terlalu sulit sama hal dengan menampilkan data pada ListBox.
Ok Langsung saja kita mulai, seperti biasa buka MS.Excell :
1. Buatlah Tabel Database pada sheet1 dan isi beberapa data, seperti Tampak pada gambar dibawah ini :
2. Mari kita rancang Form tampilan datanya, Klik tab Developer pada Menu Excell, lalu klik Icon Visual Basic pada pojok kiri atas.
3. Setelah Masuk pada tampilan Visual Basic, klik kanan VBA Project, Pilh Insert lalu pilih UserForm sehingga tampil Form Baru.
4. Pada kotak ToolBox cek keberadaan Icon ListView, bila belum ada, kita masukkan iconnya dengan cara, klik Tools pada Menu Excell lalu Pilih Additional Controls,
Lalu Centang Microsoft ListView Control 6.0 (SP6)
Klik Ok, maka Anda akan mendapatkan Tools ListViews pada Kotak Tools Box
5. Rancanglah Form Tampilan Datanya seperti gambar dibawah ini:
7. Jalankan Applikasinya, maka hasilnya akan tampak seperti berikut:
Demikain Materi cara menampilkan Data Database Worksheets Excell pad ListView, Silahkan Anda kembangkan lagi sesuai dengan cara applikasi yang hendak anda buat.
Pelajari juga Tutorial berikut ini :
Memasukkan Data dari TextBox kedalam ListBox Pada VBAMs.Excell
Kali ini saya akan memberikan materi cara menampilkan data dalam Database Worksheet Excell pada Listview, hal ini tidak terlalu sulit sama hal dengan menampilkan data pada ListBox.
Ok Langsung saja kita mulai, seperti biasa buka MS.Excell :
1. Buatlah Tabel Database pada sheet1 dan isi beberapa data, seperti Tampak pada gambar dibawah ini :
2. Mari kita rancang Form tampilan datanya, Klik tab Developer pada Menu Excell, lalu klik Icon Visual Basic pada pojok kiri atas.
3. Setelah Masuk pada tampilan Visual Basic, klik kanan VBA Project, Pilh Insert lalu pilih UserForm sehingga tampil Form Baru.
4. Pada kotak ToolBox cek keberadaan Icon ListView, bila belum ada, kita masukkan iconnya dengan cara, klik Tools pada Menu Excell lalu Pilih Additional Controls,
Lalu Centang Microsoft ListView Control 6.0 (SP6)
5. Rancanglah Form Tampilan Datanya seperti gambar dibawah ini:
6. Masuk Koding Berikut ini pada Halaman Code dengan cara Klik incon View Code pada Pojok kiri atas VBA Project :
'Program menutup Applikasi
Private Sub CommandButton1_Click()
Unload Me
End Sub
'Menampilkan Data pada TextBox saat data diKlik pada ListView
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
TextBox1 = ListView1.SelectedItem
TextBox2 = ListView1.SelectedItem.SubItems(1)
TextBox3 = ListView1.SelectedItem.SubItems(2)
TextBox4 = ListView1.SelectedItem.SubItems(3)
TextBox5 = ListView1.SelectedItem.SubItems(4)
End Sub
'Memberikan Judul pada ListView
Private Sub UserForm_Initialize()
With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.ColumnHeaders.Add Text:="Tanggal Transaksi", Width:=100
.ColumnHeaders.Add Text:="Nama Produk", Width:=170
.ColumnHeaders.Add Text:="Satuan", Width:=60
.ColumnHeaders.Add Text:="Jumlah", Width:=40
.ColumnHeaders.Add Text:="Total Harga", Width:=100
End With
Call Tampil
End Sub
'Menampilkan data dari Worksheet Excell ke dalam ListView
Sub Tampil()
Dim Item As ListItem
Dim rekamandata As Integer
Dim i As Integer
ListView1.ListItems.Clear
rekamandata = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To rekamandata
Set Item = ListView1.ListItems.Add(Text:=Sheet1.Cells(i, 1))
Item.SubItems(1) = Sheet1.Cells(i, 2)
Item.SubItems(2) = Sheet1.Cells(i, 3)
Item.SubItems(3) = Sheet1.Cells(i, 4)
Item.SubItems(4) = Sheet1.Cells(i, 5)
Next
Label1.Caption = ListView1.ListItems.Count 'Menghitung Data Dalam ListView
End Sub
7. Jalankan Applikasinya, maka hasilnya akan tampak seperti berikut:
Demikain Materi cara menampilkan Data Database Worksheets Excell pad ListView, Silahkan Anda kembangkan lagi sesuai dengan cara applikasi yang hendak anda buat.
Pelajari juga Tutorial berikut ini :
Memasukkan Data dari TextBox kedalam ListBox Pada VBAMs.Excell
Selamat malam...saya mau bertanya...boleh ya.. Saya pendatang baru dalam pemprograman Vba Excel, saya membuat Form Login untuk masuk ke Worksheet, pertanyaan saya bagaimana Menampilkan Username di Worksheet tsb setelah Login, oya..User Name dan Password nya saya buat di sheet sendiri yg saya beri nama Data User, Mohon bantuan nya untuk Coding Vba nya Mas...Sebelum nya saya ucapkan terima kasih....
ReplyDelete