Board logo

標題: [發問] 多條件的INSTR 如何包含or [打印本頁]
作者: starry1314    時間: 2016-11-22 10:07     標題: 多條件的INSTR 如何包含or

請問以下代碼如何調整可讓or的條件為以上條件都達成為基本條件呢?

目前就算上面四項未達成,只要有一個or就被更改數值了
希望:
Or InStr(arr(I, 6), "可") > 0 _
            Or InStr(arr(I, 6), "冬") > 0 _
            Or InStr(arr(I, 6), "麥") > 0 _
以上任一達成條件的前提下必須以下四項皆達成條件才算數

If InStr(arr(I, 8), "保") = 0 _
            And InStr(arr(I, 10), "不清除") = 0 _
            And InStr("飲品", arr(I, 5)) > 0 _
            And InStr("飲品", arr(I, 5)) > 0 _
  1.     With Range([A1], Cells(Rows.Count, "J").End(xlUp))
  2.         arr = .Value
  3.         For I = 1 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row '.Count
  4.             If InStr(arr(I, 8), "保") = 0 _
  5.             And InStr(arr(I, 10), "不清除") = 0 _
  6.             And InStr("飲品", arr(I, 5)) > 0 _
  7.             And InStr("飲品", arr(I, 5)) > 0 _
  8.             Or InStr(arr(I, 6), "可") > 0 _
  9.             Or InStr(arr(I, 6), "冬") > 0 _
  10.             Or InStr(arr(I, 6), "麥") > 0 _
  11.             Then arr(I, 7) = 0
  12.         Next I
  13.         .Value = arr
  14.     End With
複製代碼
作者: 准提部林    時間: 2016-11-22 10:19

if InStr(arr(I, 6), "可")  Or InStr(arr(I, 6), "冬")  Or InStr(arr(I, 6), "麥") then
   If InStr(arr(I, 8), "保") = 0  And InStr(arr(I, 10), "不清除") = 0  And  InStr("飲品", arr(I, 5)) then
       ~~做些什麼~~
   end if
end if
作者: starry1314    時間: 2016-11-22 10:35

回復 2# 准提部林


    感謝版大~~~



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)