如何在 Excel 中将我的模块从十进制反转为十六进制？

Question

这个问题基于这里的模块：如何在 Excel 中将十六进制数转换为十进制数？

我正在使用的模块（来自上面的链接）如下：

Option Explicit

Public Function HexadecimalToDecimal(HexValue As String) As Double

    ' If hex starts with 0x, replace it with &H to represent Hex that VBA will understand
    Dim ModifiedHexValue As String
    ModifiedHexValue = Replace(HexValue, "0x", "&H")

    HexadecimalToDecimal = CDec(ModifiedHexValue)

End Function

我正在这样做：

HexadecimalToDecimal(00007FF7BE6B0000)

这给出了正确的结果

“140702028333056”

我希望获得帮助，将上述模块反转，从十进制回到十六进制。

十进制转十六进制(140702028333056)

应导致：

“00007FF7BE6B0000”（或者显然是“7FF7BE6B0000”）

任何帮助或指导都将不胜感激！

Answer 1

使用Hex()

Function myDec2Hex(val As Double) As String
    myDec2Hex = Hex(val)
End Function