2

É possível recuperar os valores selecionados de uma caixa de listagem (Controle de formulário) com a opção de seleção múltipla, por formula ou Vba?

segue a imagem do controle que quero recuperar os valores

8
  • 1
    É sim. Mas o que você já tentou? Procure produzir um Exemplo Mínimo, Completo e Verificável (nem que seja só ilustrando o seu cenário com imagens curtas), para que quem tiver interesse em te ajudar poder entender melhor onde exatamente está a sua dificuldade. 9/01/2017 às 13:13
  • Entendo perfeitamente, mas o caso é que imagino fazer isso pelo VBA cono se fosse um controle active x, porém não sei nem como referenciar um controle de formulário.
    – caezar
    9/01/2017 às 13:17
  • 1
    Bom, então a sua pergunta é: "como acessar o valor de um combobox (caixa de listagem) no Excel?". Isso não tem nada a ver com ActiveX e não necessariamente depende de VBA. Porque outra coisa que vc precisa deixar claro é se está falando de um Controle VBA mesmo, ou de uma lista de validação nativa do Excel. 9/01/2017 às 13:22
  • 1
    Obrigado Luiz. Estou falando de uma caixa de listagem mesmo. No caso não me interessa uma lista de validação, pois preciso que o usuário tenha a opção de selecionar mais de 1 item. Por isso quando o usuário seleciona 2 ou 3 itens, preciso de alguma forma saber quais são estes itens. Gostaria de fazer isso usando um controle de formulário e não um Active X.
    – caezar
    9/01/2017 às 13:41
  • 1
    Ué... o código é exatamente o mesmo para referenciar um controle adicionado via aba de Desenvolvedor. Se não está te servindo, talvez seja porque a sua dificuldade não está mesmo clara. Por que você não edita a pergunta e fornece um exemplo (imagens pequenas ajudam) do que vc está fazendo? 9/01/2017 às 14:49

1 Resposta 1

2

Sim, é possível. Você deverá criar um loop p/ verificar cada um dos itens na listbox e fazer o que deseja.


COD 1

Dim k As Long
Dim s As String

For k = 0 To List1.ListCount - 1
    If List1.Selected(k) Then
        s = List1.List(k)
        ' ... fazer algo com o item selecionado
    End If
Next

COD 2

Dim lItem As Long

For lItem = 0 To List1.ListCount - 1    
    If List1.Selected(lItem) = True Then    
        MsgBox(List1.List(lItem))    
    End If    
Next    

Ou então, caso esses códigos acima não funcionem, você pode tentar rodar o modelo proposto nessa resposta.


EDIT: para aprender a manipular list boxes, dê uma olhada neste link.

4
  • Mas esse é um exemplo para um control Active X, certo? Como fazer o mesmo para um controle que não seja Active x?
    – caezar
    9/01/2017 às 13:18
  • 2
    @caezar este link pode te ajudar...
    – dot.Py
    9/01/2017 às 15:31
  • Perfeito! Era isso mesmo! Edita sua resposta para eu colocar como respondido.
    – caezar
    9/01/2017 às 15:35
  • @caezar feito. que bom que funcionou!
    – dot.Py
    9/01/2017 às 15:53

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .