- ©«¤l
- 181
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-9
- ³Ì«áµn¿ý
- 2024-4-29
|
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 |
|