Кол-во эл. равные максимальному - Microsoft Office Excel

Incognitoal · 03.03.2009, 19:36

Дан массив действительных значений. Среди них есть равные максимальному значению. Расчитать кол-вотаких элементов.
Вот числа, в стобце А
2
3
4
1
-2
5
-3
2
-1
4

For i = 1 To N
A(i) = Cells(i + 1, 1).Value
Next i
Max = A(1)
For i = 1 To N
If A(i) > Max Then Max = A(i)
Next i

вот функция которая считает макс число, а как переделать, чтобы искать надо было равные макс значению?

IFRSoff · 03.03.2009, 22:09

А почему бы не воспользоваться обычной формулой типа =СЧЁТЕСЛИ(A1:A10;МАКС(A1:A10)).

Incognitoal · 03.03.2009, 23:34

Если бы мне надо ей воспользоваться, то уже так сделал...

Вот функция:
Public Function Megomax(N As Integer)
Dim A(10) As Single, Max As Single
Max = WorksheetFunction.CountIf(Range("A1 :A10", WorksheetFunction.Max(Range("A1:A10 "))
Megomax = Max
End Function

НО, что такой действительные числа?

мне их надо 10 штук, может кто-то написать...?

03.03.2009, 19:36	#1
Incognitoal Пользователь Регистрация: 02.03.2009 Сообщений: 24	Кол-во эл. равные максимальному Дан массив действительных значений. Среди них есть равные максимальному значению. Расчитать кол-вотаких элементов. Вот числа, в стобце А 2 3 4 1 -2 5 -3 2 -1 4 For i = 1 To N A(i) = Cells(i + 1, 1).Value Next i Max = A(1) For i = 1 To N If A(i) > Max Then Max = A(i) Next i вот функция которая считает макс число, а как переделать, чтобы искать надо было равные макс значению?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
кол. массив	alexov	Общие вопросы C/C++	3	03.02.2009 16:56
подсчитать кол-во гласных	FireHawK	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	2	22.11.2008 19:22
Memo - кол-во строк.	Лубышев	Компоненты Delphi	1	17.05.2008 22:54
Подсчёт кол-ва дней	ivp88	БД в Delphi	7	14.01.2008 09:16

03.03.2009, 22:09	#2
IFRSoff Заблокирован Регистрация: 23.02.2009 Сообщений: 306	А почему бы не воспользоваться обычной формулой типа =СЧЁТЕСЛИ(A1:A10;МАКС(A1:A10)).

03.03.2009, 23:34	#3
Incognitoal Пользователь Регистрация: 02.03.2009 Сообщений: 24	Если бы мне надо ей воспользоваться, то уже так сделал... Вот функция: Public Function Megomax(N As Integer) Dim A(10) As Single, Max As Single Max = WorksheetFunction.CountIf(Range("A1 :A10", WorksheetFunction.Max(Range("A1:A10 ")) Megomax = Max End Function НО, что такой действительные числа? мне их надо 10 штук, может кто-то написать...?