PDA

Tüm Versiyonu Göster : listview sütun renklendirme


abdullahss
03-03-2012, 14:54
formül uygulanan sütünları nasıl renklendiririz.

abdullahss
03-03-2012, 19:25
Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
For i = 2 To 20
.ColumnHeaders.Add , , Cells(1, i), 81
Next i
For i = 2 To 10
y = y + 1
.ListItems.Add , , Cells(i, 1)
.ListItems(y).SubItems(1) = Cells(i, 5)
.ListItems(y).SubItems(3) = Cells(i, 6)
.ListItems(y).SubItems(5) = Cells(i, 7)

.ListItems(y).ForeColor = RGB(255, 0, 0)
.ListItems(y).ListSubItems.Item(3).ForeColor = RGB(255, 0, 0)
.ListItems(y).ListSubItems.Item(5).ForeColor = RGB(255, 0, 0)
Next i
End With
End Sub



böyle bişey olacak ama yapamıyorum yardım lütfen

halit3
03-03-2012, 20:50
Private Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
For i = 2 To 20
.ColumnHeaders.Add , , Cells(1, i), 81
Next i
For i = 2 To 10
y = y + 1
.ListItems.Add , , Cells(i, 1)
.ListItems(y).SubItems(1) = Cells(i, 5)
.ListItems(y).SubItems(3) = Cells(i, 6)
.ListItems(y).SubItems(5) = Cells(i, 7)

.ListItems(y).ForeColor = RGB(255, 0, 0)
.ListItems(y).ListSubItems.Item(3).ForeColor = RGB(255, 0, 0)
.ListItems(y).ListSubItems.Item(5).ForeColor = RGB(255, 0, 0)
Next i
End With
End Sub



böyle bişey olacak ama yapamıyorum yardım lütfen

Sorunuza aşağıdaki linkde cevap verilmiştir.

http://www.excel.web.tr/f48/listview-toplama-bolme-carpma-yardym-lutfen-t112586.html#post613068