Как реверсировать модуль, чтобы перейти от десятичной системы счисления к шестнадцатеричной в 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