Автоматическое заполнение ячеек в разных системах счисления

[viron]

Как можно в Excel заполнить ячейки числами от -128 до +127 в двоичной, восьмеричной и шестнадцатеричной системах счисления? В десятичной все легко а вот с другими что-то не могу понять как это сделать

3 столбца нужно заполнить.

[doober]

Лень функцию писать да и времени на это нет,если нужны только значения,то они во вложении

[DV68]

из справки:
Функция ДЕС.В.ВОСЬМ Преобразует десятичное число в восьмеричное.
Функция ДЕС.В.ДВ Преобразует десятичное число в двоичное.
Функция ДЕС.В.ШЕСТН Преобразует десятичное число в шестнадцатеричное.

[IgorGO]

вот набор, который может перевести с 10-ричной системы в какую-то N-ричную (до 36-ричной) и обратно.

' из 10-ричной системы в какую-то n-ричную
Function D2xz(d As Long, N As Long) As String
  Dim r As Integer, s As String
  r = Int(Log(d + 0.001) / Log(N))  'Для 64, 128 перевод в 2-ичную систему дало неожиданный результат: Log(128)/Log(2) = 7 - это
  'правильно, а Int(Log(128)/Log(2)) уже равно 6 и в старшем разряде получается "2"!!!, пришлось добавить нелогичный 0.001
  Do
    s = s & D2C(Int(d / N ^ r))
    d = d - Int(d / N ^ r) * N ^ r
    r = r - 1
  Loop Until r = -1
  D2xz = s
End Function

' и обратно
Function xz2D(s As String, N As Long) As Long
  Dim r As Integer, d As Long
  For r = 0 To Len(s) - 1
    d = d + C2D(Mid(s, Len(s) - r, 1)) * N ^ r
  Next
  xz2D = d
End Function

Function D2C(i As Integer) As String
  D2C = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")(i)
End Function

Function C2D(c As String) As Long
  C2D = InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", c) - 1
End Function