Excel UDF для подсчета ошибок

Question

Я пытался написать UDF в Excel VBA, который бы учитывал ошибки (#NA !, #REF! ...). Я попытался перевести формулы Excel в язык языка VBA, не удалось. Кто-нибудь знает решение?

Благодаря

Answer 1

Как насчет

Public Function CountErr(cells As range) As Long 
    Dim cell As range 
    For Each cell In cells 
     If Application.WorksheetFunction.IsError(cell) Then CountErr = CountErr + 1 
    Next 
End Function