Размещение значений в ячейках

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Размещение значений в ячейках (Макросы/Sub)

Mexo

Дата: Понедельник, 11.12.2017, 11:20 | Сообщение № 1

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

Ранг: Участник

Сообщений: 60

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

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

Excel 2016

Здравствуйте, есть код который размещает без повторений числа по порядку. Нужно чтобы в качестве размещаемых элементов вместо чисел по порядку были значения ячеек из диапазона L10:L19. В примере в ячейку L3 вводится количество элементов, в L4 - по сколько элементов размещать.
Попытался в коде сделать так:
[vba]

Код

r = Range("L10:L19").Cells(i).Value: a(i) = r

[/vba]
В результате с значениями из ячеек получилась только первая комбинация, остальные комбинации с нулевыми значениями. Скорей всего нужно исправить код в функциях NextPerm и NextCombin. Как? не смог разобраться. Спасибо!