返回列表 上一主題 發帖

[發問] 邏輯條件判斷請益

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-2-10 14:07 | 顯示全部帖子
回復 1# li_hsien
附檔看看吧, 我直接run你這寫法會有執行階段錯誤。

該不會你前面下了 On Error Resume Next 指令吧...
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-2-11 11:10 | 顯示全部帖子
本帖最後由 stillfish00 於 2015-2-11 11:16 編輯

回復 3# li_hsien
沒錯啊，這種條件就是要分開寫
然後你可以把 vlookup 查表的值提出來，不然你這樣要查3次
  1. Sub Test33()
  2.   Dim value As Variant  
  3.   value = Application.VLookup(Range("A2"), Range("C:D"), 2, 0)
  4.   If IsError(value) Then
  5.     MsgBox Range("A2") & " is not found": Exit Sub
  6.   ElseIf value <> "" Then
  7.     Range("B2").value = value
  8.   End If
  9. End Sub
複製代碼
重點是: 濫用 On Error Resume Next 是大忌
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2015-2-12 16:43 | 顯示全部帖子
回復 5# li_hsien
對我來說這樣就是濫用了，因為你是為了避免不知道何時何處會出現的錯誤訊息，而只在一開始的地方加 On Error Resume Next ，這樣是不對的。
On Error Resume Next 應該用在你知道會發生執行階段錯誤的地方(該行程式碼)，而且你知道錯誤的原因並且你判斷可以忽略這錯誤，然後在該行前面加 On Error Resume Next，該行後面加 On Error Goto 0，這樣才是正確的用法。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題