Функции работы с ошибками в WorksheetFunction

[glumz]

Добрый день.
В макросе не работает функция ISERROR. Выдает в ячейке ошибку ЗНАЧ
WorksheetFunction.IfError(Worksheet Function.VLookup(a.Columns(x).Value , a2, 2, 0), 0)

[Watcher_1]

a2 в кавычки разве не надо заключать?

[Казанский]

glumz, выложите весь макрос, а лучше файл XLS.

[glumz]

Файл тяжелый (16 Мбт) и содержит инфо с коммерческой информацией, поэтому не выкладываю. Когда ставишь значение в VLOOKUP, которое есть в таблице для проверки (второй аргумент), то все нормально. В ином случае выдает ошибку, хотя конструкция в самой таблице ЕСЛИОШИБКА(ВПР.....)) работает нормально. Даже написав простой код типа Range("a1").Value=IFERROR(1/0,0) выдается ошибка.
Dim a1 As Variant, a2 As Variant, a3 As Variant

' a1 - номера материала в виде строки, тип Range
' а2 - таблица с подмножеством а1, где отражены номера тип Range
' a3 - количество материала. а1 и а3 имеют одинаковую размерность тип Range

Function countAML(a1, a2, a3)

Dim a As Range, q1 As Long, q2 As Long, q3 As Long, w As String, x As Long, y As Long, e As Double

Set a = a1
q1 = a.Columns.Count
q2 = a.Column
q3 = a.Row
'w = Application.ThisCell.Row

y = 0
For x = 0 To q1

If WorksheetFunction.IfError(Worksheet Function.VLookup(a.Columns(q2).Valu e, a2, 2, 0), 0) > 0 And a3.Columns(x) > 0 Then y = y + 1


Next x

countAML = y

End Function

[Казанский]

WorksheetFunction.VLookup замените на Application.VLookup.
Разница в том, что если функция не находит искомого значения, в первом случае возникает ошибка VBA (которую надо обрабатывать с помощью On Error ...), а во втором случае функция возвращает значение типа Variant/Error, которое обрабатывается функцией IfError (ее тоже можно вызывать как Application.Iferror).

[DiemonStar]

Даже написав простой код типа Range("a1").Value=IFERROR(1/0,0)

А вы, например, так попробуйте:
[A1] = [IfError(1/0,0)]

If WorksheetFunction.IfError(Worksheet Function.VLookup(a.Columns(q2).Valu e, a2, 2, 0), 0) > 0 And a3.Columns(x) > 0 Then y = y + 1

А если так:

If Not IsError(Worksheet Function.VLookup(a.Cells(1,1), a2 , 2, 0)) and a3.Columns(x) > 0 Then y = y + 1

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

If Not IsError(Application.VLookup(a.Cells(1,1), a2 , 2, 0)) then
  Y = Y + Worksheet Function.CountIf(a3 , ">0")
End If

[glumz]

Спасибо, заработало! (Про разницу в вызове встроенных функций инфо нигде не встречал, буду знать)