Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cor hexadecimal
 
Notifications
Clear all

Cor hexadecimal

 
2024 - VBA & Macros
7 Posts
1 Usuários
0 Reactions
3,448 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Prezados,

Preciso de uma rotina vba que pinte uma célula conforme seu conteúdo.

O conteúdo, no caso, é um código hexadecimal de cor.

Por exemplo: se a célula A3 conter o código #000000 a célula ficará preta se eu mudar o código para #00ff00 a célula ficará verde (conforme esse código hexadecimal).

Gostaria que esse opção estivesse disponível para todas as células do intervalo A3:Z80.

Obgd.

 
Postado : 23/12/2012 2:01 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Veja se te ajuda..

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cell As Range
Set rng = Application.Intersect(Range("A3:Z80"), Target)
On Error Resume Next
If Not rng Is Nothing Then
    For Each cell In rng
        If cell.Value Like "[#]??????" Then
            cell.Interior.Color = "&H" & Mid(cell.Value, 2)
        End If
    Next cell
End If
End Sub
 
Postado : 23/12/2012 2:56 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpe a ignorância...mas aonde eu colo esse código?
Obgd

 
Postado : 24/12/2012 10:13 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Após o excel aberto, abra o Editor VBE com as teclas Alt+F11

Do lado esquerdo vera os corpo de código das planilhas, escolha a referencia de planilha que irá usar.
Veja a figura e entenderá..

Att

 
Postado : 24/12/2012 10:22 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre,

não funcionou. Vou tentar achar o problema e te passo um feedback.

Obgd pela atenção.

 
Postado : 24/12/2012 4:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!
Formatar as células como texto e verificar se seus valores hexadecimais são inseridas como 6 dígitos hexadecimais ('0 'através '9', 'A' através 'F' ou 'f' 'a' ), em seguida, executar esta macro ...
Baixe o arquivo em:
http://www.sendspace.com/file/74vxup

Att

 
Postado : 24/12/2012 4:13 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre,

Deu certo!

Muito Obrigado e desculpe a demora.

Abs.

 
Postado : 09/01/2013 10:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico