Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Разбить число на значения

Автор Андрей Андрей, 11.03.2016, 17:04

« назад - далее »

Андрей Андрей

Подскажите пожалуйста как можно разбить число например
10   на  1,1,1,1,1,1,1,1,1,1
5    на   1,1,1,1,1
2     на 1,1
100 соответственно на сто однерок  ну и т.д

Pelena

Если в А1 число
=ЛЕВСИМВ(ПОВТОР("1,";A1);A1*2-1)

zs


kuklp

Function Ones(Number As Long) As String
    Ones$ = Mid$(Replace$(Space$(Number), " ", ", 1"), 3)
End Function
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

Андрей Андрей

Спасибо всем огромное.!!! :)