如何在Visual Basic编辑器中键入货币符号

Question

有一个项目要求我们需要检查一个单元格的货币类型。

我在这个论坛（How to check if cell is formatted as Currency?）中遇到了类似的问题。它解释了如何为$符号执行此操作。但我无法在Visual Basic编辑器中用其他货币符号（例如印度卢比，欧元等）替换$符号。要在VBE中使用其他符号，我尝试了以下内容：

• 使用Insert-＆gt; Symbol选项在Excel中插入符号。
• 复制在VBE中粘贴符号。

但它在VBE中粘贴为?。

请帮我在VBE中使用货币符号。如果无法实现上述目标，请建议一种识别单元格货币类型的方法。

Answer 1

VBA编辑器不是Unicode。

要在其中包含Unicode字符，您需要使用ChrW$，例如

Dim Rupee As String
Rupee = ChrW$(&h20A8&)

另见Unicode string literals in VBA。

Answer 2

我有一个改进版本的答案...使用以下代码选择印度卢比符号与Lakhs crores格式，无与伦比的百万格式的区域设置。

Dim rs As String
rs = ChrW$(&H20B9&)
Selection.NumberFormat = "[>=10000000][$" & rs & "-ta-IN] ##\,##\,##\,##0.00;[>=100000][$" & rs & "-ta-IN] ##\,##\,##0.00;[$" & rs & "-ta-IN] ##,##0.00"

希望这会有所帮助。