[Layout]

Коллеги! Подскажите с помощь какого оператора в EXEL можно выбрать из ряда чисел ближайшее большее или ближайшее меньшее к заданному числу. Данную задачу я решаю, но алгоритм решения довольно трудоемок. Чуствую, что есть более простое решение (уже готовый оператор), но не могу его найти - в интренете об этом мало что сказано и экселевская справка тоже мало что говорит.
Надеюсь на помощь!!!!

[sdanilov]

Ув. Layout, скажите, не нашли ответа на решение своей проблемы? а то меня тоже очень интересует этот вопрос. И если нет - не могли бы вы мне переслать метод ваш сложный решения озвученной проблемы... Оч надо!

Сразу приклавдываю ссылку.. тоолько что нашел - может быть поможет? http://www.planetaexcel.ru/forum.php?thread_id=9833

[KronSerg]

Для ближайшего большего такой, например, вариант

Код:

[Выделить все]

Function nearmax(Число As Long, диапазон As Range)
Dim k, rez As Long
rez = 10000000
For Each i In диапазон
k = i.Value - Число
If k > 0 And i.Value < rez Then rez = i.Value
Next i
nearmax = rez
End Function

Для меньшего:

Код:

[Выделить все]

Function nearmin(Число As Long, диапазон As Range)
Dim k, rez As Long
rez = -10000000
For Each i In диапазон
k = i.Value - Число
If k < 0 And i.Value > rez Then rez = i.Value
Next i
nearmax = rez
End Function

[sdanilov]

мдаааа. это как-то круто...

[KronSerg]

Куда уж как круто, нажимай alt+F11, создавай модуль, вставляй и пользуйся (функция появится в разделе "определённые пользователем")

[sdanilov]

да я уже для частного случая (моего) проблему решил. Правда это только для ряда с возрастающими числами. Но мне сгодится. А за информацию спасибо - обязательно себе сохраню. Подобная функция нужна постоянно. Даже не понятно, почему MS не вывел ее в разряд стандартных...

[KronSerg]

Поправил маленько функции, для ближайшего большего:

Код:

[Выделить все]

Function nearmax(Число As Double, диапазон As Range)
Dim k, rez As Double
For Each i In диапазон
k = i.Value
If rez < k Or rez = Empty Then rez = k
Next i
For Each i In диапазон
If i.Value > Число And i.Value < rez Then rez = i.Value
Next i
If rez < =Число Then rez = Error(1)
nearmax = rez
End Function

Для ближайшего меньшего:

Код:

[Выделить все]

Function nearmin(Число As Double, диапазон As Range)
Dim k, rez As Double
For Each i In диапазон
k = i.Value
If rez > k Or rez = Empty Then rez = k
Next i
For Each i In диапазон
If i.Value < Число And i.Value > rez Then rez = i.Value
Next i
If rez >= Число Then rez = Error(1)
nearmin = rez
End Function

Плюс к тому сделал надстройку, загрузи её в excel и функции будут доступны постоянно

[sdanilov]

спасибо

[Scorpio_1986]

Есть встроенные функции: ОКРУГЛВНИЗ и ОКРУГЛВВЕРХ. Надо справку смотреть чем велосипед изобретать!

[KronSerg]

Scorpio_1986, ты не понял, допустим есть ряд чисел 3, 56, 18, 125, -10, 10000
Так вот, функция должна находить ближайшие большее из списка, например
Число 1 ответ 3
Число -9 ответ 3
Число -125 ответ -10
Число 20 ответ 56
Число 200 ответ 10000
Понял свою ошибку?
Offtop: Судя по количесву скачиваний надстройки не так уж и востребована функция

[tehkonst]

для отсортированных чисел так решается:
ИНДЕКС(столбец с числами, ПОИСКПОЗ(число; столбец с числами)+1, 1)

[Дрюха]

Сообщение от tehkonst для отсортированных чисел так решается: ИНДЕКС(столбец с числами, ПОИСКПОЗ(число; столбец с числами)+1, 1)

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

[tehkonst]

Можно проверку дополнительно сделать. Или проще от числа сотую отнять (если шаг больше 0.01).
ИНДЕКС(столбец с числами, ПОИСКПОЗ(число-0,01; столбец с числами)+1, 1)

[Дрюха]

Сообщение от tehkonst Можно проверку дополнительно сделать. Или проще от числа сотую отнять (если шаг больше 0.01). ИНДЕКС(столбец с числами, ПОИСКПОЗ(число-0,01; столбец с числами)+1, 1)

Спасибо