Fóruns
Microsoft Excel - 2...
2024 - Format. Cond...
CONDICIONAL COM VAR...
 
Notifications
Clear all

CONDICIONAL COM VARIAS OPÇÕES

 
2024 - Format. Condicional - Datas & Horas
10 Posts
1 Usuários
0 Reactions
3,262 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!!

Pessoal, preciso formatar uma celula, porem ela tem neste caso 5 opções

Ex:

celula b5

quando for p = amarelo
quando for b = cinza
quando for c = verde
quando for rr = laranja
quando for er = azul.... ou mais se precisar

tentei fazer pelo formart => conditional formatting, contudo ela só me da 3 opçes.

Obrigado....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 10:50 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

No Office2003 há mesmo apenas 3 condições na Formatação Condicional (4, considerando a nativa).
Na versão 2007 há muito mais.

Mas pode fazer através de VBA.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 12:29 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá,

Fica a curiosidade de saber como fazer isso em VBA.

Pode mostrar pra gente?

Um bom final de semana a todos.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 12:41 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Exemplo simples:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B5") = "p" Then
Range("B5").Interior.ColorIndex = 6
ElseIf Range("B5") = "b" Then
Range("B5").Interior.ColorIndex = 4
ElseIf Range("B5") = "c" Then
Range("B5").Interior.ColorIndex = 35
ElseIf Range("B5") = "rr" Then
Range("B5").Interior.ColorIndex = 3
ElseIf Range("B5") = "er" Then
Range("B5").Interior.ColorIndex = 34
ElseIf Range("B5") = "xx" Then
Range("B5").Interior.ColorIndex = 12
Else
Range("B5").Interior.ColorIndex = xlNone
End If

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 1:36 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ok... Mas se puder enviar em Vb Beleza...

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 1:38 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ok... VAleu;...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 1:38 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Donizetti, os números que coloquei não equivalem às cores que você citou.

Se precisar personalizar de outra forma, grava uma macro para obter o ColorIndex desejado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 1:52 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu Edson,

Sou iniciante em VBA, mas já consegui entender essa estrutura aí,

Obrigado pela postagem.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/08/2009 2:29 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

aqui ja finalizou entao?
desculpa a demora, sabe como é trabalho :(

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/08/2009 10:24 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ok.. e obrigado mais uma vez... :lol:

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/08/2009 10:27 pm
Forum Jump:
Próximo Tópico