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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2017, 14:50   #11
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Цитата:
Сообщение от ArtemSkudalov Посмотреть сообщение
В 900 строках находятся числа (вместе): 6, 30, 55, 70, 87
Могу дописать в вывод вот это "(вместе)", что бы это не было
P.S. Аа, т.е. нужно чтобы выводило строки где есть одновременно такие числа? Так и нужно было ставить задачу (не понял). Да и даже сейчас не могу точно уяснить что нужно достичь. Даже не возмусь...
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 10.11.2017 в 14:54.
Hugo121 вне форума Ответить с цитированием
Старый 10.11.2017, 15:01   #12
ArtemSkudalov
 
Регистрация: 10.11.2017
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Могу дописать в вывод вот это "(вместе)", что бы это не было
P.S. Аа, т.е. нужно чтобы выводило строки где есть одновременно такие числа? Так и нужно было ставить задачу (не понял). Да и даже сейчас не могу точно уяснить что нужно достичь. Даже не возмусь...
Все равно СПАСИБО!
Да)))Нужно одновременное вхождение.
Например выбираю параметр. Количество чисел одновременно входящих в максимальное количество строк: 3 числа, или 4 числа, или 5 чисел, или 6 и т.д.
И на выдаче:
3, в ХХХ строках находятся числа: Х, Х, Х
4, в ХХХ строках находятся числа: Х, Х, Х, Х
5, в ХХХ строках находятся числа: Х, Х, Х, Х, Х
6, в ХХХ строках находятся числа: Х, Х, Х, Х, Х, Х


Знаю что это очень трудная задача. Может тут есть гуру, кому не составит особого труда С меня подарок
ArtemSkudalov вне форума Ответить с цитированием
Старый 10.11.2017, 15:56   #13
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Function CalcSameDGT(base As Range, Dgt As Range)
  Dim i&, j&, s$, f$
  For i = 1 To base.Count
    f = " " & base.Cells(i) & " "
    For j = 1 To Dgt.Count
      If InStr(f, " " & Dgt(j) & " ") = 0 Then Exit For
    Next
    If j > Dgt.Count Then s = s & " " & i
  Next
  CalcSameDGT = 0:  If s <> "" Then CalcSameDGT = UBound(Split(s)) & ": " & Replace(Right(s, Len(s) - 1), " ", ", ")
End Function
Вложения
Тип файла: zip БД1.zip (13.3 Кб, 12 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 10.11.2017, 17:25   #14
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

см.вложение
Вложения
Тип файла: zip БД1.zip (14.7 Кб, 15 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 11.11.2017, 11:39   #15
AndVGri
Форумчанин
 
Регистрация: 10.02.2012
Сообщений: 109
По умолчанию

Доброе время суток.
Коллеги, думаю, что задачка несколько по сложнее. Пусть строки это данные о кодах товаров в чеке. Тогда нужно определить - какие два товара чаще всего покупают вместе и в каких чеках эти товары присутствуют. Аналогично, какие три, четыре и т. д.
Вариант для двух чисел на Power Query.
Updated. Два числа встречаются максимально в 8 строках и таких только одно сочетание.
А вот для троек, максимально в 5 строках, но таких троек чисел уже 30
Изображения
Тип файла: png Friequence.png (15.3 Кб, 145 просмотров)
Вложения
Тип файла: xlsx Friequence.xlsx (21.9 Кб, 13 просмотров)

Последний раз редактировалось AndVGri; 11.11.2017 в 18:45.
AndVGri вне форума Ответить с цитированием
Старый 11.11.2017, 23:50   #16
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

669236568 столько всего комбинаций для каждой строки
Или по сочетаниям
3 117480
4 2555190
5 43949268
6 622614630
Вот столько и надо составлять словарей!
Жесть! А статистику сочетаний в лото хочется просчитать!!

Число сочетаний находится по следующей формуле:

C (n, k) = n! / (k! * (n-k)!)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 12.11.2017, 18:44   #17
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Ресурсов моей системы хватило только на 13 строк исходных данных. Словарь тоже имеет ограничения. Возможно поможет словарь словарей. По крайней мере почти в 100 раз (точно в 90) уменьшится размер словаря. И, как идея, возможно создать словарь словарей словарей. Допустим по первым 2 цифрам.
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вроде легко..сломал голову UnknownA Общие вопросы по Java, Java SE, Kotlin 2 24.06.2014 03:05
Форма IMAGE BMP сломал голову jin_jin Мультимедиа в Delphi 1 15.02.2013 20:29
Всю голову сломал с индексацией сайта engineer_pro PHP 4 17.08.2012 21:20
Не могу разобраться с ошибками, голову сломал Cyber Общие вопросы C/C++ 8 14.02.2011 16:40
Всю голову сломал lesha_firs Общие вопросы Delphi 6 17.06.2009 16:59