Vba Excel将单元格转换为希伯来货币（ILS）

Question

我试图将数字单元格转换为希伯来货币格式，但是我得到的是问号标志，就像附图中的示例一样。 我重新录制了一个宏，但似乎并没有起作用。

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

提前感谢，如果有人能回答我的问题，我会非常感激。

- ygaft

Answer 1

VBA编辑器无法识别希伯来货币符号，所以您可以使用ASCII字符代替。您正在寻找的是ChrW（8362）。我从此网站找到了正确的字符代码。

示例：

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

---

结果：

- Automate This

---

做得很好，非常感谢。'Range("I4", "I" & LastRow).NumberFormat = _ "_ [$" & ChrW(8362) & "-10D] * #,##0.00_ ;_ [$" & ChrW(8362) & "-10D] * -#,##0.00_ ;_ [$" & ChrW(8362) & "-10D] * ""-""_ ;_ @_ "' 这个更好，因为当为0时它会写成“-tt”，谢谢。 - ygaft