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...

Módulo de um número

Módulo de um número Definir o módulo de um número, ou seu valor absoluto, nada mais é do que tornar um número negativo em positivo,

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

Composição de custos

Calcule e analise todos os custos diretos da produção de seus produtos, seja qual for o tamanho da sua empresa e seu ramo de atuação.

Gere relatórios detalhados que exibem a composição do custo de cada produto, de forma individual ou conjunta. Melhor precifique seus produtos mantendo uma margem de lucro de que você deseja.

Faça simulações com preços de insumos e veja o impacto de cada um na composição total de seu produto final.

Saber mais »

Leia também...

Bolão da Copa do Mundo FIFA 2018

Com o Bolão da Copa do Mundo FIFA 2018 do Função Excel, você terá um planilha super confiável, segura, fácil de mexer e de visual super profissional para controlar o bolão com seus amigos, familiares e principalmente, os colegas de trabalho.

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