Преобразование числа из десятеричной системы в шестнадцатеричную

[linregis]

Доброго времени суток всем форумчанам!

У меня вопрос к специалистам по Excel. У меня задача перевести массив чисел из из десятеричной системы в шестнадцатеричную. Встроеные функции из пакета анализа не смогли этого сделать, т.к. большинство чисел находятся в пределах от 549755813887 до 1099511627775. Я попытался написать свою функцию преобразования, но стандартные операторы VBA (Mod и \) тоже не работают с такими числами( Есть ли какой-то способ преобразовать номера с помощью Excel или VBA?

Надеюсь на Вашу помощь.

[Казанский]

Пробуйте

Function ToHex(ByVal x As Double) As String
Dim y#, z&
Do
    y = Int(x / 16#)
    z = x - y * 16#
    x = y
    If z > 9 Then z = z + 7
    ToHex = Chr$(48 + z) & ToHex
Loop Until x = 0
End Function

549755813887 -> 7FFFFFFFFF
1099511627775 -> FFFFFFFFFF
так что вроде ОК?

[EducatedFool]

Сделал то же самое, но всё же выложу, раз делал:

Function LongDecimal2Hex(ByVal x)
    While x > 0
        y = Fix(x / 16)
        LongDecimal2Hex = Hex(x - y * 16) & LongDecimal2Hex
        x = y
    Wend
End Function

Sub test()
    x = 1099511627775#
    Debug.Print x & " = " & LongDecimal2Hex(x)
End Sub

[linregis]

спасибо огромное) а то у меня уже мозги закипели), я VBA специально никогда не изучал, как оказалось много еще не знаю) в пятницу думал быстро все сделаю и домой, а тут такой затык( спасибо за помощь