Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Listbox - Alinhamen...
 
Notifications
Clear all

Listbox - Alinhamento do Campo Valor do lado Direito

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
6 Posts
2 Usuários
0 Reactions
1,326 Visualizações
RSS
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal, estou tentando fazer o alinhamento do campo Preco para o lado direito , conforme segue meu codigo so que nao esta ocorrendo nada, quem puder orientar-me nesta duvida, fico grato, abraco

With lbDados
                 .AddItem
                 .List(linhalistbox, 3) = Sheets("TabVendas").Cells(linha, 4) 'Produto
                 .List(linhalistbox, 5) = Format(Sheets("TabVendas").Cells(linha, 7), "###,##0.00", VerticalAlignment = xlRight) 'Preco
                 
                 linhalistbox = linhalistbox + 1
             End With
 
Postado : 27/04/2018 6:05 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Fernandox,

Bom dia!

Pedimos, por gentileza, ao postar códigos VBA aqui no fórum, utilizar a ferramenta CODE existente logo no início da caixa de mensagens (quinto botão da esquerda para a direita).

Quanto a sua dúvida, creio que você não consegue alinha somente um dos campos do ListBox à direita como quer. Você pode alinha todos à direita da seguinte forma:

With lbDados
                 .AddItem
                 .List(linhalistbox, 3) = Sheets("TabVendas").Cells(linha, 4) 'Produto
                 .List(linhalistbox, 5) = Format(Sheets("TabVendas").Cells(linha, 7), "###,##0.00") 'Preco
                 .List(linhalistbox, 5).TextAlign = fmTextAlignRight
                 linhalistbox = linhalistbox + 1
             End With

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2018 6:08 am
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Wagner, grato pelas orientacoes, vou aprendendo as regras do forum, quanto ao codigo tenho inserido conforme havia descrito e ocorreu uma mensagem de erro nesta linha
.List(linhalistbox, 5).TextAlign = fmTextAlignRight

ERRO: O objeto e obrigatorio
grato pela ajuda, abraco

 
Postado : 27/04/2018 10:55 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Opa! Desculpe o meu erro!

Troque a linha:

.List(linhalistbox, 5).TextAlign = fmTextAlignRight

Pela linha:

.TextAlign = fmTextAlignRight

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2018 11:04 am
 Fernandox
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Wagner, funcionou a linha perfeitamente, so que alinhou todos os campos, eu gostaria que apenas o campo PRECO fosse alinhado pelo lado direito o restante dos campos permanecessem do lado esquerdo, quando puder orientar, agradeco, obrg abraco

 
Postado : 27/04/2018 11:34 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Fernandox,

Como eu disse no meu primeiro posto, creio que no objeto ListBox não é possível alinha somente um dos campos. Somente todos.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/04/2018 11:47 am
Forum Jump:
  Tópico Anterior
Próximo Tópico