Notifications
Clear all

Trabalhando com MultiSelection do Listbox

6 Posts
2 Usuários
0 Reactions
1,514 Visualizações
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Senhores, não tenho muita experiência com a função Multiselection do LIstbox.
O caso é esse: Sempre que quero indicar para o Excel qual item o usuário selecionou no Listbox, eu uso a função variavel= Listbox1.Value
Mas se eu ativo a função Multiselect, ele já não entende mais e dá como nulo a variavel= Listbox1.value

Eu preciso de um loop que vá me dando os itens selecionados em uma determinada variável. Mais ou menos assim:

A listbox tem 10 itens e o usuário, selecionou os itens 1, 4, 6 e 7.
Preciso de um loop que dê um msgbox de cada vez dos itens que estão selecionados.

Alguma ideia senhores?

"O impossível, é só uma questão de tempo"

 
Postado : 08/06/2015 12:43 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde wolneypk,

Fiz um exemplo básico. Vê se ajuda.

Qualquer coisa da o grito.
Bernardo maia

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/06/2015 1:11 pm
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Bernardo, perfeito mestre!
Existem funções que realmente são simples, mas a falta de conhecimento de trabalhar com certos objetos e suas estruturas, faz toda a diferença;

Muito Obrigado pela força meu camarada!

"O impossível, é só uma questão de tempo"

 
Postado : 10/06/2015 4:56 am
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Bernardo, uma última pergunta; Como eu identifico se o usuário não selecionou nada fora do "For" ?
Por exemplo, você me passou a seguinte solução:

For a = 1 To i
If Me.ListBox1.Selected(a - 1) Then
MsgBox "Valor " & Me.ListBox1.List(a - 1, 1) & " selecionado."
End If
Next a

Eu queria, fora desse loop, identificar se o usuário selecionou algo ou não.
Se ele selecionou, ele entra no loop, se não, dá uma msg

"O impossível, é só uma questão de tempo"

 
Postado : 10/06/2015 5:04 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia wolneypk,

Segue mais opções incluindo a checagem.

Qualquer coisa da o grito.
Abraço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/06/2015 6:09 am
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Mais um vez, simples e descomplicado!
Muito Obrigado Bernardo ;)

"O impossível, é só uma questão de tempo"

 
Postado : 10/06/2015 8:31 am