[Excel] Como pintar uma coluna via VBA?

[marlonsaveri]

Gostaria de saber por que o seguinte código, para qualquer cor que eu coloque, a coluna fica preta:

Sub seleciona_pinta_coluna()

ActiveCell.EntireColumn.Interior.Color = 11

ActiveCell.EntireColumn.Select

End Sub

Tentei de outra forma, também sem sucesso, fazendo

ActiveCell.EntireColumn.Select

selection.interior.color = 32

[Patropi]

Boa noite

Fiz uma planilha exemplo com 2 tipos de cores para o VBA.

Cada botão utiliza um tipo de Cor.

Anexei até uma tabela de cores do segundo exemplo.

Salvei a planilha em 2003 porque você não informou qual a versão do teu Excel.

Selecione a coluna e clique no botão.

Veja se isto que você quer:

http://www.4shared.com/document/SyJ0iFBR/Exemplo_Pinta_Colunas_Marlonsa.html

Dê retorno.

Um abraço

[marlonsaveri]

Patropi, muito obrigado por tomar tempo em nos responder.

Quer dizer que

"ActiveCell.EntireColumn.Interior.Color" deve ser igualada a uma cor escrita do tipo "RGB(255, 0, 0)" e, quando usamos index, aí sim podemos simplesmente colocar um número?!

"ActiveCell.EntireColumn.Interior.ColorIndex = 48"

e ainda nos deixou a tabela com o código das cores. Apesar de não ser o item mais relevante de meu trabalho, agradeço pela atenção em nos responder.

[Patropi]

Boa tarde marlonsaveri

No VBA Excel, há duas propriedades referentes as cores que são Color e ColorIndex.

A propriedade ColorIndex utiliza as 56 cores pré-definidas do VBA, conforme a tabela que enviei na planilha.

Exemplo:

Sub Pintar ColorIndex()
ActiveCell.Interior.ColorIndex = 48
End Sub

A propriedade Color utiliza as cores no formato RGB (Red, Green, Blue), conforem exemplo abaixo:

Código

RGB Descrição

255,0,0 Retorna o máximo de vermelho

0,255,0 Retorna o máximo de verde

0,0,255 Retorna o máximo de azul

0,0,0 Retorna a cor preta

255,255,255 Retorna a cor branca (todas as cores)

255,255,0 Retorna a cor amarela

128,128,128 Retorna a cor cinza

Exemplo:

Sub Pintar Color()
ActiveCell.Interior.Color = RGB(255,  0, 0,)
End Sub

Fonte: dicasdeexcel

Um abraço e Feliz 2011

[marlonsaveri]

Legal, então é assim que RGB funciona! E máximo de vermelho com máximo de verde dá amarelo (diferentemente da mistura de tintas).

Feliz 2011

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.