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”。（ฐ是泰国人物之一）

这些问题打破了我的表格，任何人都可以帮助我吗？

此致 Sarun

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

Excel错误地显示度数符号

1 个答案: