Vba excel 将单元格转换为希伯来货币 (ILS)

Vba excel convert cell to Hebrew currency (ILS)

我正在尝试将带有数字的单元格转换为希伯来货币格式,而不是获取货币符号,而是像所附示例中那样获取问号符号。 我已经重新录制了一个宏,但它似乎不起作用

Range("I4", "I" & LastRow).NumberFormat = _
    "_ [$?-40D] * #,##0.00_ ;_ [$?-40D] * -#,##0.00_ ;_ [$?-40D] * ""-""??_ ;_ @_ "

在此先感谢,如果有人能回答我的问题,我将不胜感激

VBA 编辑器无法识别希伯来货币符号,因此您可以改用 ASCII 字符。您要查找的是 ChrW(8362)。我从 this website.

中找到了正确的字符代码

示例:

ActiveCell.NumberFormat = _
"_ [$" & ChrW(8362) & "-10D] * #,##0.00_ ;_ [$" & ChrW(8362) & "-10D] * -#,##0.00_ ;_ [$" & ChrW(8362) & "-10D] * ""-""tt_ ;_ @_ "

结果: