excel - 在 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

(选择千位和小数分隔符以满足您的需要)