помогите с vba excel

[VictorM]

Сообщение от dsapa

а что там было со СЛЭНом? Я не в курсе. Я тут недавно.

Господа. ИМХО это уже вопросы выходящие за пределы темы.
Может обсудите это в личке?

[Serzov]

Сообщение от IgorGO

Насколько я понял задачу необходимо перебрать все сочетания из n =10 чисел по k=6 шт.
Количество сочетаний = n!/k!(n-k)!= 10!/6!4!=10*9*8*7/(2*3*4)= 10*3*7=210 штук.
сочетания - на листе. макрос - в модуле.

Спасибо! Формулу я знаю. Но она только показывает количество вариантов. А надо сделать перебор: вывести все возможные варианты.

[Serzov]

извиняюсь, не увидел сразу вложенный файл. Спасибо за помощь IgorGO!

[IgorGO]

Добавил решение для произвольного массива.
массив заполняется в процедуре Sub c10x6(). Она же в 3-ю колонку выкладывает результаты перебора возможных сочетаний, разделяя значения пробелами.

[Serzov]

IgorGO, Вы не могли бы добавить пояснения к строкам решния произвольного массива. Не могу разобраться. Заранее очень благодарен.

[IgorGO]

Идея такова:
в массииве а(6) я перебираю все возможные комбинации чисел от 1 до 10, начиная с первой комбинации 1 2 3 4 5 6, увеличивая последнее число, когда оно достигает 10, увеличиваю число в предыдушем разряде.
получаем
1 2 3 4 5 6
1 2 3 4 5 7
...
1 2 3 4 5 10
1 2 3 4 6 7
...
5 6 7 8 9 10
таким образом в массиве "а" собираем какие элементы массива "С" будут отображены.
выход из процедуры, когда сумма значений элементов массива а достигла 45, смотрите последнюю комбинацию.

С точки зрения работоспособности, алгоритм действующий, с точки зрения оптимальности кода - полное уродство, несмотря на присутствие рекурсии, как признака высокого класса алгоритма. Не пишите такие алгоритмы.
Пока писал короткий комментарий. Придумал упрощение этого алгоритма. И принципиально другой алгоритм формирования комбинаций, выложу в следующем посте.

[Serzov]

Можно в произвольный массив добавить условие, если в ответе есть 5 четных или 5 нечетных чисел, то он на экран не выводится.
Спасибо.

[IgorGO]

Добавил две новых реализации перебора вариантов.
В последнем варианте c10x6_2 (самом медленном) достаточно поправить код в функции проверки и можно исключить все парные, или все непарнные. Надеюсь, это не составит труда. Последняя реализация очень элементарна с точки зрения алгоритма работы и понимания логики, но крайне неэффективна по производительности.
Все, я на отдых. Две недели на море, за комп не сажусь.

[dsapa]

Сообщение от IgorGO

Все, я на отдых. Две недели на море, за комп не сажусь.

А морской прибой нашептывает: ексеееельььь, ексеееелььь ...
И так две недели. А что поделать? - судьба программера.

[Serzov]

С четными и нечетными разобрался кое-как.

ещё одна маленькая просьба помочь с заданием, даны 15 наборов с цифрами по 6, и один набор с 8 цифрами. Если в варианте из 6 цифр присутствуют больше 4 цифр из варианта с 8 цифрами, то этот вариант удаляется. В отдельную ячейку, надо вывести сколько вариантов было удалено. Заранее спасибо.
Варианты с 6 цифрами:
1 15 32 35 36 39
1 8 15 38 41 45
4 7 22 25 27 35
1 4 8 18 27 32
2 4 8 22 27 38
15 22 27 28 29 31
8 15 22 27 32 38
4 8 27 38 41 43
8 27 38 41 43 45
15 22 25 27 32 38
2 4 6 8 28 32
4 8 9 22 32 38
15 22 27 37 38 41
1 4 5 7 30 32
4 8 22 27 32 38
Вариант с 8 цифрами:
1 4 8 15 22 27 32 38