Search

A carregar...

Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-02-01
Como é sabido, o Excel apenas dá a possibilidade de incluir 3 formatações condicionais:

more

Mas, com um pouco de código VBE, é possí­vel incluir muitas mais formatações condicionais. Para tanto, basta clicar com a tecla direita do rato no tabulador da folha:

morethan3a

escolher "Ver Código" e escrever o seguinte:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    With Target
        Select Case LCase(.Value)
        Case Is = "teste1": .Interior.ColorIndex = 5
        Case Is = "teste2": .Interior.ColorIndex = 6
        Case Is = "teste3": .Interior.ColorIndex = 7
        Case Is = "teste4": .Interior.ColorIndex = 8
        Case Is = "teste5": .Interior.ColorIndex = 9
        Case Else
            .Interior.ColorIndex = xlNone
        End Select
    End With
End Sub


O resultado será, por exemplo ( de notar que a formatação condicional, neste caso, abrange toda e qualquer célula da coluna A):

morethan3