如何在2010年EXCEL中将HEX转换为BIN,一次一个字符

Question

我试图找到一种方法来获取一串HEX值并将它们转换为BIN.我需要一次转换1个十六进制字符:

例如:HEX = 0CEC BIN = 0000 1100 1110 1100

我需要在Excel中执行此操作.任何帮助都会很棒.

谢谢,拉里

Answer 1

在一个模块中

Public Function HEX2BIN(strHex As String) As String
    Dim c As Long, i As Long, b As String * 4, j As Long
    For c = 1 To Len(strHex)
        b = "0000"
        j = 0
        i = Val("&H" & Mid$(strHex, c, 1))
        While i > 0
            Mid$(b, 4 - j, 1) = i Mod 2
            i = i \ 2
            j = j + 1
        Wend
        HEX2BIN = HEX2BIN & b & " "
    Next
    HEX2BIN = RTrim$(HEX2BIN)
End Function

对于

=HEX2BIN("0CEC")
   0000 1100 1110 1100