ªð¦^¦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 : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD