Вопрос по функции ПОИСКПОЗ

[IgorGO]

Function Pos_V_in_Rg(V, Rg As Range) As Long
  Dim i As Long, p As Long, d As Double
  If WorksheetFunction.CountIf(Rg, V) > 0 Then
    p = WorksheetFunction.Match(V, Rg, 0)
  Else
    For i = 1 To Rg.Cells.Count
      If Rg.Cells(i) > V Then d = (Rg.Cells(i) - V) ^ 2: p = i: Exit For
    Next
    For i = i + 1 To Rg.Cells.Count
      If Rg.Cells(i) > V And (Rg.Cells(i) - V) ^ 2 < d Then d = (Rg.Cells(i) - V) ^ 2: p = i
    Next
  End If
  Pos_V_in_Rg = p
End Function

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

если функция вернула 0, значит в диапазоне нет чисел больше или равных искомому.

[Казанский]

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

хочу переложить ее потом на VBA (а в VBA у меня знания не густые..).

Выделите ячейку с формулой, Alt+F11, Ctrl+G (окно Immediate редактора VBA). Введите команду

?activecell.Formula

Получится

=MATCH(MIN(IF(A4:A26>A1,A4:A26)),A4:A26,)

Допишите к строке функцию вычисления формулы и тут же получите ответ:

?evaluate("MATCH(MIN(IF(A4:A26>A1,A4:A26)),A4:A26,)")
 7

Работает! Можете переносить в текст программы. Чтобы использовать другие диапазоны, подставьте их адреса в строку с функцией.
Использование формул листа в VBA - чаще всего наиболее эффективный способ вычислений, если данные берутся с листа.

[MaxxVer]

Казанский, спасибо, очень полезное знание!
IgorGO, спасибо заранее, т.к. еще не разобрался как работает код...

[ShAM66]

ЗЫ: Только заметил. В моих формулах "=" нужно убрать (вместо "<=" писать просто "<").
А у Алексея (Казанский), наоборот добавить, т.е. ">=".
Иначе при точном совпадении искомого значения с одним из значений в диапазоне поиска оно проигнорируется и будет искаться "ближайшее большее".

ЗЫ2: Алексей, спасибо, что формулы посокращали. Просто идиотская привычка все сравнивать с 0.