1 
Sub Macro9()
Dim LReturnValue As Boolean

LReturnValue = IsError(Sheets("Lookup Addition").Range("A:A").Value)

If LReturnValue = False Then
    i = MsgBox("there were no errors", vbOKOnly)
Else
    i = MsgBox("there were errors", vbOKOnly)
End If

End Sub

IsError(Customfunction()) 構文がどうあるべきかについて少し混乱しています。範囲内のすべてのセルをチェックするように指示するにはどうすればよいでしょうか?

4

2 に答える 2

4

範囲内のエラーのカウントには、ループ (範囲が大きい場合は非常に遅くなる可能性があります) や VBA は必要ありません。

このワークシート関数をどこかのセルに追加するだけです。ユーザーにこのセルを見せたくない場合は、行/列/シートを非表示にすることができます。

=SUMPRODUCT(ISERROR(A:A)*(1=1))

それでもユーザー用のポップアップ ボックスが必要な場合、VBA は次のようになります。

Sub CountErr()  
     MsgBox "There are " & ActiveSheet.Range("B1").Value & " Errors"  
End Sub

わかる？

于 2013-04-25T15:22:20.690 に答える