文字コードの取得

分からない文字に遭遇したら、文字コードを調べてググる。

Shift-JISとASCIIコードは互換性がある！

Sub 文字コード確認用()
    
    Dim i As Long
    Dim s As String
    Dim sCode As String
    
    With Selection
        
        For i = 1 To Len(.Value)
            
            s = Mid(.Value, i, 1)
            
            'Shift-JIS
            sCode = Asc(s)
            Debug.Print s & "=" & sCode ' & "(" & Chr(sCode) & ")"
            
            'Unicode(UTF-16)
            sCode = AscW(s)
            Debug.Print s & "=" & sCode ' & "(" & ChrW(sCode) & ")"
            
        Next
        
    End With
    
End Sub

以上。