如何在Excel VBA中直接输入印度卢比符号设置单元格会计格式？

录制宏时印度卢比符号（₹）变成问号，是因为VBA编辑器默认使用ANSI编码，而卢比符号属于Unicode字符，超出了ANSI的编码范围，导致录制的代码无法正确识别符号。以下是可靠的解决方法：

核心方案：使用Unicode字符码调用卢比符号 #

直接在VBA代码中通过ChrW(&H20B9)来生成印度卢比符号，避免编码冲突。将这个字符嵌入会计格式的字符串中，即可为目标区域设置正确的格式。

完整代码示例 #

Sub SetIndianRupeeAccountingFormat()
    ' 指定要设置格式的单元格区域
    Dim rng As Range
    Set rng = ThisWorkbook.ActiveSheet.Range("A1:A10")
    
    ' 应用包含印度卢比的会计格式，保留两位小数
    rng.NumberFormat = "_-[$" & ChrW(&H20B9) & "* #,##0.00_-;-[$" & ChrW(&H20B9) & "* #,##0.00_-;_-[$" & ChrW(&H20B9) & "* ""-""??_-;_-@_-"
End Sub

格式说明 #

这个格式字符串是Excel标准会计格式的变体：

• _-[$₹* #,##0.00_-：正数的显示规则（卢比符号、千分位、两位小数）
• -[$₹* #,##0.00_-：负数的显示规则
• _-[$₹* ""-""??_-：零值的显示规则（显示短横线）
• _-@_-：文本的显示规则

如果不需要小数位，可将格式字符串修改为：

rng.NumberFormat = "_-[$" & ChrW(&H20B9) & "* #,##0_-;-[$" & ChrW(&H20B9) & "* #,##0_-;_-[$" & ChrW(&H20B9) & "* ""-""_-;_-@_-"

额外注意 #

确保单元格使用的字体支持印度卢比符号，比如Calibri、Arial Unicode MS等常见字体都能正常显示该符号。

内容的提问来源于stack exchange，提问作者Kartick Chakraborty