ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] vba¤¤iserror¥Îªk¡H

Sub Test

If Not IsAnyErr(Range("a1:c1")) Then
  ' your code
End If

End Sub

Public Function IsAnyErr(Range As Range) As Boolean

For Each r In Range
    If IsError(r) Then
       IsAnyErr = True
       Exit Function
    End If
Next

End Function

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD