10進数を16進数に変換 16進数を10進数に変換

ExcelVBA 
    10進数を16進数に変換

    Function Dec2Hex(Dec As Long) As String
        Dec2Hex = Hex(Dec)
    End Function

    16進数を10進数に変換

    Function Hex2Dec(Hex As String) As Long
        Hex2Dec = Val("&H" & Hex)
    End Function

ネタ元