Матрицы

[IgorGO]

Игорь, это все ерунда))) результаты-то хоть совпадают?
Roky на конкурс ничего не прислал? может кода немного или денег?

предлагаю определить победителей по номинациям САМЫЙ:
1. короткий код,
2. быстрый алгоритм,
3. оригинальный алгоритм.

Roky, пока количество премий только 3 - лучше обьявиться самому, добровольно. Когда судебные исполнители придут описывать имущество в пользу победителей конкурса - будет уже поздно.

[Hugo121]

Результаты тютелька в тютельку
Самый оригинальный у меня. И букв больше всего тоже у меня
Но UDF тоже вон из ряда)))
Чтоб на скорость проверить - это опять нужно диапазон менять И наполнять его данными, что в лом...

Уже сложил всё в один файл, из дома разошлю.
А почему 3 премии? Вариантов уже 5 - Roky придётся пятерым платить... Или премии только призовым местам, а остальным грамоты будем выдавать?

[Hugo121]

Появился 6-ой конкурсант. Проверить пока не могу - не рассчитано на XL2000, но приз за оригинальность уже его.
Схожих с остальными кодами 2 строки:
Set rng = [a1].CurrentRegion
и
MsgBox "Максиминное значение " & a & vbCrLf & _
"строка " & r.Row & vbCrLf & _
"столбец " & r.Column
Описка видать по Фрейду , Николай?

[nilem]

Сообщение от Hugo121

Set rng = [a1].CurrentRegion
и
MsgBox "Максиминное значение " & a & vbCrLf & _
"строка " & r.Row & vbCrLf & _
"столбец " & r.Column
Описка видать по Фрейду , Николай?

Почему? Максимальное из минимальных - это максиминное значение, также как минимаксное - нормальный термин,- ни Фрейда, ни даже Юнга.
Кстати, вместо rng лучше With [a1].CurrentRegion.

[Hugo121]

Принято. Но в коде есть упущение - цифры могут быть неуникальные. Так при проверке и вышло - определяет верно, но находит первое попавшееся. Но с уникальными должно быть красиво!
Высылаю всё, что есть, всем, кто есть в моём почтовом клиенте

[R Dmitry]

Самое интересное , что алгоритмы абсолютно разные
Я представляю лицо преподавателя, если студент принесет шесть различных алгоритмов

[doober]

Я думаю.он не принесет ни одного.
Да направление мыслей у всех разное

[Hugo121]

Уже семь.
Я бы этому седьмому коду от MCH отдал все три приза даже без замера скорости.
Как оно работает, пока не понял
Покажу ядро - куда вставить и как получить результат пусть студент додумает сам:

    If a.Row > 1 And a.Column = 1 Then
        If a.Row = 2 Then Set r = r1 Else If r1 > r Then Set r = r1
    End If
    If a.Column = 1 Then Set r1 = a Else If r1 > a Then Set r1 = a

В общем, это весь код, остальное обвязка

[MCH]

Игорь, собственно алгоритм аналогичен тому, который приведен в UDF
толко вместо циклов:
for i=1 to n: for j=1 to m
используется цикл for each a in ...
и соответственно a.row, a.column вместо i, j

Всю остальную обвязку украл из поста, когда ты приводил выдержки из решения Николая

[MCH]

Я бы этому седьмому коду от MCH отдал все три приза даже без замера скорости

Игорь, рано раздавать призы, нашел в своем коде досадную ошибку, не обрабатывала последнюю строчку должным образом
тело можно записать так:

    If a.Column = 1 Then Set r1 = a Else If r1 > a Then Set r1 = a
    If a.Column = rng.Columns.Count Then
        If a.Row = 1 Then Set r = r1 Else If r1 > r Then Set r = r1
    End If

дополнительно объявив rng.
Исправления (2 варианта) отправил на почту.
Кроме того макрос будет работать только если данные находятся в А1 и ниже/правее, как это обойти пока не знаю, т.к. не силен в VBA