Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Formato 2 casas dec...
 
Notifications
Clear all

Formato 2 casas decimal da Label...

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
6 Posts
4 Usuários
0 Reactions
1,543 Visualizações
RSS
 Edupm
(@edupm)
Posts: 44
Eminent Member
Topic starter
 

Parece simples, mas não sei fazer.... Me ajudem

Tenho uma Label que está soma valores e está apresentando o seguinte resultado: 25455,7900000001

Pergunta...

Como formatar a Label para que exiba somente o valor de: 25455,79

E em qual evento da Label ela deve ser feita

 
Postado : 18/06/2018 10:22 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

tente algo do tipo:

Label1= Format(Seu_valor, "00000.00")

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 18/06/2018 10:47 am
 Edupm
(@edupm)
Posts: 44
Eminent Member
Topic starter
 

Não deu certo segue o código, 

  Dim j As Long

Dim soma As Long

soma = 0

For j = 1 To Me.lstLista.ListCount - 1
soma = soma + CLng(Me.lstLista.List(j, 7))
Next j

    LabelSomaRegistros.Caption = soma
    

    If lblMensagens <> "" Then
    Dim lItem As Double
Dim Total As Double
For lItem = 0 To lstLista.ListCount - 1
If IsNumeric(lstLista.List(lItem, 7)) = True Then
        Total = Total + CDbl(lstLista.List(lItem, 7))
LabelSomaRegistros = Total & " Horas"
LabelSomaRegistros.Caption = Format(LabelSomaRegistros, "00000.00")

End If
Next
End If
 
Postado : 18/06/2018 10:54 am
 rafaelp
(@rafaelp)
Posts: 89
Trusted Member
 

Boa tarde edu,

Tenta assim:

 Dim j As Long

Dim soma As Long

soma = 0

For j = 1 To Me.lstLista.ListCount - 1
soma = soma + CLng(Me.lstLista.List(j, 7))
Next j

    LabelSomaRegistros.Caption = soma
    

    If lblMensagens <> "" Then
    Dim lItem As Double
Dim Total As Double
For lItem = 0 To lstLista.ListCount - 1
If IsNumeric(lstLista.List(lItem, 7)) = True Then
        Total = Total + CDbl(lstLista.List(lItem, 7))
LabelSomaRegistros = Format(Total, "#.00") & " Horas"
LabelSomaRegistros.Caption = LabelSomaRegistros

End If
Next
End If
 
Postado : 18/06/2018 11:04 am
 Edupm
(@edupm)
Posts: 44
Eminent Member
Topic starter
 

Muito Obrigado Rafa :D

 
Postado : 18/06/2018 11:44 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Edupm,

Boa tarde!

Por gentileza, pedimos não utilizar citações desnecessárias em suas respostas.

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 : 18/06/2018 11:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico