Difficulty with lookup tables - Binary/Hex

[jonny901901]

Hello all,

I ave just completed converting decimal to binary without the use of DEC2BIN. However now I am moving onto converting this concatenated 8 bit binary number into Hex, without the use of BIN2HEX.

What I have done so far is set up a vertical table with two columns, one with 16 values (0-F), and the other with each corresponding 4 bit binary equivalent.

What I ave tried is doing a Vlookup formula to look up my 8 bit binary with the values in the lookup table.

thus far I have not had any luck, as it returns the completely wrong hex value after hitting enter.

I have attached pictures with should detail what I have done thus far.

If anyone could help me it would be appreciated, also if you do provide help could you please explain your steps in depth as I need to consolidate and understand this all as I'm trying to actually learn this inside out.

thank you.

 

[jonny901901]

sorry the link to the pictures of my workings and formulae

https://imgur.com/a/wEUX61t

 

[wagnerl]

sorry the link to the pictures of my workings and formulae

https://imgur.com/a/wEUX61t

I wrote this function that can solve your problem.
While inside the Excel sheet, just press ALT + F11, a window will open, copy the following code into it (copy+paste).
Then type inside any Excel cell =BinoHex(XX), where XX can be a binary string or the address of an Excel Cell containing the binary string.
It will convert the binary to Hex and post into the Cell above.
If you want to convert binary to Decimal instead, just replace the function line at the bottom, "BinoHex = Hex(ValoVal)" with "BinoHex = ValoVal".
An error message will report into the Cell if the binary string contains other than Ones and Zeros.

Public Function BinoHex(ByVal Valo As String) As String
Dim ValoVal As Double

For N = 1 To Len(Valo)
    ValoVal = ValoVal * 2
    Bit = Left(Valo, 1)
    If Bit < 0 Or Bit > 1 Then BinoHex = "ERR: Not Binary": Exit Function
    Valo = Mid(Valo, 2)
    ValoVal = ValoVal + Bit
    Next N
BinoHex = Hex(ValoVal)

End Function