none
combobox texto some RRS feed

  • 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"

    "
    domingo, 6 de dezembro de 2009 02:25

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
    terça-feira, 8 de dezembro de 2009 00:34

Todas as Respostas

  • "
    combobox1.clear
    combobox1.additem "item1"
    combobox1.additem "item2"

    "

    Este é o código que vc usa?

    combobox1.clear limpa a caixa, esperimente retirar essa linha.

    Ou explique melhor.

    jose
    domingo, 6 de dezembro de 2009 03:05
  • 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...
    terça-feira, 8 de dezembro de 2009 00:14
  • 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
    terça-feira, 8 de dezembro de 2009 00:34
  • obrigado mesmo \o/, eu estava fazendo daquela forma é pq eu nao sabia como fazer...

    voces nao tem alguma apostila, tutorial na net pra me indicar, ja que voces devem estar me xingando já de tantas perguntas que eu faço ^^
    terça-feira, 8 de dezembro de 2009 02:05
  • 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
    
    quinta-feira, 10 de dezembro de 2009 01:45
  • Tiago,

    Particularmente acho melhor você colocar todo o código no evento Open. Se o usuário alternar planilhas novamente você terá o mesmo problema, a não ser que coloque o if antes de adicionar os items.

    Att.

    Ari C. Raimundo
    quinta-feira, 10 de dezembro de 2009 01:56
  • Vlw ae cara muito obrigado ajudou muito ^^
    quinta-feira, 10 de dezembro de 2009 17:42