- 帖子
- 13
- 主題
- 3
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-2-23
- 最後登錄
- 2017-11-17
|
4#
發表於 2013-8-9 14:43
| 只看該作者
感謝 Hsieh大大的回覆
自己嘗試改寫成如下:
Sub text()
On Error GoTo HandleErr
ok = IsError(Cells.SpecialCells(xlCellTypeFormulas, 16))
ok = Ture
MsgBox "有#N/A,請Check"
Exit Sub
HandleErr:
MsgBox "Nothing Happen"
End Sub |
|