Convert large 18 digit integer numbers to Hexadecimal number

[manikandan23]

Hi, I am looking to convert large 18 digit (Product Serial Numbers - Electronic Serial Numbers) numbers to its equivalent Hexadecimal numbers.

Since my number is huge, I am getting #NUM ! error when I use DEC2HEX function.

Can anyone please suggest me how do I do that in Excel?

My data looks like below: (Only some sample ESNs I posted here. But my excel is a huge list of ESNs to be converted to its equivalent Hex value)

256691622700551235
256691622700554551
256691622700554513
256691622700553880
256691622700553570
256691622700553001
256691622700169272
256691622700554824
256691622700555366
256691622700553315
256691622700554353
256691622700627288
256691622700550435
256691622700554581
256691622700554614
256691622700615734
256691622700410773
256691622700590150
256691622700590217
256691622700590725
256691622700590695

<colgroup><col></colgroup><tbody>
</tbody>

Thanks in Advance!
Mani A

 

[Rick Rothstein]

I was wondering how the code could be changed to give the hexdec in reverse order.
For example the hex return for 1,000 = 3E8 but the reverse needed to poke would be E8 03

Give this function a try...

Function DecToHexRev(ByVal V As Variant, Optional WithSpaces As Boolean = True) As String
  Do Until V = 0
    DecToHexRev = DecToHexRev & Mid("0123456789ABCDEF", CDec(V) - 16 * Int(CDec(V) / 16) + 1, 1)
    V = Int(CDec(V) / 16)
  Loop
  If Len(DecToHexRev) Mod 2 Then DecToHexRev = "0" & DecToHexRev
  If WithSpaces Then DecToHexRev = Trim(Format(DecToHexRev, Application.Rept("@@ ", Len(DecToHexRev))))
End Function

Note: I added an optional argument which controls whether spaces will be used to separate the output into space delimited hex-pairs or not. I defaulted it to True because your example showed you wanted the spaces. To suppress the spaces, simply pass False in for the optional argument.

 

[rdrjr]

Give this function a try...

Function DecToHexRev(ByVal V As Variant, Optional WithSpaces As Boolean = True) As String
  Do Until V = 0
    DecToHexRev = DecToHexRev & Mid("0123456789ABCDEF", CDec(V) - 16 * Int(CDec(V) / 16) + 1, 1)
    V = Int(CDec(V) / 16)
  Loop
  If Len(DecToHexRev) Mod 2 Then DecToHexRev = "0" & DecToHexRev
  If WithSpaces Then DecToHexRev = Trim(Format(DecToHexRev, Application.Rept("@@ ", Len(DecToHexRev))))
End Function

Note: I added an optional argument which controls whether spaces will be used to separate the output into space delimited hex-pairs or not. I defaulted it to True because your example showed you wanted the spaces. To suppress the spaces, simply pass False in for the optional argument.

Though this code does reverse the output it only mirrors it instead of giving reverse byte output.
What I am needing it to do is return the (3E8) hexdec value as E8 03, your code gives the return as 08 E3.

 

[rdrjr]

Taking a decimal value of 1000 = 03 E8 in Hex
what I need is for it to read the byte in reverse, starting with the first byte as E8 and the second as 03 and output it as E8 03