vba - Excel 不正确地显示度数符号

Question

我有一个工作表，允许用户更改温度单位，有一个包含“° C”和“° F”的下拉框，然后我使用 VBA 来完成其余的工作。

问题是，我有这段代码:

Dim UnitString As String
Set UnitRange = Worksheets("Units of Measure").Cells
UnitString = UnitRange(1, 1)
MsgBox UnitString

它给了我“？C”或“？F”

下一个问题，当我打电话时:

UnitRange(1, 1) = "° C"

我在那个牢房里得到了“ฐ C”。 (ฐ是泰语字符之一)

这些问题破坏了我的工作表逻辑，有人可以帮助我吗？

问候，萨伦

Answer 1

您可能想在 VBA 例程中使用 Unicode。例如，以下是一个将单元格格式设置为摄氏度的简单例程:

Sub centigrade()
    Const g = "General"
    dq = Chr(34)
    cent = " " & ChrW(8451)
    s = g & dq & cent & dq
    Selection.NumberFormat = s
    Selection.Font.Name = "Arial Unicode MS"
End Sub