• Home
 · 
• String Manipulation
 · 
• Real time currency formating

Real time currency formating

Real time currency formating

API Declarations


Add a new Module and Copy + Paste



Rate Real time currency formating

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    
    Dim xTotal As String
    
    xTotal = Replace(Replace(xName, ",", ""), ".", "")
    If Len(xTotal) = 1 Then
        xTotal = ",0" & xTotal
    ElseIf Len(xTotal) = 2 Then
        xTotal = "," & xTotal
    ElseIf Len(xTotal) > 2 Then
        xTotal = Left(xTotal, Len(xTotal) - 2) & "," & Right(xTotal, 2)
    End If
    xName = Format(xTotal, "#,##0.00")
    xName.SelStart = Len(xName)

End Sub