VBA 매크로 Excel : Excel 셀에서 유니 코드 문자를 읽는 방법

Question

VBA 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 

사용자가 확인란 기호를 수정 한 경우 확인하려면 유니 코드 문자를 읽어야합니다. 유니 코드 문자를 셀 값과 비교하는 방법이 없습니다.

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