Задача сосотоит в нахождении такого массива, где в стороке будет отображаться вариант длины N из чисел 1,..., M, при чем M-тые значения в отдельных ячейках. Пример при N=4 массив такой:

0 0 0 0
0 0 0 1
.....
0 0 0 М
0 0 М 0
0 0 М 1
.....
M M M M

При условии, что N и M задаються из ячеек или из окна.
Я не программист, "убил" 2 месяца на освоение VBA, результат 0. Валюсь на начальных этапах, поэтому для сравнения кода нет.
Если кто может помочь, буду очень благодарен. (Важно: код нужен на VBA).
Заранее, спасибо.

AndreTM,

выглядеть должно примерно так как на скриншоте

ZezaM,

Sub TEST()
Const N = 7
Dim ar(N) As Integer, lev As Integer, nrow As Integer
Cells.Clear
lev = 1: ar(lev) = 1
1:
For i = 1 To lev - 1 'проверяем, не был ли выбран элемент ранее
If ar(i) = ar(lev) Then ' не месте (i) был выбран ранее, следует взять другой
If ar(lev) < N Then
ar(lev) = ar(lev) + 1
GoTo 1 'повторяем попытку для другого значения
Else ' выбор на месте LEV уже исчерпан
GoTo 2 'идем на уменьшение LEV
End If
End If
Next
' ar(lev) наконец-то выбран
If lev < N Then 'увеличиваем LEV и повторяем поиск невыбранного элемента
lev = lev + 1
ar(lev) = 1
GoTo 1
Else ' выбраны все элементы, можно печатать вариант
s = ""
For i = 1 To N
s = s & ar(i)
Next
nrow = nrow + 1
For i = 1 To N
Cells(nrow, i) = ar(i)
Next

2:
lev = lev - 1 ' отступаем назад, чтобы выбрать другой элемент
If lev < 1 Then End ' LEV дальше уменьшать некуда - все варианты исчерпаны
If ar(lev) < N Then ' такая возможность еще имеется
ar(lev) = ar(lev) + 1
GoTo 1
Else ' на уровне LEV такой возможности уже нет
GoTo 2 ' идем на дальнейшее уменьшение LEV
End If
End If
End Sub


Вот код перестановок (взял на форуме за основу, похожие задачи), смог зделать только что бы значения М в отдельных ячейках были, а остальное (N задавалось и саму последовательность) переделать не смог.

AndreTM,

Тема: Последовательность длинной N из чисел 1,..., M на VBA
Неудачный пример привел просто.

AndreTMVlad86ZТема: Последовательность длинной N из чисел 1,..., M на VBA
Неудачный пример привел просто.
Программу-то написАть - раз плюнуть.
А вот про "последовательность" я так и не вкурил до сих пор.
Ваши "примеры", "скриншоты" не дают главного - как строится последовательность.
Вы приводите нам "примеры", как вы сами поняли задачу, что ли?

Возьмите N=3, M=2 и нарисуйте ВЕСЬ массив, который должен получиться. Вот тогда и посмотрим...

001
002
010
011
012
020
021
022
200
201
202
210
211
212
222

я увидел ошибки в примерах, просто массив будет проходить расшифровку далее и поэтому писал как было бы удобнее, но понимаю, что код последовательность выглядит как вописано в этом сообщении

AndreTM,

001
002
010
011
012
020
021
022
100
101
102
110
111
112
120
121
122
200
201
202
210
211
212
220
221
222

0 0 0 1
0 0 0 2
0 0 1 0
0 0 1 1
0 0 1 2
0 0 2 0
0 0 2 1
0 0 2 2
0 1 0 0
0 1 0 1
0 1 0 2
0 1 1 0
0 1 1 1
0 1 1 2
0 1 2 0
0 1 2 1
0 1 2 2
0 2 0 0
0 2 0 1
0 2 0 2
0 2 1 0
0 2 1 1
0 2 1 2
0 2 2 0
0 2 2 1
0 2 2 2
1 0 0 0
1 0 0 1
1 0 0 2
1 0 1 0
1 0 1 1
1 0 1 2
1 0 2 0
1 0 2 1
1 0 2 2
1 1 0 0
1 1 0 1
1 1 0 2
1 1 1 0
1 1 1 1
1 1 1 2
1 1 2 0
1 1 2 1
1 1 2 2
1 2 0 0
1 2 0 1
1 2 0 2
1 2 1 0
1 2 1 1
1 2 1 2
1 2 2 0
1 2 2 1
1 2 2 2
2 0 0 0
2 0 0 1
2 0 0 2
2 0 1 0
2 0 1 1
2 0 1 2
2 0 2 0
2 0 2 1
2 0 2 2
2 1 0 0
2 1 0 1
2 1 0 2
2 1 1 0
2 1 1 1
2 1 1 2
2 1 2 0
2 1 2 1
2 1 2 2
2 2 0 0
2 2 0 1
2 2 0 2
2 2 1 0
2 2 1 1
2 2 1 2
2 2 2 0
2 2 2 1
2 2 2 2

AndreTMИменно так, камрады, именно так...

Прилагаемый пример, естественно, не включает проверок на переполнение.

То что нужно, большое спасибо.

AndreTMИменно так, камрады, именно так...

Прилагаемый пример, естественно, не включает проверок на переполнение.

А на сколько тяжело изменить диапазон изменения М, с рассматриваемого от 1 до М (1, 2, 3, ..., М) на от -М до М (для М = 3: -3 ,-2, -1, 0, 1, 2, 3)?

Vlad86ZAndreTMИменно так, камрады, именно так...

Прилагаемый пример, естественно, не включает проверок на переполнение.

А на сколько тяжело изменить диапазон изменения М, с рассматриваемого от 1 до М (1, 2, 3, ..., М) на от -М до М (для М = 3: -3 ,-2, -1, 0, 1, 2, 3)?
или еще лучший вариант задавать границы для М, например от -2 до 3 (-2,-1, 0, 1, 2, 3) или от 10 до 15 (10, 11, 12, 13, 14, 15).

AndreTM,

Спасибо.