Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
1

Нужно обойтись формулами для выявления наибольшего значения для каждой фамилии

20.07.2006, 15:03. Показов 1322. Ответов 8
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Всем добрый день!
Есть следующая задача, которая на первый взгяд казалась простой: есть список с фамилиями и значениями. Надо по возможности обойтись формулами для выявления наибольшего значения для каждой фамилии. Можно ли что-нибудь изваять без использования VBA или все же стоит сесть за написание функции?
<TABLE style="WIDTH: 177pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=236 border=0 x:str><COLGROUP><COL style="WIDTH: 48pt" span=2 width=64><COL style="WIDTH: 81pt; mso-width-source: userset; mso-width-alt: 3949" width=108><TBODY><TR style="HEIGHT: 22.5pt" height=30><TD class=xl24 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; WIDTH: 48pt; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 22.5pt; BACKGROUND-COLOR: navy" width=64 height=30><STRONG><FONT face="Arial CYR" color=#ffffff size=2>ФИО</STRONG></TD><TD class=xl24 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 48pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: navy" width=64><STRONG><FONT face="Arial CYR" color=#ffffff size=2>Знач</STRONG></TD><TD class=xl24 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext 0.5pt solid; BORDER-LEFT: windowtext; WIDTH: 81pt; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: navy" width=108><STRONG><FONT face="Arial CYR" color=#ffffff size=2>Должно получиться</STRONG></TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffff99" height=17><FONT face="Arial CYR" size=2>Иванов</TD><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffff99" align=right x:num><FONT face="Arial CYR" size=2>1</TD><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffff99" align=right x:num><FONT face="Arial CYR" size=2>5466</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffff99" height=17><FONT face="Arial CYR" size=2>Иванов</TD><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffff99" align=right x:num><FONT face="Arial CYR" size=2>44</TD><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffff99" align=right x:num><FONT face="Arial CYR" size=2>5466</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffff99" height=17><FONT face="Arial CYR" size=2>Иванов</TD><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffff99" align=right x:num><FONT face="Arial CYR" size=2>4</TD><TD class=xl25 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffff99" align=right x:num><FONT face="Arial CYR" size=2>5466</ height=17><FONT face="Arial CYR" size=2>Петров</TD><TD class=xl26 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc" align=right x:num><FONT face="Arial CYR" size=2>55</TD><TD class=xl26 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ccffcc" align=right x:num><FONT face="Arial CYR" size=2>55</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffcc99" height=17><FONT face="Arial CYR" size=2>Сидоров</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>44</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>222321</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffcc99" height=17><FONT face="Arial CYR" size=2>Сидоров</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>222321</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>222321</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffcc99" height=17><FONT face="Arial CYR" size=2>Сидоров</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>213</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>222321</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffcc99" height=17><FONT face="Arial CYR" size=2>Сидоров</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>2444</TD><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext; BORDER-BOTTOM: windowtext 0.5pt solid; BACKGROUND-COLOR: #ffcc99" align=right x:num><FONT face="Arial CYR" size=2>222321</TD></TR><TR style="HEIGHT: 12.75pt" height=17><TD class=xl27 style="BORDER-RIGHT: windowtext 0.5pt solid; BORDER-TOP: windowtext; BORDER-LEFT: windowtext 0.5pt solid; BORDER-BOTTOM: windowtext 0.5pt solid; HEIGHT: 12.75pt; BACKGROUND-COLOR: #ffcc99" height=17><FONT face="Arial CYR" size=2>Сидоров</TD><TD class=xl27 styl
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 20.07.2006, 15:03
Ответы с готовыми решениями:

Сохранение в текстовый документ даты для каждой фамилии
Помогите сделать что бы при выборе месяцев в listbox и нажатии на кнопку сохранить, в файл...

Вычислить значение наибольшего по модулю элемента для каждой строки массива. N <= 5, M <= 5
Вычислить значение наибольшего по модулю элемента для каждой строки массива. N &lt;= 5, M &lt;= 5

Программа для определения наибольшего значения
Доброго времени суток! Прошу о помощи. Программа для определения наибольшего значения...

