返回列表 上一主題 發帖

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

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
206  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-5 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-9 18:49 | 只看該作者

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

本帖最後由 li_hsien 於 2015-2-9 18:50 編輯

有個邏輯判斷問題請教各位大大

主要邏輯 -> 如果A2跟C欄比對，有比到的話則B2值=D2

判別條件細分:
1. 如果A2跟C欄vlookup比對的到
2. 如果比到的值(D2)不為空值
若上述條件成立則將D2值填入B2
  1.      
  2. If IsError(Application.VLookup(Range("A2") , Range("C:D") , 2 , 0)) = False And Application.VLookup(Range("A2") , Range("C:D") , 2 , 0) <> "" Then
  3.         
  4.         Range("B2") = Application.VLookup(Range("A2") , Range("C:D") , 2 , 0)
  5.      
  6. End If
複製代碼
現在令小弟疑惑的點是

為什麼我A2的值確實不存在於C欄中

但B2還是會被填入值(顯示#NA)
  1. IsError(Application.VLookup(Range("A2") , Range("C:D") , 2 , 0))
複製代碼
上方這段 如果A2不存在於C欄中不是應該等於True嗎???
所以我條件是等於False應該不會往下執行吧???


不知小弟是哪邊誤解  煩請各位解惑

謝謝！！！
收藏 分享
用功到世界末日那一天∼∼∼

stillfish00

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

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

TOP

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
206  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-5 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
3#
發表於 2015-2-11 08:30 | 只看該作者
回復 2# stillfish00

感謝stillfish提點！！！

真的是On Error Resume Next的影響

後來我發現下段這行
  1. Application.VLookup(Range("A1"), Range("C:D"), 2, 0) <> ""
複製代碼
因為比對不到所以出錯了

但我下了On Error Resume Next所以就往下執行了

導致值給了#NA


後來修正作法變成是將兩個條件分開
  1. If IsError(Application.VLookup(Range("A1"), Range("C:D"), 2, 0)) = False Then

  3.     If Application.VLookup(Range("A1"), Range("C:D"), 2, 0) <> "" Then   
  4.        Range("B1") = Application.VLookup(Range("A2"), Range("C:D"), 2, 0)
  5.     End If
  6.         
  7. End If
複製代碼
但好像不是很聰明的作法@@
用功到世界末日那一天∼∼∼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 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

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
206  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2024-11-5 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2015-2-11 17:38 | 只看該作者
回復 4# stillfish00

謝謝stillfish00協助

其實設定On Error Resume Next

主要是因為常常會給使用者使用

盡可能不要讓錯誤訊息跳出來

但要以Msg顯示好像沒有比較適當的字眼

所以就加上去了

但缺點就是程式碼若有誤 常會一時抓不出來@@
用功到世界末日那一天∼∼∼

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 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

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