Cara membuat tabel dalam LISTVIEW berwarna - Listview merupakan salah satu kontrol yang digunakan pada pemrograman Visual Basic (VB) maupun dalam pemrograman Visual Basic For Application (VBA), tampilan listview yang hampir mirip dengan tampilan kolom dalam sel worksheet merupakan salah satu kelebihannya dibandinkan kontrol yang serupa (baca Listbox). Dengan listview anda tidak perlu menghawatirkan jarak antara kolom karena fitur geser geser kolom dapat anda lakukan dengan mudah tanpa kode macro (baca koding).

0

Tips kali ini untuk pengguna excel yang sudah pro, jadi saya tidak menjelaskan secara terperinci langkah langkah penerapan dan kode macro yang digunakan, bagi anda yang ketinggalan mengenai pembahasan listview anda bisa melihat artikel saya sebelumnya silahkan lihat disini

Menampilkan hasil filter kedalam Listview
Menampilkan data dengan Listview
Pembahasan kontrol Listview

Bagi anda yang bingung artikel macam apa ini ?? maka anda perlu membaca artikel tentang VBA bagi pemula, silahkan baca disini, pada artikel dasar dasar VBA saya telah membuatkan tutorial yang paling mudah buat pemula

Dasar Dasar VBA

0

Silahkan perhatikan gambar diatas, angka 55 yang ditampilkan dalam tabel listview font-nya berwarna merah sedangkan fornt lainnya berwrna hitam, ini ada dua kemungkinan, kemungkinan pertama gambar tabel diatas adalah hasil editan admin asis10.com, kemungkinan yang kedua itu karena angka 55 merupakan angka standart ketidak lulusan siswa

Dan kemungkinan yang benar adalah kemungkinan nomor dua, sudah lebih dari 5 artikel sebelumnya membahas tentang rumus excel, salah satunya membahas tentang standart nilai kelulusan siswa.

Cara membuat tabel dalam LISTVIEW berwarna

Sebenarnya cara membuat tabel dalam listview itu bisa memodifikasi tampilan warna font-nya, baik listview maupun listbox sama sama mendukung fitur tersebut, caranya pun mudah, tinggal lihat jendela VBE bagian Properties > FontColor > pilih warna yang anda inginkan, misalkan warna merah, tinggal pilih kode &H000000FF&, dan hasilnya semua font akan menjadi warna merah

Akan tetapi ada kalanya dimana anda hanya menginginkan font yang berwarna adalah font yang memenuhi kriteria tertentu, misalkan yang font yang berwarna merah hanya nilai siswa yang dibawah standart yang anda tentukan , jika ini yang anda inginkan maka silahkan ikuti cara berikut ini

Sebelumnya silahkan download file latihan Cara membuat tabel dalam LISTVIEW berwarna

Download File Latihan
Link tersedia
Mau semua fle sampel silahkan klik > disini

Silahkan baca : Menandai nilai tertentu pada sel dengan Conditional Formating

Silahkan buka file yang telah anda download diatas, anda akan menemukan design form dengan kontrol Listview serta tabel data nilai hasil ulangan siswa, perhatikan tabel data dibawah ini

0

Anda akan menemukan warna merah pada kolom mapel matematika, dan warna merah ini saya buat manual dengan font merah

Masuk kejendela VBE , anda akan menemukan design form, dan untuk menampilkan tabel data nilai siswa anda cukup menambahkan kode macro dibawah ini diarea userform code


With Me.ListView1
.View = 3
With .ColumnHeaders
.Add , , Cells(2, 1).Value
.Add , , Cells(2, 2).Value
.Add , , Cells(2, 3).Value
.Add , , Cells(2, 4).Value
End With
.ListItems.Clear
For Each c In Sheet1.Range("A3:A" & Range("A1000").End(xlUp).Row)
Set LI = .ListItems.Add(, , c.Value)
LI.ForeColor = c.Font.Color
For j = 1 To 2
Set LSI = LI.ListSubItems.Add(, , c.Offset(0, j).Value)
LSI.ForeColor = c.Offset(0, j).Font.Color
Next j
Set LSI = LI.ListSubItems.Add(, , Format(c.Offset(0, 3).Value, "#,###.00"))
LSI.ForeColor = c.Offset(0, 3).Font.Color
Next c
End With


Atau lebih lengkap pakai kode macro yang dibawah ini

Private Sub UserForm_Initialize()
Dim j As Byte, i As Byte
Dim c As Range
Dim LI As ListItem
Dim LSI As ListSubItem
With Me.ListView1
.View = 3
With .ColumnHeaders
.Add , , Cells(2, 1).Value
.Add , , Cells(2, 2).Value
.Add , , Cells(2, 3).Value
.Add , , Cells(2, 4).Value
End With
.ListItems.Clear
For Each c In Sheet1.Range("A3:A" & Range("A1000").End(xlUp).Row)
Set LI = .ListItems.Add(, , c.Value)
LI.ForeColor = c.Font.Color
For j = 1 To 2
Set LSI = LI.ListSubItems.Add(, , c.Offset(0, j).Value)
LSI.ForeColor = c.Offset(0, j).Font.Color
Next j
Set LSI = LI.ListSubItems.Add(, , Format(c.Offset(0, 3).Value, "#,###.00"))
LSI.ForeColor = c.Offset(0, 3).Font.Color
Next c
End With
End Sub

Tekan tombol F5 dan lihat hasilnya, silahkan simpan jika berhasil

Listview menampilkan tabel data apa adanya, jadi kalau font pada tabel berwarna hijau maka listview juga akan menampilkan font dengan warna hijau dan seterusnya. Disini saya tidak menggunkan kode macro kusus untuk membuat font berwarna merah

Semoga anda dapat memahami kenapa saya menyertakan link Menandai nilai tertentu pada sel dengan Conditional Formating. Demikianlah Cara membuat tabel dalam LISTVIEW berwarna, tunggu lagi tips lainnya dari admin kami. Selamat malam dan selamat malam tahun baru 2018 bagi yang merayakanya
4 comments
This comment has been removed by the author.
readone99

mas, kalau record tertentu seperti cell “status” yang ada pada kolom ke 9, seperti : proses, kirim, dan terima berbeda-beda warna bagaimana koding vba excelnya ya..??

terimakasih sebelumnya.

Reply
Taufik Germ

Gan mau tanya cara edit data lewat userform dengan data tampil pada listview. Kemudian kita pilih data yg mau kita edit dengan cara klik data pada listviewnya langsung tampil di textbox.. setelah diubah kemudian klik edit dengan bantuan tombol edit

Reply
Taufik Germ

Gan mau tanya cara edit data lewat userform dengan data tampil pada listview. Kemudian kita pilih data yg mau kita edit dengan cara klik data pada listviewnya langsung tampil di textbox.. setelah diubah kemudian klik edit dengan bantuan tombol edit

Reply