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)
[TABLE="width: 139"]
<colgroup><col></colgroup><tbody>[TR]
[TD]256691622700551235[/TD]
[/TR]
[TR]
[TD]256691622700554551[/TD]
[/TR]
[TR]
[TD]256691622700554513[/TD]
[/TR]
[TR]
[TD]256691622700553880[/TD]
[/TR]
[TR]
[TD]256691622700553570[/TD]
[/TR]
[TR]
[TD]256691622700553001[/TD]
[/TR]
[TR]
[TD]256691622700169272[/TD]
[/TR]
[TR]
[TD]256691622700554824[/TD]
[/TR]
[TR]
[TD]256691622700555366[/TD]
[/TR]
[TR]
[TD]256691622700553315[/TD]
[/TR]
[TR]
[TD]256691622700554353[/TD]
[/TR]
[TR]
[TD]256691622700627288[/TD]
[/TR]
[TR]
[TD]256691622700550435[/TD]
[/TR]
[TR]
[TD]256691622700554581[/TD]
[/TR]
[TR]
[TD]256691622700554614[/TD]
[/TR]
[TR]
[TD]256691622700615734[/TD]
[/TR]
[TR]
[TD]256691622700410773[/TD]
[/TR]
[TR]
[TD]256691622700590150[/TD]
[/TR]
[TR]
[TD]256691622700590217[/TD]
[/TR]
[TR]
[TD]256691622700590725[/TD]
[/TR]
[TR]
[TD]256691622700590695[/TD]
[/TR]
</tbody>[/TABLE]

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