Из набора цифр отобразить все варианты

[GAL]

Привет! Всех с наступающим Рождеством!
Такая задача - имеется набор цифр от 0 до 9 и нужно вывести на лист все возможные варианты комбинаций этого набора.
К примеру: 0, 1, 2 ... далее 00, 01, 02.. далее 101, 202, 303 ну и в таком духе..
Подскажите как реализовать, лучше конечно с кодом...
Помогите плиз!
Заранее спасибо...

[GSerg]

Уточни.

[GAL]

Из этих цифр 0123456789 нужно вывести на лист Excel все возможные варианты-комбинации от одного знака (начиная с 0) и до 10 знаков.
0
1
2...
0000000000
0000000001
...
0123456789
1023456789
2013456789
...
и так далее

[GSerg]

Почему у тебя 10 нулей, 9 нулей?

[GAL]

Все комбинации цифр от значения 0 до 9 и содержащие от одного до десяти символов
ну вот возьмем три цифры 1,2,3:
1
2
3
11
111
22
222
33
333
123
112
113 ... и так далее

[GSerg]

Если так, то ты не поверишь, но

for i=0 to 9999999999
debug.? format$(i."0000000000")
next

[uzer_@]

' а не повиснет?
For i = 0 To 9999999999#
for j=1 to 16384
For k = 1 To 256
Range("A1:IV16384").Cells(j, k).Value = i
Next k
next j
Next i

[GAL]

А вместо "?" что ставить?
Уточни... а?

[uzer_@]

' то есть вот так, думает долго
Dim i, j, k
k = 1
j = 1
For i = 0 To 9999999999#
Range("A1:IV16384").Cells(j, k).Value = i
k = k + 1
If k = 256 Then
k = 1
j = j + 1
End If
Next i

[GSerg]

А вместо ? ставить ?
Можно msgbox ещё. Если выдержишь...

[uzer_@]

if k=257

[uzer_@]

на листе 256 столбцов и 16384 строк, тебе одного листа мало будет:)

[GAL]

на листе 256 столбцов и 16384 строк, тебе одного листа мало будет
***

Спасибо.
Я поставил на исполнение 10 минут назад - пока ничего не выдало...

[GSerg]

Странные вы...

Наверное, надо прямым текстом сказать.
GAL, в поставленной тобой формулировке задача сводится к простому перечислению вообще всех чисел от 0 до 10^10-1.

[GAL]

Да, GSerg, именно
Вопрос, как такое осуществить..

[GSerg]

[alibek]

GSerg, чувствую, тебя церковь в святые запишет за терпение

[hohol_kz]

А нафига?!
что ты с этим морем разливанным из цифр будешь делать?
Для такого в любом случае Excel слабоват будет.
Или ты хочешь под благовидным предлогом повесить комп соседа?

Есть подозрение, что тебе не только одного листа мало окажется, но и много листов окажется мало.

05.01.2006 ты писал, что запустил на исполнение. Ну как, на сегодняшнее число (14.01.2006) уже закончило работу?
или все еще считает?
Кстати в своей теме ты не уточнил, на какой лист выводить. На бумагу?

[Ig]

на листе ... 16384 строк...

65536, если быть до конца точным

[alibek]

65536, если быть до конца точным

Если быть совсем точным, то это зависит от версии Excel.

[Rust]

Насмеявшись, решил внести свою лепту:

Для версии 256 X 65536.

Создаём новую книгу с 256 листами.

1. В первом листе:
В ячейку "A1" вводим цифру 0
В ячейку "A2" вводим цифру 1
В ячейку "B1" вводим цифру 65536
В ячейку "B2" вводим цифру 65537
1.1 Выделяем область "A1:B2", хватаем за правый нижний угол и
протягиваем до конца вправо.
1.2 Затем, не снимая выделения, хватаем за левый нижний угол и
протягиваем до конца вниз.

2.Во втором листе:
В ячейку "A1" вводим цифру 16777216
В ячейку "A2" вводим цифру 16777217
В ячейку "B1" вводим цифру 16842751
В ячейку "B2" вводим цифру 16842752
Повторяем пункты 1.1 и 1.2

И так ещё 254 раза.