Jump to content
m90mine

combobox com cores diferente excel

Recommended Posts

m90mine

Boas,

Preciso de uma ajudazinha tenho uma combobox, com uma lista, e em cada opção queria associar uma cor diferente como poderei fazer isso?

cmps

Share this post


Link to post
Share on other sites
Gnrtuga

Boas, eu fazia assim, associava ao evento change (clica duas x em cima da combobox) uns if's ... talvez associado ao index da combobox (zero é o primeiro e por ai fora) e dentro dos ifs metes a propriedade BackColor = 210, por exemplo...

Não deve ser a melhor solução, mas funciona... :)

Dica, ao escreveres o nome do objeto tipo Combobox1 e depois ao clicares (.) ponto aparece-te uma lista, que são as propriedades do objeto. Brinca com isso e descobre.

Boa Sorte


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
m90mine

Bem, eu tenho isto mas não faz nada

Private Sub UserForm_activate()

If Me.ComboBox2.Text = "ARROZ" Then

Me.ComboBox2.BackColor = &HFF&

Me.ComboBox2.Font = Bold

Me.ComboBox2.ForeColor = &HFFFFFF

End If

End Sub

A primeira opção que tenho no ComboBox É ARROZ

Share this post


Link to post
Share on other sites
Gnrtuga

Ora boas, estás a meter no sitio errado.... carrega o código no evento change

Private Sub ComboBox2_Change()
If Me.ComboBox2.Text = "ARROZ" Then
Me.ComboBox2.BackColor = &HFF&
Me.ComboBox2.Font = Bold
Me.ComboBox2.ForeColor = &HFFFFFF
End If
End Sub

assim funciona... acho que devias ir pelo índice, mas eu sou daqueles que acha que desde que funcione está bom... :) não é a melhor politica eu sei...

devias acrescentar um else para voltar à cor inicial caso não seja arroz..

Para chegares ao evento change clica duas vezes na combobox.

Fika bem.

Edited by Gnrtuga

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
m90mine

Assim ao mudar mudou tudo de cor :s como faço para atribuir só a escolha "ARROZ"???

Share this post


Link to post
Share on other sites
Gnrtuga

Boas!

Lista = ComboBox1.ListIndex
If Lista = 0 Then
With ComboBox1
.BackColor = 220
.ForeColor = 110
End With
Else
ComboBox1.BackColor = 80
End If
End Sub

Experimenta outros valores nas cores.

Boa Sorte

Edited by Gnrtuga

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
Gnrtuga

mudo em Private Sub ComboBox2_Change() ???

No modo de desenho do formulário, clicas 2x em cima da combobox que queres, ele vai-te criar o procedimento automaticamente (sim ,private sub Combobox2_Change). copias o código do post anterior e colas dentro do procedimento, só tens de ver se o nome da combobox (no if) é o mesmo.


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
Gnrtuga

Sim, o objectivo era esse, sendo que zero é o primeiro item da tua lista, 1 é o segundo e por ai fora. Tens de escolher o índice que corresponde ao arroz, e seleccionar a cor que queres, e sempre que há uma alteração na lista ela muda de cor...

Experimenta adicionar vários itens e cores diferentes para cada uma delas para perceberes bem o funcionamento.

Vê aqui as cores http://web.njit.edu/~kevin/rgb.txt.html


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
Gnrtuga

Se não estou em erro, o VBA não suporta a opção de cada item da lista ter uma cor diferente, acho que apenas o .NET suporta essa opção, mas eu também percebo pouca da coisa.

Assim como está, sempre que mudas a opção ele vai alterar a lista toda para a cor dessa opção. No máximo deve ser possível arranjar qualquer coisa para dar a ilusão de que muda de cor, tipo outro evento... e não ia dar o efeito que pretendes..


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.