Конвертировать валюту в число в Excel VBA

Question

Всякий раз, когда я пытаюсь выполнить какие-либо вычисления для ячейки в формате валюты NIS (Новый израильский шекель), я получаю ошибку 13 несоответствия типов.С долларом США все работает нормально.

Я хочу выполнить вычисления в ячейке с форматированием валюты в VBA.Например,

Target = Target * -1

Почему это не будет работать с валютой, отличной от $?

Answer 1

Есть ли причина, по которой вы используете переменную Target.value вместо просто Target?

В ячейке с формой валюты у меня работает следующее:

    Dim Target As Variant

    'Currency Formated Cell
    Set Target = Cells(6, 14)

    Target = Target * 2

    'Printed the calculation
    Cells(7, 14) = Target