Преглед садржаја
Пронађите максималну вредност за сваку колону у опсегу
Следећа функција ће вратити максималну вредност у свакој колони у опсегу:
Функција Мак_Еацх_Цолумн (Дата_Ранге Ас Ранге) Ас Вариант Дим ТемпАрраи () Ас Доубле, и Све док Дата_Ранге није ништа тада изађите из функције са Дата_Ранге РеДим ТемпАрраи (1 За .Цолумнс.Цоунт) За и = 1 За. Цолумнс.Цоунт ТемпАрраи (и ) = Апплицатион.Мак (.Цолумнс (и)) Нект Енд Витх Мак_Еацх_Цолумн = Функција краја ТемпАрраи
За приказ резултата можемо да користимо следећу потпрограм:
Привате Суб ЦоммандБуттон1_Цлицк () Дим Ансвер Ас Вариант Дим Но_оф_Цолс Ас Интегер Дим и Ас Интегер Но_оф_Цолс = Ранге ("Б5: Г27"). Цолумнс.Цоунт РеДим Ансвер (Но_оф_Цолс) Ансвер = Мак_Еацх_Цолумн (Схеетс ("Схеет1"). Ранге Б5: г27 ")) За и = 1 до Но_оф_Цолс МсгБок одговор (и) Следећи и Крај под
Тако:
Враћа 990,907, 992, 976, 988 и 873 за сваку од горе наведених колона.
[ПОСЕБНО ХВАЛА МИКЕУ РИЦКСОНУ ЗА РЕШАВАЊЕ ФИНЕРИЈА НИЗОВА У УДФ -у]