Excel VBA テクニック集
文字列・ＨＥＸ変換関数

文字列とヘキサの変換方法です。

まず、ヘキサとは１６進法の意味です。
１ビットは、0または1を表現します。
ヘキサ = ４ビット、１６進法では「0～9,A～F」で表現されます。
ヘキサ２桁で１バイト、ヘキサ４桁で２バイト、Unicodeの以前のコード体系では、英数字が１バイト文字・漢字が２バイト文字でした。

たとえば、１バイト文字を１０進法・１６進法で表現します。

２バイト文字を１６進法で表現します。

文字列をヘキサ文字列に変換
例：ABCD→65666768
Public Function Hex_From_String(String_F As String) As String
    Dim Char_W As String
    Dim I As Integer

    Hex_From_String = ""
    If String_F = "" Then
        Exit Function
        End If
        
    For I = 1 To Len(String_F)
        Char_W = Mid(String_F, I, 1)
        Hex_From_String = Hex_From_String & Hex(Asc(Char_W))
        Next I
End Function

ヘキサ文字列を文字列に変換
例：65666768→ABCD
Public Function Hex_To_String(Hex_F As String) As String
    Dim Charcode_W As Long
    Dim I As Integer
    
    Hex_To_String = ""
    If Len(Hex_F) < 2 Then
        Exit Function
        End If
    
    For I = 1 To Len(Hex_F) Step 2
        Charcode_W = Val("&H" & Mid(Hex_F, I, 2))
        If Charcode_W > 127 Then
            Charcode_W = Val("&H" & Mid(Hex_F, I, 4))
            I = I + 2
            End If
        Hex_To_String = Hex_To_String & Chr(Charcode_W)
        Next I

Excel VBA テクニック集文字列・ＨＥＸ変換関数

Excel VBA テクニック集
文字列・ＨＥＸ変換関数