Excel UDF计算错误

Question

我试图在Excel VBA中编写一个可以计算错误的UDF（#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