none
Mudar a cor da listview com uma condição RRS feed

  • Pergunta

  • Boa tarde meus amigos. 

    Gostaria de saber qual o código em vba excell que uso para mudar a a cor da listview do meu formulário, por uma condição. 

    Ex: Quero que quando a coluna "J" do meu formulário for um numero negativo fique vermelho e se for um numero positivo azul. 

    Segue o codigo que estou usando. So que o problema deste codigo que quando uso o filtro e faço uma busca na "textboxfiltro" na minha listview ele não carrega a cor.

    Se puder me ajudar a melhorar meu codigo ou um codigo similiar.

    Grato pela atenção

    lsLista.ListItems.Clear

        'Adiciona itens na ListView1
        ultimalinha = Plan5.Cells(Rows.Count, "a").End(xlUp).Row
        For x = 2 To ultimalinha


    Set li = lsLista.ListItems.Add(Text:=Plan5.Cells(x, "a").Value)
    li.ListSubItems.Add Text:=Plan5.Cells(x, "b").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "c").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "d").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "e").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "f").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "g").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "h").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "i").Value
    li.ListSubItems.Add Text:=Plan5.Cells(x, "j").Value

    If Plan5.Cells(x, "j") <= 0 Then
    li.ForeColor = RGB(255, 0, 0)
    li.ListSubItems(1).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(2).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(3).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(4).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(5).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(6).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(7).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(8).ForeColor = RGB(255, 0, 0)
    li.ListSubItems(9).ForeColor = RGB(255, 0, 0)

    Else
    li.ForeColor = RGB(0, 0, 255)
    li.ListSubItems(1).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(2).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(3).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(4).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(5).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(6).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(7).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(8).ForeColor = RGB(0, 0, 255)
    li.ListSubItems(9).ForeColor = RGB(0, 0, 255)
    End If
    Next

    sábado, 6 de julho de 2013 16:20