- 帖子
- 181
- 主題
- 5
- 精華
- 0
- 積分
- 197
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-3-9
- 最後登錄
- 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 |
|
發表於 2014-12-19 20:13
| 