VBA宏Excel：如何從Excel單元格中讀取Unicode字符

Question

我正在努力從VBA Excel中的單元格中讀取Unicode字符。

Sub mySub()
    Cells(1, "A").Value = ChrW(10003)   ' Writes checkbox symbol to A1

    MsgBox Asc(Cells(1, "A").Value)     ' Output:  63 (questionmark symbol)
                                        ' Expected Output: 10003
End Sub

如果用戶修改了復選框符號，我需要讀取Unicode字符才能看到。 我不知道如何將Unicode字符與單元格值進行比較..

Answer 1

有時你需要的只是第二雙眼睛。 :)

Sub mySub()
    Cells(1, "A").Value = ChrW(10004)   ' Writes checkbox symbol to A1

    'MsgBox Asc(Cells(1, "A").Value)     ' Output:  63 (questionmark symbol)
                                   ' Expected Output: 10003
    '/ Works! 
    MsgBox AscW(Cells(1, "A").Value2)    'Almost there. Use AscW instead of Asc
End Sub