Не могу найти ошибку

[IgorGO]

Почему формула в 5-й строке не выдает тех же результатов, что и формулы в строках 1-4? Что я написал не так?
Спасибо!

[аналитика]

у меня вот что

[Serge 007]

Поиск "Пусто" в массиве даст "#ЗНАЧ" или "#Н/Д". В С5 - пусто.

[IgorGO]

в D5 записана формула
=PosPlus(RC2)
где PosPlus это

Function PosPlus(iRow As Long)
  PosPlus = Application.WorksheetFunction.Match(Range("C" & iRow) + Range("B" & iRow), Range("A1:A5"))
End Function

Мысль такая, если для PosPlus дать параметр 1,2,3,4 - она должна вернуть тоже, что и формулы в D1, D2, D3, D4... а не тут-то было
Serge 007, если В5 написать 5, то действительно будет искать значение из С5, а там пусто...
Продолжим...
Всего-то одна строка кода и одна формула, почему WorksheetFunction.Match не выдает тех же результатов, получая те же параметры. Даже вопрос не так, почему он вообще ничего не выдает???

[Serge 007]

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

Serge 007, если В5 написать 5, то действительно будет искать значение из С5, а там пусто...

IgorGO, Вы профи с большой буквы, но я ещё раз скажу, если PosPlus(RC2), эт тоже что и =ПОИСКПОЗ($C5+$B5;$A:$A), то если в С5, вписать 5, то поиск ограничится #Н/Д. И вообще, в всё что Вы впишите в С5 не будет находится в столбце А, то результат будет одинаков...

[EducatedFool]

Если написать так:

Function PosPlus(ByVal iRow As Long)
    PosPlus = Application.Match(Range("C" & iRow) + Range("B" & iRow), Range("A1:A5").Value, 1)
End Function

то функция что-то начинает выдавать.

И ещё, как я понял, Application.WorksheetFunction.Match и Application.Match - разные функции

[nilem]

У меня вот так заработало:

Function PosPlus(iRow As Long) As Double
   Dim wsh As Worksheet
   Set wsh = ActiveSheet
   With wsh
       PosPlus = WorksheetFunction.Match(.Cells(iRow, 3) + .Cells(iRow, 2), .Range("A1:A5"))
   End With
End Function

[Aent]

В WorksheetFunction.Match первым аргументом не должно быть выражение получающее "не адресное" значение. В результате приведения типов должен получиться ранг.

?Application.WorksheetFunction.Match(Cells(4,3), Range("A1:A5"), 0) ' работает
?Application.WorksheetFunction.Match ([C4], Range("A1:A5"), 0) ' работает
?Application.WorksheetFunction.Match(Cells(4,3)+0, Range("A1:A5"), 0) ' не работает RTE 1004
?Application.WorksheetFunction.Match ([C4]+0, Range("A1:A5"), 0) ' не работает RTE 1004

И это понятно ибо первый аргумент должен быть рангом а не значением.
И действительно:
Application.WorksheetFunction.Match (CDate("13.09.2010 7:21:57"), Range("A1:A5"), 0)
Даст всё ту же ошибку 1004
Хочу заментить что WorksheetFunction не идентичен функциям рабочего
листа. Хотя это и оксюморон ...
Реализующий код по всей видимости несколько разнится.

[EducatedFool]

Вариант с именованным диапазоном и без него:

Function PosPlus(ByRef s)
    PosPlus = Application.Match(s, Range("A:A"), 1)
End Function

Function PosPlus2()
    Application.Volatile True
    PosPlus2 = Application.Match([rc2+rc3], Range("A:A"), 1)
End Function

Посмотрите формулы в желтых ячейках

[IgorGO]

спасибо всем!
сняли меня с мертвого якоря, а то я по 10 кругу чего уже только не подставлял в качестве параметром, а результата все нет и нет. Появились идеи, уверен что добью.
3-й день в Коктебеле, жарко, может местный климат не благоприятный для умственной деятельности или может мне умственная деятельность противопоказана? Хотя, ничего такого, что могло повлиять на мозг не принимал, несмотря на обилие вин, коньяков и прочих... соблазнов