Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.06.2008, 23:13   #1
Serzov
 
Регистрация: 11.06.2008
Сообщений: 9
По умолчанию помогите с vba excel

помогите создать программу, которая из заданных 10 чисел выдавала бы все варианты по 6 чисел.
например:
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6
1 2 3 4 5 7
1 2 3 4 5 8
1 2 3 4 5 9
1 2 3 4 5 10
2 3 4 5 6 7
..........ИТД
пишите сюда или на serega3001@mail.ru
спасибо
Serzov вне форума
Старый 25.06.2008, 01:40   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Насколько я понял задачу необходимо перебрать все сочетания из n =10 чисел по k=6 шт.
Количество сочетаний = n!/k!(n-k)!= 10!/6!4!=10*9*8*7/(2*3*4)= 10*3*7=210 штук.
сочетания - на листе. макрос - в модуле.
Вложения
Тип файла: rar Сочетания.rar (7.9 Кб, 67 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 25.06.2008, 01:45   #3
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Цитата:
Сообщение от Serzov Посмотреть сообщение
помогите создать программу, которая из заданных 10 чисел выдавала бы все варианты по 6 чисел.
Вот тебе формула по которой вычисляются все варианты по 6 чисел.

n = 10! / 6! * 4! ---всего 210 вариантов(где ! факториал)
valerij вне форума
Старый 25.06.2008, 01:56   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

IgorGO, а как может выглядеть решение в случае перебора вариантов букв (латинских) , допустим, из 3-х или 4-х знаков?
Спасибо.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 25.06.2008, 03:12   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

2 valerij:
Цитата:
n = 10! / 6! * 4!
эта формула не дает самих вариантов, она дает число возможных вариантов.

2 VictorM:
Один из вариантов решения см. процедуру С28_4
Вложения
Тип файла: rar Сочетания.rar (92.3 Кб, 52 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 25.06.2008, 08:34   #6
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

IgorGO, у меня просьба, зайди пожалуйста на
http://www.planetaexcel.ru/forum.php?thread_id=4471
Там одному юзеру надо составить тоже нечто вроде сочетаний. Я не смог.
Может у тебя получится. Спасибо.
dsapa вне форума
Старый 25.06.2008, 08:45   #7
Volodshan
Форумчанин
 
Регистрация: 20.05.2008
Сообщений: 241
По умолчанию

Цитата:
Сообщение от dsapa Посмотреть сообщение
IgorGO, у меня просьба, зайди пожалуйста на
http://www.planetaexcel.ru/forum.php?thread_id=4471
Там одному юзеру надо составить тоже нечто вроде сочетаний. Я не смог.
Может у тебя получится. Спасибо.
Уважаемый, а не честнее ли будет признаться AZOVу, что не смогли и предложить ему обратиться на этот форум? Пример со СЛЭНом на Planete, которого тоже куда-то посылали, ничему не научил?
Доброго дня!
Volodshan вне форума
Старый 25.06.2008, 09:34   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

IgorGO
Цитата:
Один из вариантов решения см. процедуру С28_4
Лихо!!!
Спасибо, попробую разобраться.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499

Последний раз редактировалось VictorM; 25.06.2008 в 09:37.
VictorM вне форума
Старый 25.06.2008, 09:50   #9
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

Volodshan, ОК, критику одобрям! Я на "Планете" и признался, что не смог решить, только вот не дотумкал пригласить юзера сюда. Щас сделаю.
Спасибо за урок.
dsapa вне форума
Старый 25.06.2008, 09:56   #10
dsapa
Пользователь
 
Регистрация: 22.05.2008
Сообщений: 82
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите в excel Norik-74 Microsoft Office Excel 2 04.06.2008 11:27
Помогите с заданиями в Excel Arxan Помощь студентам 5 15.05.2008 20:29
Помогите! Глючит Excel Pithon Microsoft Office Excel 8 20.02.2008 07:47
Помогите с диаграммой в Excel Aaz38 Microsoft Office Excel 1 24.12.2007 11:40
Помогите по Excel пожалуйста лопух Microsoft Office Excel 2 04.11.2007 17:25