返回列表 上一主題 發帖

[發問] vba中iserror用法？

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-12-19 13:12 | 只看該作者

[發問] vba中iserror用法？

請問
cells(1,1)=2
cells(1,2)=0
cells(1,3)=cells(1,1)/cells(1,2)

請問如果想判斷這三格都符合不為以下的狀況時，才去做某件事，那要怎麼寫，好像不能用iserror(range("a1:c1"))
#DIV/0!
#N/A
#NAME?
#NULL!
#NUM!
#REF!
#VALUE!
收藏 分享

bobomi

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

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
3#
發表於 2014-12-19 22:43 | 只看該作者
回復 2# bobomi

萬分感謝回覆！原來是多一個開關，如果是就離開

我的想法也是這樣，不過我的開關一直沒有寫好

謝謝

TOP

Jerrywu101

帖子
15 
主題
5 
精華
0 
積分
60 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2014-11-29 
最後登錄
2017-10-9 
4#
發表於 2014-12-20 22:46 | 只看該作者
回復 1# joey0415

這裡有個網頁也可參考看看：

Excel欄位公式常見錯誤原因與處理(#REF!、#VALUE!、...)
http://it.notes.tw/2009/11/excel-field-error.html

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
5#
發表於 2014-12-21 14:44 | 只看該作者
回復 4# Jerrywu101
這些是函數的用法！

我要問題是vba程式中出現錯誤時的處理，很像，但處理的方式不一樣哦

感謝分享

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題