返回列表下一主題上一主題發帖

[發問] 篩選問題

spermbank

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

大學生 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

spermbank