Paleta de cores em userform

Share on facebook
Share on google
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Leia também...

Gerador de catálogos

Gerador de catálogos Com o Gerador de catálogos do Função Excel você poderá criar catálogos personalizados de maneira muito fácil e rápida. Os catálogos são gerados em formato

Ler »

Paleta de cores em userform

Essa é para aqueles que já tem uma certa familiaridade com macros no Excel, e já conhecem o uso dos userforms. Aqui você vai ver como criar uma paleta de cores em userform, como capturar o código dessas cores e como utilizar esses códigos em outros locais nas suas planilhas.

Este é um post mais curto, acredito que o vídeo abaixo consiga explicar tudo de forma muito mais simples do que um texto poderia fazer. Assim, pega a pipoca aí e aproveite a aula ;), o código de macro exibido no vídeo está mais abaixo.

Na parte inferior tem também a planilha usada no vídeo, caso queira fazer o download.

Vídeo de como usar uma paleta de cores em userform

Saiba como altero as cores do meu código VBA clicando aqui

Código da macro

Siga as instruções do vídeo para saber como e onde inserir o código abaixo.

Function PickNewColor(Optional i_OldColor As Double = xlNone) As Double
Const BGColor As Long = 13160660 'Cor do background
Const ColorIndexLast As Long = 32 'Index da última cor padrão da paleta

Dim myOrgColor As Double 'Cor original
Dim myNewColor As Double 'Cor selecionada
Dim myRGB_R As Integer 'Valores RGB das cores que serão
Dim myRGB_G As Integer 'exibidas como
Dim myRGB_B As Integer 'cores "Atuais"

'Salva a cor original da paleta, caso não venhamos a mudá-la
myOrgColor = ActiveWorkbook.Colors(ColorIndexLast)

If i_OldColor = xlNone Then
'Pega os valores RGB do background
Color2RGB BGColor, myRGB_R, myRGB_G, myRGB_B
Else
'Pega os valores RGB de i_OldColor
Color2RGB i_OldColor, myRGB_R, myRGB_G, myRGB_B
End If

'Chama o seletor de cores
If Application.Dialogs(xlDialogEditColor).Show(ColorIndexLast, myRGB_R, myRGB_G, myRGB_B) = True Then
'Usuário apertou "OK", então o Excel automaticamente mudou a paleta e leu a nova cor selecionada
PickNewColor = ActiveWorkbook.Colors(ColorIndexLast)
'Reseta a paleta de cores para o valor original
ActiveWorkbook.Colors(ColorIndexLast) = myOrgColor
Else
'Usuário apertou em "Cancelar" a paleta de cores não mudou, retorna a cor anterior
PickNewColor = i_OldColor
End If
End Function

'Converte uma cor para valor em RGB
Sub Color2RGB(ByVal i_Color As Long, o_R As Integer, o_G As Integer, o_B As Integer)
o_R = i_Color Mod 256
i_Color = i_Color \ 256
o_G = i_Color Mod 256
i_Color = i_Color \ 256
o_B = i_Color Mod 256
End Sub

Planilha de exemplo


Acompanhe o Função Excel
facebook-logo youtube-logo googleplus-logo twitter-logo

 

E aí, o que achou?

Compartilhe

Share on facebook
Share on twitter
Share on linkedin
Share on whatsapp
Share on telegram

Planilhas prontas

Planilha de Controle Uber, Cabify & 99 Pop

Com a Planilha de Controle Uber, Cabify & 99 Pop você terá total controle de seus ganhos e gastos como motorista, sabendo de onde vem e para onde vai seu dinheiro.
Com esta planilha você terá em detalhes todo o fluxo de dinheiro que envolve seu trabalho como motorista, e poderá controlar melhor sua renda.

Saber mais »

Leia também...

Planilha de Controle Uber, Cabify & 99 Pop

Com a Planilha de Controle Uber, Cabify & 99 Pop você terá total controle de seus ganhos e gastos como motorista, sabendo de onde vem e para onde vai seu dinheiro.
Com esta planilha você terá em detalhes todo o fluxo de dinheiro que envolve seu trabalho como motorista, e poderá controlar melhor sua renda.

Saber mais »
Logo - Ícone

COMPARTILHE COM O MUNDO

Gostou do artigo? Não seja egoísta, compartilhe!

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on whatsapp
WhatsApp

VOCÊ ESTÁ POR DENTRO?

Junte-se a lista de e-mails do Função Excel

Inscreva-se agora