2016-06-27 6 views
1

Я изо всех сил пытаюсь прочитать символ Юникода из ячейки в VBA Excel.VBA Macro Excel: как читать символ Unicode из ячейки Excel

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 

Мне нужно прочитать символ Юникода, чтобы увидеть, был ли символ флажка изменен пользователем. У меня нет идеи, как сравнить символ Юникода с значением ячеек.

ответ

3

Иногда вам нужна только вторая пара глаз.)

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