listview sütun renklendirme

[abdullahss]

formül uygulanan sütünları nasıl renklendiririz.

 

[abdullahss]

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]

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