Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Установка денежных и числового форматов, $ € N
 
Возникла проблема с € форматом не отображался значок, исправил макрос таким образом чтобы результат был:
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
Изменено: Aleksandr Sukonko - 17 Май 2018 15:51:37
Best regards,
Aleksandr Sukonko
Excel 2016
 
Подскажите, а как изменить данный макрос, чтобы можно было менять денежный формат в злотых, белорусских и российских рублях? очень нужно для работы
Страницы: 1
Читают тему (гостей: 1)
Наверх