Профи подскажите по составлению комбинаций

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Профи подскажите по составлению комбинаций - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Профи подскажите по составлению комбинаций (Макросы/Sub)

Профи подскажите по составлению комбинаций

kolomna31

Дата: Среда, 11.06.2014, 20:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Есть массив из 38 элементов и нужно составить из них в столбик по 6 уникальных комбинаций

т.е. 1 2 3 4 5 6 и 6 5 4 3 2 1 и допустим 1 3 5 6 4 2 - это повторы и в результатах должно быть что-то одно из них

если сталкивались с комбинаторикой , подскажите как проще составить программку

Ответить

kolomna31

Дата: Среда, 11.06.2014, 21:47 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Вопрос решен http://www.planetaexcel.ru/forum....ostform

Ответить

doober

Дата: Среда, 11.06.2014, 22:07 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Код на бейсике времен джидаев.
результат 2 760 681 строк

[vba]

Код

  Dim A(6)
     F$ = "C:\CN.txt"
     Open F$ For Output As #1
     N = 38
     K = 6
     For I = 1 To K - 1
         A(I) = I
     Next I
     A(K) = K - 1
10  If A(K) = N Then GoTo 20
     P = K
     GoTo 30
20  P = P - 1
30  If P = 0 Then GoTo 40
     For I = K To P Step -1
         A(I) = A(P) + I - P + 1
     Next I
     Print #1, A(1); A(2); A(3); A(4); A(5); A(6)

     GoTo 10

40

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Профи подскажите по составлению комбинаций (Макросы/Sub)

Страница 1 из 1
1