[發問] 篩選問題

大家好:
   原始程式碼
   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個以上的條件
若是利用多個條件判別，我還知道怎麼寫
可是若利用多條件，再利用篩選功能，我就不知道怎麼寫。
所以想請問一下，謝謝。

樓主熱帖

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

5^#

發表於 2013-10-16 10:43 | 只看該作者

回復 4# joey0415

OK，謝謝您。

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

4^#

發表於 2013-10-16 08:27 | 只看該作者

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

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

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

TOP

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

3^#

發表於 2013-10-15 19:21 | 只看該作者

回復 2# stillfish00

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

TOP

stillfish00

大學生 Rank: 4

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

2^#

發表於 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來說，同一欄的篩選條件只能兩個，但是它也能同時對很多欄篩選，不曉得你要的篩選功能到底為何。

TOP