Qual a função para cor?

[chico_im 0]

Queria transforma uma cor que está em rgb (long) para hexadecimal, ag sabe?Ex: rgb(200,255,120) para algo no formato: #FF33E0VlwsChico

[Jeff_henrique 0]

Não sei se isso resolve ou se tem agum jeito mais facil... mas eu testei aqui e parece que te atendex = Hex(RGB(0, 255, 255))Se for isso q se tava precisando da um toque

[chico_im 0]

Vlw ae cara! era essa função mesmo que eu tava procurando!

 

o problema e que ela gera um padrão invertido ao que eu preciso, que são cores pra sites de internet, dae eu adaptei a função e ficou ok:

 

' Coleta um valor decimal e retorna uma string formatada em cor hexadecimal tipo #000000Function FCOR(ByVal Valor As Long) As String' primeiro formata pra seis digitosFCOR = "000000" & Hex(Valor)' pega so os 6 primeiros valores da direitaFCOR = Right(FCOR, 6)' Agora inverte os valores doi a dois pq a funcao hex gera invertido do htmlDim cont, resultresult = ""For cont = 1 To 6 Step 2	result = Mid(FCOR, cont, 2) & resultNextFCOR = resultEnd Function

Assim resolveu tudo,

Brigado ae! :)