É 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?
-
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.– Luiz Vieira9/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.– caezar9/01/2017 às 13:17
-
1Bom, 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.– Luiz Vieira9/01/2017 às 13:22
-
1Obrigado 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.– caezar9/01/2017 às 13:41
-
1Ué... 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?– Luiz Vieira9/01/2017 às 14:49
|
Mostrar mais 3 comentários
1 Resposta
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.