• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Snows

Formatação Condicional

5 mensagens neste tópico

Olá:

Tenho uma fórmula com ifs na coluna F que me dá valores numéricos consoante o que eu escrever nas colunas D e E.

Pretendo que esses números que dá a fórmula estejam associados a uma cor. A formatação condicional do Excel não resolve pois tenho 5 opções de saída.

Coloquei o seguinte código mas dá um erro. Podem ajudar-me?

'Private Sub Worksheet_Calculate()

'Dim oCell As Range

'Set oCell = Range("F")

            ' If oCell.Value = "1" Then oCell.Interior.Color = RGB(255, 0, 0)

            'If oCell.Value = "2" Then oCell.Interior.Color = RGB(255, 153, 0)

            ' If oCell.Value = "3" Then oCell.Interior.Color = RGB(255, 255, 153)

            ' If oCell.Value = "4" Then oCell.Interior.Color = RGB(153, 204, 255)

            'If oCell.Value = "5" Then oCell.Interior.Color = RGB(202, 255, 202)

'End Sub

Snows

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ola jovem

para poder te ajudar melhor seria bom que colocasses o erro que ele da assim poderei analisar tanto o erro como o que tu queres fazer

ok

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ora bem...

À partida o teu não me parece propriamente errado mas se colocasses aqui o erro seria mais fácil tentar perceber...

De qualquer forma deixo uma página que já visualizei uma vez que pretendia o mesmo... O código é bem mais complexo...

http://www.cpearson.com/excel/CFColors.htm

Já agora, caso consigas resolver o teu problema, coloca aqui o código para ajudares o pessoal interessado (eu por exemplo).

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Uma contribuição para este tópico:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A2:F" & Rows.Count)) Is Nothing Then
'Se utilizar área além da coluna F alterar
    
    With Target
        .Interior.ColorIndex = xlNone  'A princípio não terá preenchimento
        .Interior.Pattern = xlSolid    '            será sólido
        .Font.Bold = False            '            sem negrito
        .Font.ColorIndex = 1         '            fonte preta
        
        Select Case .Value
        Case 1: Cor = 6
        Case 2: Cor = 8
        Case 3: Cor = 11: .Font.Bold = True: .Font.ColorIndex = 2
        Case 4: Cor = 10: .Font.Bold = True: .Font.ColorIndex = 2
        End Select
        .Interior.ColorIndex = Cor
    End With
End If

Application.ScreenUpdating = True
End Sub

:P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora