MsgBox apresenta va...
 
Notifications
Clear all

MsgBox apresenta valores não formatados  

  RSS

LuizCAF
(@luizcaf)
New Member
Entrou: 8 meses atrás
Posts: 3
27/11/2019 9:54 am  

Preciso que o código a seguir apresente uma msgbox num formato contábil (Ex.: R$ 4.698.120,36), mas apenas me fornece um 4698120,36 quando o código é executado, grato desde já.
Nota: o código serve para encontrar os valores lançados na planilha numa data específica, as variáveis x e y são o código da conta e a data procurada, respectivamente. A coluna 5 é onde fica o código da conta, a coluna 10 é a data, as colunas 7 e 8 são as entradas e saídas da conta no dia, a coluna 9 é o valor final da conta no dia.
Código dentro do botão:

Private Sub CommandButton3_Click()

    Dim x As String
    Dim y As String
    Dim linemain As Integer

    linemain = 2
    
    x = ComboBox3
    
    y = ComboBox4
    
    If (ComboBox3 = "") Or (ComboBox4 = "") Then
        
        MsgBox "Favor inserir todos os dados"
        
        Exit Sub
    
    Else
    
    Do While y <> Plan2.Cells(linemain, 10)
        
        linemain = linemain + 94
        
    Loop
    
    Do While x <> Plan2.Cells(linemain, 5)
    
        linemain = linemain + 1
        
    Loop
    
        If Plan2.Cells(linemain, 7) = "" And Plan2.Cells(linemain, 8) = "" Then
        
            MsgBox "Não ocorreram lançamentos na data"
            MsgBox "O saldo final da conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 9))
            
            
        Else
    
            MsgBox "O saldo de entradas na conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 7))
            MsgBox "O saldo de saídas na conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 8))
            MsgBox "O saldo final da conta " & Plan2.Cells(linemain, 5) & " é de R$ " & CDbl(Plan2.Cells(linemain, 9))
        
        End If
        
    End If
    
End Sub

Citar (Quote)
Reinaldo
(@rlm)
Estimable Member
Entrou: 6 anos atrás
Posts: 246
27/11/2019 2:42 pm  

Se sua planilha estiver com a celula formatada corretamente, Experimente:
Altere: CDbl... Para Plan2.Cells(linemain, 7).text
ou ainda --> Format(CDbl(Plan2.Cells(linemain, 7)),"_#,##0.00")

Reinaldo


ResponderCitar (Quote)
Compartilhar: