Início
![[RESOLVIDO]Concatenar Valores não Duplicados Empty](https://2img.net/i/empty.gif)
pengo 17/8/2016, 15:59Olá Pessoal,
Vamos a mais uma dúvida.
Tenho o código abaixo que concatena os valores que eu selecionei em uma ListBox de seleção múltipla, ele funciona perfeitamente, porém gostaria de melhora-ló.
No caso minha ListBox possui duas colunas, e em uma dessas colunas o valor preenchido é por números, e que eles podem se repetir dentre os diferentes registros, eu gostaria que o código concatenasse esses números, porém somente os diferentes.
Por exemplo, atualmente se ele selecionar 5 registros, que possuem os números, 3, 5, 3, 1, 5 ele irá concatenar e ficar assim 3/5/3/1/5, mas como o número 3 e 5 são repetidos, eu gostaria que ele concatenasse 3/5/1.
Espero que tenham me entendido, e que seja possível uma solução para o problema.
Obrigado.
Vamos a mais uma dúvida.
Tenho o código abaixo que concatena os valores que eu selecionei em uma ListBox de seleção múltipla, ele funciona perfeitamente, porém gostaria de melhora-ló.
No caso minha ListBox possui duas colunas, e em uma dessas colunas o valor preenchido é por números, e que eles podem se repetir dentre os diferentes registros, eu gostaria que o código concatenasse esses números, porém somente os diferentes.
Por exemplo, atualmente se ele selecionar 5 registros, que possuem os números, 3, 5, 3, 1, 5 ele irá concatenar e ficar assim 3/5/3/1/5, mas como o número 3 e 5 são repetidos, eu gostaria que ele concatenasse 3/5/1.
Espero que tenham me entendido, e que seja possível uma solução para o problema.
- Código:
Dim cValue As Double
Dim vItem As Variant
For Each vItem In Me!Lista.ItemsSelected
varConcat = varConcat & Lista.ItemData(vItem) & "/"
Next vItem
ConcatListBox = varConcat
Obrigado.
