Option Explicit
Sub Numbers()
Dim i&, barr1()
ReDim barr1(1 To 50)
For i = 1 To UBound(barr1)
barr1(i) = Int(9 * Rnd + 0)
Next i
MsgBox Join(barr1, "")
Range("A1").Value = Join(barr1, "")
End Sub
MsgBox возвращает:
А в ячейке я получаю:
Откуда нули? Форматы ячеек менял. Чего я не понимаю, подскажите?
Excel не знает чисел больше 15. Всё что больше 15-й цифры в числе превращается в 0 (всегда), т.е. 1234567891012390000000000000000000000000000000000000000000000000000000 после 15-й цифры всегда будет 0 Excel это не программа для научных вычислений с огромными порядками.
Но если вы ходите записать длинное число КАК ТЕКСТ в ячейку, то перед числом вставьте АПОСТРОФ ( ' )
Вот так в Excel можно '4545454545456456456151515151454515645656145615454584584854848484848484849849684848484848
New, на самом деле мне и нужен формат обычного текста. Это не для вычислений. Я его вывожу в контролы юзерформы. Попробую сделать это напрямую из модуля, просто там свои заморочки, поэтому приходится обращаться к листу эксель, а потом с контролами, типа InkEdit работать.