Динамическая матрица: найти сумму наибольшего и наименьшего элементов для каждой строки
Помогите пожалуйста Массив сформировал, заполняется с клавиатуры. Задание заключается в том, что...

8
-12 / 0 / 0
Регистрация: 20.07.2006
Сообщений: 4
20.07.2006, 16:45 2
Можно!Используйте функцию ДМАКС. Для остальных фамилий аналогично.
<IMG src="http://www.relib.com/forums/Uploads/Images/6c8c2c7b-1395-4deb-a522-d05e.JPG <IMG src="http://www.relib.com/forums/Uploads/Images/cb7b1c9d-ece7-4eab-abfe-7fc9.JPG
0
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
20.07.2006, 17:16  [ТС] 3
В принципе, этот вариант я уже пробовал. В моем примере все отсортировано (для удобства восприятия). В оригинале все перемешано. Честно говоря, не смог я добиться от данной функции правильной работы на всем списке. Может я просто неправильно ввожу аргументы или све же эта функция не дает нужного решения?
0
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
20.07.2006, 17:35  [ТС] 4
Вот что получилось, если кому интересно.
Буду благодарен, если предложите еще варианты.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11

Public Function Maksimum(Column As Integer, column2 As Integer, Peremen As Variant)
 
 Dim maks As Integer
 Dim j As Integer
 maks = 0
 For i = 1 To 1000 Step 1
 If Cells(i, Column) = Peremen Then j = Cells(i, column2)
 If maks < j Then maks = j
    Next i
 Maksimum = maks
End Function
0
-12 / 0 / 0
Регистрация: 20.07.2006
Сообщений: 4
20.07.2006, 17:46 5
Эта функция использует условия в виде диапазонов, поэтому нужно повторить столько раз, сколько фамилий.
<IMG src="http://www.relib.com/forums/Uploads/Images/1ddde2bf-8658-4684-bf04-a876.JPG <IMG src="http://www.relib.com/forums/Uploads/Images/a3564681-be25-4253-940c-7200.JPG
0
5 / 5 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
20.07.2006, 19:09 6
Tsvet,
Vi zhe prosili formulu, a predlagaete sebe zhe reshenie cherez algoritm...
0
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
20.07.2006, 19:30  [ТС] 7
To VladConn:
Ну так надо же было что-то решать... Я так понял, что формулами это достаточно трудно сделать, если возможно, посему пришлось искать выход. Теперь это тоже "формула" вида =maksimum(1;2;A2)
:-)
Правда, было бы интересно, если есть еще решения...
0
0 / 0 / 0
Регистрация: 23.11.2010
Сообщений: 153
20.07.2006, 21:09 8
МОЖНО И ФОРМУЛУ :-)
<IMG src="http://www.relib.com/forums/Uploads/Images/aef287d5-1569-484c-b4e3-bab8.JPG
0
3 / 3 / 0
Регистрация: 08.09.2011
Сообщений: 111
20.07.2006, 21:27  [ТС] 9
Гениально!
Спасибо большое!
0
20.07.2006, 21:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 20.07.2006, 21:27
Помогаю со студенческими работами здесь

Расчёт погрешности эпсилона для наибольшего значения U
Здравствуйте, необходимо сделать расчёт погрешности эпсилона для наибольшего значения U: ...

Рекурсивная функция для вычисления наибольшего значения в одномерном массиве
для вычисления наибольшего значения в одномерном массиве

Определение наибольшего значения из наименьших по каждой строке матрицы
Ребята, пожалуйста, помогите сделать 2 задачи новичку, пожалуйста кто-то откликнитесь( 2....

Определите для каждой команды количество, фамилии и возраст участников, родившихся в указанную пору года
Информация об участниках спортивных соревнований содержит: наименование страны; название команды;...

Разработайте проект для определения наибольшего значения из трех f(1), f(2) и f(3), где f(x) = sin(5x).
:wall:

Для заданной матрицы получить массив, записывая в него последовательно суммы наибольшего и наименьшего элементов каждой строки.
Для заданной матрицы A(N,N) (N10) получить массив B(N), записывая в него последовательно суммы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru