Задача на VBA - Microsoft Office Excel

Racer13 · 31.05.2011, 01:57

Звучит так:

В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.

по сути не могу понять как посмотреть какое число наиболее встречающееся. За ранее спасибо

я видимо разделом ошибся? Верно? Переместите пожалуйста куда нужно.

IgorGO · 31.05.2011, 02:48

вот формула, которая решает Вашу задачу:

Код:

=ЕСЛИ(СУММ(--(СЧЁТЕСЛИ(A1:A14;A1:A14)=МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14))))=МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14));ИНДЕКС(A1:A14;ПОИСКПОЗ(МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14));СЧЁТЕСЛИ(A1:A14;A1:A14);));МИН(ЕСЛИ(МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14))=СЧЁТЕСЛИ(A1:A14;A1:A14);A1:A14))) & "-к  больше всех (" & МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14)) & "шт." & ЕСЛИ(СУММ(--(СЧЁТЕСЛИ(A1:A14;A1:A14)=МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14))))=МАКС(СЧЁТЕСЛИ(A1:A14;A1:A14));"";"*") & ")"

если после шт. есть звездочка шт.* значит указанных чисел не больше всего, еще каких-то было столько же, а указано минимальное из тех, которых больше всех.

Racer13 · 31.05.2011, 02:57

Суть в том, что это надо выполнить в виде макроса, а не формулой.

IgorGO · 31.05.2011, 03:13

Чтобы такое написать на ВБА - нужны знания...
если в формуле массив частот назвать К, а массив данных Д, то она существенно упрощается:

Код:

=ЕСЛИ(СУММ(--(к=МАКС(к)))=МАКС(к);ИНДЕКС(д;ПОИСКПОЗ(МАКС(к);к;));МИН(ЕСЛИ(МАКС(к)=к;д))) & "-к  больше всех (" & МАКС(к) & "шт." & ЕСЛИ(СУММ(--(к=МАКС(к)))=МАКС(к);"";"*") & ")"

vikttur · 31.05.2011, 11:25

Если использовать МОДА(), можно еще упростить.
Но студенту это не поможет, преподаватель хочет VBA

vikttur · 31.05.2011, 14:18

Продолжение темы о функции МОДА() можно посмотреть здесь

slan · 01.06.2011, 10:04

использовать функцию мода в VBA..

31.05.2011, 01:57	#1
Racer13 Новичок Джуниор Регистрация: 31.05.2011 Сообщений: 2	Задача на VBA Звучит так: В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них. по сути не могу понять как посмотреть какое число наиболее встречающееся. За ранее спасибо я видимо разделом ошибся? Верно? Переместите пожалуйста куда нужно. Последний раз редактировалось Racer13; 31.05.2011 в 02:20.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача VBA	EmileMinasyan	Помощь студентам	1	15.01.2020 23:49
Задача на VBA	Shat87	Помощь студентам	2	27.01.2011 18:18
Задача на VBA	Zhene4ka2607	Помощь студентам	1	08.06.2009 14:48
Задача по VBA	NitriNKa	Помощь студентам	8	23.05.2009 15:46

31.05.2011, 02:57	#3
Racer13 Новичок Джуниор Регистрация: 31.05.2011 Сообщений: 2	Суть в том, что это надо выполнить в виде макроса, а не формулой.

31.05.2011, 14:18	#6
vikttur Участник клуба Регистрация: 16.05.2010 Сообщений: 1,249	Продолжение темы о функции МОДА() можно посмотреть здесь

01.06.2011, 10:04	#7
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	использовать функцию мода в VBA..