Formatando Coluna ListBox

2024 - VBA & Macros

Post Recente por leandroxtr 7 anos atrás

3 Posts

2 Usuários

0 Reactions

3,208 Visualizações

RSS

leandroxtr

(@leandroxtr)

Posts: 447

Reputable Member

Topic starter

Bom dia,

Estou com um problema na formatação do meu ListBox.

Quando vinculo as informações do listbox diretamente com a planilha através do RowSource, a formatação vem perfeita. No entanto, quando alimento a list via código (que é a minha necessidade para a determinada ocasião), a formatação da coluna que contém os valores fica toda avacalhada (sem ponto, casas decimais zeradas, etc).

Existe algum código para formatação de uma coluna específica do ListBox? (Exemplo anexo)

Obrigado e abraços!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

Postado : 29/06/2017 8:15 am

Syrax

(@syrax)

Posts: 160

Estimable Member

leandroxtr,

Veja se isso te ajuda,

Na sua planilha, substitua isso

.List(linhalistbox, 0) = ws.Cells(linha, 1)
.List(linhalistbox, 1) = ws.Cells(linha, 2)

por isso

.List(linhalistbox, 0) = Format(ws.Cells(linha, 1), "R$ #,##0.00")
.List(linhalistbox, 1) = Format(ws.Cells(linha, 2), "R$ #,##0.00")

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 29/06/2017 9:04 am