Конвертация валютного формата

Question

Моя проблема: Преобразование диапазона Excel из валютного формата (USD) в другое (EUR) и наоборот.

формат USD в Excel выглядит как 123,456.00
EUR формат в Excel выглядит как 123 456,00

где в значениях USD запятая является разделителем тысяч и . является десятичной точкой и в EUR дорожит пространство разделитель тысяч и запятая , - это десятичная точка.

Я пробовал кодирование в VBA, но я новичок в этой области.

Любая помощь в создании макроса VBA для использования в таблицах Excel?

Answer 1

Этот UDF выполнит эту работу. Копировать и вставить в модуль:

Function ConvertUSDToEUR(Amount As Range) As String 
Dim TempStr As String: TempStr = Amount.Value 
TempStr = Replace(TempStr, ",", " ") 
TempStr = Replace(TempStr, ".", ",") 
ConvertUSDToEUR = TempStr 
End Function 

Выход:

Answer 2

При значении в A1, В В1 входят:

=TEXT(A1,"#,##0.00") 

и в C1 введите:

=SUBSTITUTE(SUBSTITUTE(B1,","," "),".",",") 

Например:

Примечание:

Также можно преобразовать значения "на месте", но это потребует VBA.

EDIT # 1:

Вот два макроса, которые изменят форматирование "на месте". Таким образом, результаты все равно будут числами, но внешний вид изменится.Скажем, у нас есть список чисел(не формулы):

Выбрать значения и запустить этот макрос:

Sub MakeUS() 
    Dim r As Range 
    For Each r In Selection 
     r.NumberFormat = "#,##0.00" 
    Next r 
End Sub 

производить:

и этот макрос:

Sub MakeEUR() 
    Dim r As Range, v1 As String, v2 As String, DQ As String 
    DQ = Chr(34) 
    For Each r In Selection 
     v1 = Format(r.Value, "#,##0.00") 
     v2 = Replace(Replace(v1, ",", " "), ".", ",") 
     r.NumberFormat = DQ & v2 & DQ & ";;;" 
    Next r 
End Sub 

производить:

Если столбец содержал формулы, подход будет несколько иным.