Wie kann ich mein Modul in Excel umkehren, um von Dezimalzahlen zu Hexadezimalzahlen zu wechseln?

Question

Diese Frage basiert auf dem Modul von hier:Wie kann ich in Excel eine Hexadezimalzahl in eine Dezimalzahl umwandeln?

Das Modul, das ich verwende (vom obigen Link), ist folgendes:

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

Ich habe es gemacht:

HexadecimalToDecimal(00007FF7BE6B0000)

Das ergibt das richtige Ergebnis von

„140702028333056“

Ich hätte gerne Hilfe beim Umkehren des obigen Moduls, also von Dezimal zurück zu Hexadezimal.

Dezimal zu Hexadezimal (140702028333056)

Das Ergebnis sollte sein:

„00007FF7BE6B0000“(oder offensichtlich „7FF7BE6B0000“)

Für jede Hilfe und Anleitung wäre ich Ihnen dankbar!

Answer 1

VerwendenHex()

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