Cores vba

[CasaDoHardware]

Boa noite 

 

Ate a versao 2003

 

Ao selecionar uma cor durante a gravação de uma macro o excel retornava um numero inteiro e que podiamos utilizar de acordo com o desejado.

 

Nas versões apos o 2007 os numeros referencia as cores sao numeros decimais ou negativos e ate então não consegui utilizar o numero para uso em macros.

 

Por exemplo

 

sub corvba ()

 

activecell.interior.colorindex = 6

 

end sub 

 

Vai pintar a celula de AMARELO

 

 

Ja este codigo 

 

sub corvba ()

 

activecell.interior.colorindex = -0.499984740745262

 

end sub 

 

Nao funciona

 

 

Como fazer para usar as novas cores da paleta de cores do Excel.

[Basole]

Tente usar o interior.color

 

Sub corvba()
 
ActiveCell.Interior.Color = -0.499984740745262
 
End Sub

 

[CasaDoHardware]

Nao funcionou...

 

Pintou a celula de Preto ao invés da cor esperada...que pertence as cores do tema.

 

 

[Basole]

Citação

Ate a versao 2003

Ao selecionar uma cor durante a gravação de uma macro o excel retornava um numero inteiro e que podiamos utilizar de acordo com o desejado.

Nas versões apos o 2007 os numeros referencia as cores sao numeros decimais ou negativos e ate então não consegui utilizar o numero para uso em macros.

 

@CasaDoHardware pra mm aqui no excel 2007,2010 e 2013 funciona perfeitamente desta forma: 

 

É isso que voce esta tentando fazer ? 

Sub corvba()
 
ActiveCell.Interior.ColorIndex = 6
 

End Sub

 

 

[CasaDoHardware]

Basole o codigo que você postou funciona se você usar um numero inteiro que vai de 1 a 56, acima disso nao existe nenhum numero funcione pelo menos eu nao encontrei e testei ate 1000000

 

Para as cores que esta no arquivo anexo e muitas outras 

 

O codigo acima nao funciona

 

Veja você mesmo

 

Nao coloquei nenhum codigo mas você pode testar com os numeros que estão no arquivo. pois estes se referem ao numero da cor de acordo com o gravador de macros.

 

 

cor vba basole.xlsx