значение формулы - ошибка

[Jaroslav]

Добрый день. Как на VBA написать: если значение формулы в А1 = "#Н/Д", то Msgbox "в ячейке А1 неверно указана формула"?

Вариант:

If Range("A1").Value = "#N/A" Then Msgbox "в ячейке А1 неверно указана формула"

не проходит

[IgorGO]

If IsError(Range("A1") Then Msgbox "в ячейке А1 неверно указана формула"

[Jaroslav]

Спасибо, Игорь. Работает

[pashulka]

Если вдруг понадобится определить наличие именно #Н/Д, то :

If Application.IsNA(Range("A1")) Then MsgBox "В ячейке A1 наличествует #Н/Д"

If [IsNA(A1)] Then MsgBox "В ячейке A1 наличествует #Н/Д"

[Казанский]

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

Если вдруг понадобится определить наличие именно #Н/Д, то :

If [IsNA(A1)] Then MsgBox "В ячейке A1 наличествует #Н/Д"

Внимание: выражение [IsNA(A1)] или Evaluate("IsNA(A1)") чувствительно к стилю ссылок приложения, при стиле ссылок R1C1 это работать не будет.

[pashulka]

Внимание : если в момент выполнения любого из вышеопубликованных вариантов - активным окажется лист не имеющий ячеек (например диаграмма), то возникнет ошибка.


А если серьёзно, то, пользуясь случаем, добавлю ещё два способа определения наличия #Н/Д, которые легко можно адаптировать и для поиска ошибки в диапазоне ячеек (для несмежных ячеек проще использовать последний вариант)

If Application.CountIf([A1], "#N/A") > 0 Then MsgBox "В ячейке A1 наличествует #Н/Д"

If Not [A1].Find("#N/A", , xlValues, xlWhole) Is Nothing Then MsgBox "В ячейке A1 наличествует #Н/Д"

P.S. A этот вариант должОн работать не зависимо от нотации (правда он требует указания родителей, хотя бы листа) :

If ExecuteExcel4Macro("ISNA(Лист1!R1C1)") Then MsgBox "В ячейке A1/R1C1 наличествует #Н/Д"

[Jaroslav]

Спасибо, ребята