在VBA中输入比索的货币符号

Question

我知道，按住“ alt”，然后在键盘上按“ 8369”，将为您提供比索货币符号（₱）。但是，我无法在我的VBA代码中创建此代码。有没有人能够创建这个或可行的解决方法？ （▒）这是我在问题框中尝试时得到的，上面的另一个是剪切粘贴，在VBA中不起作用。

Answer 1

确保您选择的字体将显示unicode：

Sub Peso()
    Dim s As String, r As Range
    Set r = Range("A1")
    s = ChrW(8369)
    With r
        .NumberFormat = s & "#,##0"
        .Font.Name = "Arial Unicode MS"
    End With
End Sub

（选择适合您需要的千位和十进制分隔符）