Vba format currency

' If A1 value is 2021,543
With Range("A1")
    .NumberFormat = "€#,##0.00"   ' -> €2021,54
    .NumberFormat = "$ #,##0.00"  ' -> $ 2021,54
    .NumberFormat = "#,##0.00 €"  ' -> 2021,54 €
    .NumberFormat = "#,##0€"      ' -> 2022€
  Debug.Print .NumberFormat			' -> #,##0€
End With

Similar codes

0 vote305 views1 answer
Vba listbox remove all items
VBA
6 votes326 views1 answer
Excel vba get the path of current workbook
VBA
0 vote341 views1 answer
Visual basic cmd
VBA
12 votes379 views1 answer
Excel vba write string to text file
VBA
0 vote331 views1 answer
Vba userform textbox wrap text
VBA
0 vote359 views2 answers
Excel vba store array and write to sheet
VBA
0 vote317 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote296 views1 answer
Vba get workbook name
VBA
22 votes412 views1 answer
Xlvba check for folder
VBA
0 vote308 views1 answer
Excel named range sum
VBA