Возникла проблема с € форматом не отображался значок, исправил макрос таким образом чтобы результат был: 10,00 $ 10,00 €
Excel стал распознавать € формат как валюта..
Sub Dollar_Format() On Error Resume Next If TypeName(Selection) <> "Range" Then Exit Sub Selection.NumberFormat = "#,##0.00_ [$$-409];[Red]-#,##0.00 [$$-409]" End Sub
Sub Euro_Format() On Error Resume Next If TypeName(Selection) <> "Range" Then Exit Sub Selection.NumberFormat = "#,##0.00_ [$€-2];[Red]-#,##0.00 [$€-2]" End Sub
Sub Number_Format() If TypeName(Selection) <> "Range" Then Exit Sub Selection.NumberFormat = "#,##0" End Sub