在 Excel VBA 中将货币转换为数字

Question

Whenever I try to do any calculations on a cell that is in the NIS (New Israel Shekels) currency format, I get an error 13 type mismatch. With the USD $ everything works fine.

I want to do calculations on a currency formatted cell in VBA. For example

Target = Target * -1

Why would this not work with a currency other than $?

Answer 1

Is there any reason the variable you are using is Target.value instead of just Target ?

The following worked for me in a currency formmated cell:

    Dim Target As Variant

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

    Target = Target * 2

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