標題: [發問] 篩選問題 [打印本頁]

---

作者: spermbank    時間: 2013-10-13 15:25     標題: 篩選問題

大家好:
     原始程式碼
     Sheets("工作表1").Select
     x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算
     ActiveSheet.Range("$A$1:$CE$" & x).AutoFilter Field:=7, Criteria1:=">=1",Operator:=xlOr, Criteria2:="=全"
     我利用錄製功能篩選出X列大於等於1的值或Y列等於全的值。
     現在想利用三個或條件式來完成所以我把程式修改如下
     ActiveSheet.Range("$A$1:$CE$" & x).AutoFilter Field:=7, Criteria1:=">=1",Operator:=xlOr, Criteria2:="=全",Operator:=xlOr, Criteria3:="=無"
    發現程式錯誤，我在想可能不支援2個以上的條件
    若是利用多個條件判別，我還知道怎麼寫
    可是若利用多條件，再利用篩選功能，我就不知道怎麼寫。
    所以想請問一下，謝謝。

---

作者: stillfish00    時間: 2013-10-15 16:52

回復 1# spermbank
你所說的
ActiveSheet.Range("$A$1:$CE$" & x).AutoFilter Field:=7, Criteria1:=">=1",Operator:=xlOr, Criteria2:="=全"
這裡的Field:=7指的是對G欄篩選，也就是篩出 G欄大於等於1 或是 G欄等於"全"。
並不是你說的"篩選出X列大於等於1的值或Y列等於全的值"

對AutoFilter來說，同一欄的篩選條件只能兩個，但是它也能同時對很多欄篩選，不曉得你要的篩選功能到底為何。

---

作者: spermbank    時間: 2013-10-15 19:21

回復 2# stillfish00

    您好:
    就是第G欄要大於等於1或等於全或等於無
    篩選好像只能在某一欄位設定兩個條件無法再設定多個條件
    並非是很多欄位的篩選。

---

作者: joey0415    時間: 2013-10-16 08:27

利用excel與sql功能，就能改變這些！不用這麼麻煩！即使是excel 2003 也輕鬆做到

例如：http://blog.bestdaylong.com/2013/09/excelsql.html

sql 可以多個條件，速度又快，資料數百萬筆也行…

---

作者: spermbank    時間: 2013-10-16 10:43

回復 4# joey0415


    OK，謝謝您。

---

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