Написать в VBA аналог формулы екселя.

[tae1980]

Задача: есть таблица значений "Смежники.таблица", в которой 5 столбцов. Есть переменная в которой есть значение из первого столбца. Нужно получить значение любого столбца из строки в которой находиться значение.

В экселе решаю задачу так:
"=IF(ISNA(VLOOKUP(I9,Смежники.табли ца,2,FALSE)),"111",VLOOKUP(I9,Смежн ики.таблица,5,FALSE))"

В VBA написал так:
WorksheetFunction.IF(WorksheetFunct ion.IsNA(WorksheetFunction.VLookup( смежники(n, i), "смежники.таблица", 2, False)), "111", WorksheetFunction.VLookup(смежники( n, i), "смежники.таблица", 5, False))

Вместо ячейки "I9" значения нужно брать из массива "смежники".

При попытке выполнить вылетает матерная фраза "Невозможно получить свойство VLookup класса WorksheetFunction". Хотя основную часть я "подсмотрел" у самого экселя.

Как быть? Куда рыть?

[EducatedFool]

А что это такое - смежники(n, i)?

Скорее всего эта функция возвращает значение не того типа, которое требуется функции VLookup в качестве параметра.

Или попробуйте заменить "смежники.таблица" на [смежники.таблица]

[tae1980]

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

А что это такое - смежники(n, i)?

Скорее всего эта функция возвращает значение не того типа, которое требуется функции VLookup в качестве параметра.

Двухмерный массив. Содержит имена смежников, информация полностью аналогична той что содержится в ячейки "I9"

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

Или попробуйте заменить "смежники.таблица" на [смежники.таблица]

Сейчас попробую....

[tae1980]

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

Или попробуйте заменить "смежники.таблица" на [смежники.таблица]

Не помогло... Попробовал перенести значение из массива в переменную и подставить ее. То же мимо... (

[EducatedFool]

Вот в таком виде функция VLookup работает правильно: (проверял)

Sub test()
    res = WorksheetFunction.VLookup(5, [смежники.таблица], 2, False)
    MsgBox res
End Sub

Не помогло...

В любом случае, вместо "смежники.таблица" надо писать [смежники.таблица]
(поскольку Вы передаёте функции не имя диапазона, а сам диапазон)

И попробуйте вычислить формулу по частям - в VBA совсем не обязательно писать всё в одну строчку...
Сразу увидите, в чём ошибка.

Попробуйте так:

Sub test()
    On Error Resume Next: Err.Clear
    res = WorksheetFunction.VLookup(смежники(n, i), [смежники.таблица], 2, False)
    If Err.Number > 0 Then res = "111" Else res = WorksheetFunction.VLookup(смежники(n, i), [смежники.таблица], 5, False)
    MsgBox res
End Sub

У меня не работает, стой же ошибкой. (((

Ошибка и будет появляться, если в первом столбце именованного диапазона [смежники.таблица] отсутствует ячейка со значением "5"
Поставьте в строку res = WorksheetFunction.VLookup(5, [смежники.таблица], 2, False)
вместо пятёрки какое-нибудь значение, которое точно присутствует в таблице, и проверьте макрос.

А вообще, зачем проверять на ошибку результат функции WorksheetFunction.VLookup(смежники( n, i), [смежники.таблица], 2, False),
если точно такой же результат выдаст WorksheetFunction.VLookup(смежники( n, i), [смежники.таблица], 5, False)?

Код в этом случае упрощается:

Sub test()
    On Error Resume Next: Err.Clear
    res = WorksheetFunction.VLookup(смежники(n, i), [смежники.таблица], 5, False)
    res = IIf(Err.Number > 0, "111", res)
    MsgBox res
End Sub

[tae1980]

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

Вот в таком виде функция VLookup работает правильно: (проверял)

Sub test()
    res = WorksheetFunction.VLookup(5, [смежники.таблица], 2, False)
    MsgBox res
End Sub

В любом случае, вместо "смежники.таблица" надо писать [смежники.таблица]
(поскольку Вы передаёте функции не имя диапазона, а сам диапазон)
И попробуйте вычислить формулу по частям - в VBA совсем не обязательно писать всё в одну строчку...
Сразу увидите, в чём ошибка.

Чертовщина.... У меня не работает, стой же ошибкой. :((((
Попробую перегрузиться....

[tae1980]

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

Код в этом случае упрощается:

Sub test()
    On Error Resume Next: Err.Clear
    res = WorksheetFunction.VLookup(смежники(n, i), [смежники.таблица], 5, False)
    res = IIf(Err.Number > 0, "111", res)
    MsgBox res
End Sub

Спасибо! Заработало. :) Может перезагрузка все же помогла. :))))
Теперь поколдуем....

Можно немного подробнее что делает эта строчка?

    On Error Resume Next: Err.Clear

[EducatedFool]

On Error Resume Next - говорит Excel-ю, что в случае ошибки идём дальше
(короче, сообщения об ошибках выводиться не будут)

Объект Err хранит все параметры произошедшей ошибки (номер, описание, и т.п.)
Err.Clear - мы очищаем этот объект (сбрасываем параметры последней ошибки)

Потом мы вычисляем функцию WorksheetFunction.VLookup, которая может сгенерировать ошибку

Чтобы узнать, произошла ли ошибка, мы проверяем номер ошибки у объекта Err
Если ошибка имела место, то номер ошибки будет ненулевой.

PS: Всё это можно было прочитать в справке (или же спросить у Гугла)

[tae1980]

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

On Error Resume Next - говорит Excel-ю, что в случае ошибки идём дальше
(короче, сообщения об ошибках выводиться не будут)

Объект Err хранит все параметры произошедшей ошибки (номер, описание, и т.п.)
Err.Clear - мы очищаем этот объект (сбрасываем параметры последней ошибки)

Потом мы вычисляем функцию WorksheetFunction.VLookup, которая может сгенерировать ошибку

Чтобы узнать, произошла ли ошибка, мы проверяем номер ошибки у объекта Err
Если ошибка имела место, то номер ошибки будет ненулевой.

PS: Всё это можно было прочитать в справке (или же спросить у Гугла)

Понятно. Спасибо!