Преведение расчитываемого параметра к ближайшему значению из заданного массива

[Dophin]

пока писал - понял что написал глупость) вот Ваша формула
=МИН(ЕСЛИ(ABS(C3-A1:A4)=МИН(ABS(C3-A1:A4));A1:A4))

также - формула массива



вычислите формулу пошагово - все поймете.

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

[KASTCHEI]

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

Поместите в модуль подобный код:

Public Function besideArr(vArr As Range, vVal) As Double
Dim j#
besideArr = 1000000000
For Each v In vArr
    j = v.Value
    If Abs(vVal - j) < Abs(besideArr) Then
        besideArr = vVal - j
    End If
Next
besideArr = vVal - besideArr
End Function

Поясните, пожалуйста, куда необходимо поместить это выражение? Что такое модуль?

[KASTCHEI]

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

пока писал - понял что написал глупость) вот Ваша формула
=МИН(ЕСЛИ(ABS(C3-A1:A4)=МИН(ABS(C3-A1:A4));A1:A4))

также - формула массива

Но предыдущая формула работает как надо.

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

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

[Dophin]

значит эта тоже. та избыточна, следовательно медленее работает

[KASTCHEI]

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

Но предыдущая формула работает как надо.

Всё-таки пардон: старая формула работает с ошибкой.

Спасибо за настойчивость.
За то - мои благодарности:
http://ihero2012.com/hero-1339502463-20100212.html
(было бы фото - вышло б круче).

[Dophin]

что за ошибка?) и вообще лечить по фотографии - плохая методика) давно бы файл выложили

[KASTCHEI]

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

что за ошибка?) и вообще лечить по фотографии - плохая методика) давно бы файл выложили

Так я же выложил (на первой странице) ту часть таблицы, которая отвечает за расчёт.
Могу выложить и полный файл, но там много полей, которые носят вспомогательный характер и к рассматриваемому вопросу не относятся (только сбивать с толку будут).

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

[Dophin]

у меня обе формулы корректно считают, впрочем как и должны)

[Teslenko_EA]

Здравствуйте KASTCHEI.
"Что такое модуль?.." - я надеялся Вы знаете что в документе Excel может присутствовать программный код выполняемый интегрированным в Excel Visual Basic for Application (в простонародии VBA).
Редактор VBA можно открыть клавишами Alt + F11, далее комбинация клавиш Alt + I открывает меню а нажатие клавиши M (латинской) создает модуль, в него и помещается код функции.
После этих действий, в списке функций Excel, в категории Определенные пользователем Вы увидите вновь созданную функцию: besideArr. Со способом её применение (=besideArr(B1:B20;C5) ) надеюсь Вы разберетесь.
Евгений.

[KASTCHEI]

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

у меня обе формулы корректно считают, впрочем как и должны)

А вот у меня упрощённый вариант проверки формул и они дают разный вариант. Думал, что допустил ошибку в формуле (переопределял диапазон), но вроде бы всё нормально.