excel - 无法在 VBA 中使用 GBP (£) 符号

Question

我有英语版的 Excel 和波兰语的区域设置。我尝试编写一个代码，该代码将在数值之前使用井号符号对单元格进行格式化。

不幸的是，当我将符号粘贴到 VBA 窗口时，它被转换为“L”。宏记录器还将这种格式的单元格记录为“L”。 Chr(163) 返回“Ł”。

更改系统语言设置、本地化设置或键盘设置没有效果。只有将区域设置(需要重新启动电脑)更改为英语(英国)后才能正常工作。有什么方法可以在不更改区域设置的情况下使用此符号？

Answer 1

如果您想通过VBA将符号应用于格式，请尝试:

Sub Serling()
    Const g = "General"
    dq = Chr(34)
    sterl = " " & ChrW(163)
    s = g & dq & sterl & dq
    Selection.NumberFormat = s
    Selection.Font.Name = "Arial Unicode MS"
End Sub

编辑#1:

对我来说，这真的很酷。如果您想要摄氏度，请使用 ChrW(8451):如果您想要华氏度，请使用 ChrW(8457)，等等。