Usuário com melhor resposta
combobox texto some

Pergunta
-
olá pessoal, estou prexisando da ajuda de vocês.
tenho uma caixa de combinaçõa, e quero que quando eu clicar em um item, aparecer este item na caixa de combinação. já que quando eu clico no item da caixa de combinaçõa, o munu drop down some e o texto da combobox some.
"
combobox1.clear
combobox1.additem "item1"
combobox1.additem "item2"
"
Respostas
-
Tiago,
Faça a inclusão dos itens do ComboBox no evento Initialize do seu formulário. Exemplo:
Option Explicit
Private Sub UserForm_Initialize()
ComboBox1.AddItem "item1"
ComboBox1.AddItem "item2"
End Sub
Além disso, se a sua lógica depende que os itens sejam adicionados quando o usuário realiza o clique no combo, você pode verificar quantos itens existem antes de adicionar. Exemplo:
If (ComboBox1.ListCount = 0) Then
ComboBox1.AddItem "item1"
ComboBox1.AddItem "item2"
End If
A primeira opção é melhor.
Att.
Ari C. Raimundo- Sugerido como Resposta Ari C. Raimundo quarta-feira, 9 de dezembro de 2009 18:44
- Marcado como Resposta tiagofabre quinta-feira, 10 de dezembro de 2009 17:48
Todas as Respostas
-
-
olá, é o seguinte, é que eu coloco esse codigo, quando a pessoa clicar na flechinha da combobox, e se eu nao colocar o clear, toda vez que eu clicar na combobox, os itens serão adicionados(Repitindo os mesmos itens). então para que os itens nao se repitam eu coloco o clear. mas se há outra forma de fazer isso, fico muito agradecido se me ajudar...
-
Tiago,
Faça a inclusão dos itens do ComboBox no evento Initialize do seu formulário. Exemplo:
Option Explicit
Private Sub UserForm_Initialize()
ComboBox1.AddItem "item1"
ComboBox1.AddItem "item2"
End Sub
Além disso, se a sua lógica depende que os itens sejam adicionados quando o usuário realiza o clique no combo, você pode verificar quantos itens existem antes de adicionar. Exemplo:
If (ComboBox1.ListCount = 0) Then
ComboBox1.AddItem "item1"
ComboBox1.AddItem "item2"
End If
A primeira opção é melhor.
Att.
Ari C. Raimundo- Sugerido como Resposta Ari C. Raimundo quarta-feira, 9 de dezembro de 2009 18:44
- Marcado como Resposta tiagofabre quinta-feira, 10 de dezembro de 2009 17:48
-
-
olá, mas agora que voce me disse isso, percebi que isso nao pode ser feito se a combobox estiver na planilha, então eu iz assim, eu coloco o codigo e vcs digam se está certou ou nao e o que pode se melhorado
'quando a planilha1 for acionada, inserir o coódigo na combobox
então coloquei na workbook quando for aberta, ativar a planilha 1, para que a combobox tenha os campos inseridos.
Private Sub Workbook_Open() Worksheets("Plan1").Select End Sub Private Sub Worksheet_Activate() combobox1.AddItem "item 1" combobox1.AddItem "item 2" combobox1.AddItem "item 3" End Sub
-
-