Ir para conteúdo
Fórum Script Brasil
  • 0

: ( Formula Excel


Clfernan

Pergunta

Pessoal

E ai beleza... preciso de ajuda. Preciso fazer uma formula no excel como se fosse uma formatação condicional (formatação condicional NÃO serve). É o seguinte preciso a seguinte coisa:

=se(A2<5;(pinte de vermelho);se(A2>5;(pinte de azul);se(A2=5;(pinte de amarelo)))

Como o arquivo que tenho são mais que 3 vairações eu precisaria da fórmula.. por favor me ajudem... blink.gif

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Pessoal

E ai beleza... preciso de ajuda. Preciso fazer uma formula no excel como se fosse uma formatação condicional (formatação condicional NÃO serve). É o seguinte preciso a seguinte coisa:

=se(A2<5;(pinte de vermelho);se(A2>5;(pinte de azul);se(A2=5;(pinte de amarelo)))

Como o arquivo que tenho são mais que 3 vairações eu precisaria da fórmula.. por favor me ajudem... blink.gif

vá em Ferramentas / macro / editor do visual basic

Vá em inserir modulo e copie esse codigo para lá

Sub cor()

If Range("a2").Value < 5 Then

Range("A2").Select

Selection.Interior.ColorIndex = 3

ElseIf Range("A2").Value = 5 Then

Range("A2").Select

Selection.Interior.ColorIndex = 6

ElseIf Range("A2").Value > 5 Then

Range("A2").Select

Selection.Interior.ColorIndex = 5

End If

End Sub

Feche o editor do visual basic, e agora pode ser um botão que está na barra de formulario(exibir barra de ferramentas / Formulario) e coloque a macro dentro desse botão

Pronto, digite um valor na celula a2 e clique no botão,

Caso você não queira ficar clicando no botão toda vez que digitar na célula a2:

esqueça os passos acima:

vá em Ferramentas / macro / editor do visual basic

clique que plan1 e escolha na parte de cima Worksheet e cole o codigo lá

Ficará Assim:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sub cor()

If Range("a2").Value < 5 Then

Range("A2").Select

Selection.Interior.ColorIndex = 3

ElseIf Range("A2").Value = 5 Then

Range("A2").Select

Selection.Interior.ColorIndex = 6

ElseIf Range("A2").Value > 5 Then

Range("A2").Select

Selection.Interior.ColorIndex = 5

End If

End Sub

End Sub

beleza??? wink.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,1k
×
×
  • Criar Novo...