Имеется 9 столбцов с цифрами по строкам. нужен перебор вариантов. Сам перебор нестандартен тем что в столбцах числа не от 1-10 ти . а имеют различные. максимум от 1-го до 6. Количество вариантов мной несложным вычислением комбинаций подсчитано если не ошибаюсь 48600. Нужно отобразить все возможные варианты как указано в примере из двух столбцов, а в задаче нужно вывести все 9 столбцов -(Нужно перебрать все 9 столбцов. как подбор 9-ти значного кода )соответственно первый код 111111111 а последний 655333322 нужно вывести весь список по строчно вниз Наглядно это очень просто а вот сообразить мне пока трудно.
Имеется 9 столбцов с цифрами по строкам. нужен перебор вариантов. Сам перебор нестандартен тем что в столбцах числа не от 1-10 ти . а имеют различные. максимум от 1-го до 6. Количество вариантов мной несложным вычислением комбинаций подсчитано если не ошибаюсь 48600. Нужно отобразить все возможные варианты как указано в примере из двух столбцов, а в задаче нужно вывести все 9 столбцов -(Нужно перебрать все 9 столбцов. как подбор 9-ти значного кода )соответственно первый код 111111111 а последний 655333322 нужно вывести весь список по строчно вниз Наглядно это очень просто а вот сообразить мне пока трудно.Кайли
Не увидел сязи задачи с примером. Перебирать варианты любых двух столбцов? Двух рядом? Всех?
Цитата
в столбцах числа не от 1-10 ти . а имеют различные. максимум от 1-го до 6.
Что различные? Числа любые или только цифры до 6? или в столбце максимум чисел - 6?
Зачем писать в личку?
Цитата
Числа перебираются как подбор девятизначного кода. В столбцах цифры указаны такие какие есть, соответственно первый код 111111111 а последний 655333322
Почему не 655544433 (по количеству наибольших цифр)?
Не увидел сязи задачи с примером. Перебирать варианты любых двух столбцов? Двух рядом? Всех?
Цитата
в столбцах числа не от 1-10 ти . а имеют различные. максимум от 1-го до 6.
Что различные? Числа любые или только цифры до 6? или в столбце максимум чисел - 6?
Зачем писать в личку?
Цитата
Числа перебираются как подбор девятизначного кода. В столбцах цифры указаны такие какие есть, соответственно первый код 111111111 а последний 655333322
Почему не 655544433 (по количеству наибольших цифр)?vikttur
Сообщение отредактировал vikttur - Суббота, 02.12.2017, 12:50
Sub www() Dim i1&, i2&, i3&, i4&, i5&, i6&, i7&, i8&, i9&, k& For i1 = 1 To 6 For i2 = 1 To 5 For i3 = 1 To 5 For i4 = 1 To 3 For i5 = 1 To 3 For i6 = 1 To 3 For i7 = 1 To 3 For i8 = 1 To 2 For i9 = 1 To 2 k = k + 1 Cells(k, 1).Resize(, 9) = Array(i1, i2, i3, i4, i5, i6, i7, i8, i9) Next i9, i8, i7, i6, i5, i4, i3, i2, i1 End Sub
[/vba]
решение под конкретную задачу: [vba]
Код
Sub www() Dim i1&, i2&, i3&, i4&, i5&, i6&, i7&, i8&, i9&, k& For i1 = 1 To 6 For i2 = 1 To 5 For i3 = 1 To 5 For i4 = 1 To 3 For i5 = 1 To 3 For i6 = 1 To 3 For i7 = 1 To 3 For i8 = 1 To 2 For i9 = 1 To 2 k = k + 1 Cells(k, 1).Resize(, 9) = Array(i1, i2, i3, i4, i5, i6, i7, i8, i9) Next i9, i8, i7, i6, i5, i4, i3, i2, i1 End Sub