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

4 votes207 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote197 views1 answer
Vba DisplayGridlines
VBA
0 vote189 views1 answer
Remove first character from string vb
VBA
0 vote199 views1 answer
Vba check 32 or 64 bit
VBA
1 vote193 views1 answer
Excel vba saveas force overwrite
VBA
0 vote185 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote214 views1 answer
Group controls programmatically vb
VBA
3 votes240 views1 answer
Vba continue for each loop
VBA
31 votes262 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote190 views1 answer
Compare dates vb
VBA