返回列表 上一主題 發帖

AutoFilter 「讀出」Criteria的判別式

mpegwmvavi

帖子
11 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
win7 
軟體版本
office2011 
閱讀權限
10 
性別
男 
註冊時間
2011-5-5 
最後登錄
2015-6-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-18 13:29 | 只看該作者

AutoFilter 「讀出」Criteria的判別式

一般常見的都是寫入criteria後進行篩選
譬如要篩選C欄是"甲"或"乙"或"丙"的儲存格
vba語法會是 Column("C:"C").Autofilter field:=1,Criteria1:=Array("甲","乙","丙")

現在我需要的是我有很多欄要進行篩選,
我想把篩選的條件紀錄下來,
之後在其他有同樣欄位的sheet用這些criteria進行篩選
下面語法除了篩選「時間」外運行都ok

思路:

先創建一陣列A,用來儲存每欄的篩選條件

1.先判斷該欄是否有篩選
2.如果是,再判斷Criteria1是否是陣列
若是陣列,則表示篩選數量>=3且criteria2無定義,
=>把criteria1讀入陣列A
3.如果criteria1不是陣列,則篩選數量不是1就是2,
接著判斷1或2的方法是利用operator,如果operator是0,表示篩選數量是1
4.else就一定是篩選數量=2,此時criteria1和criteria2各儲存一個值
  1. Sub 篩選條件()
  2. Range("A1:C10").Autofilter   '對A1至C10進行篩選
  3. Dim ConditionArray(1 to 3)   '創一陣列,儲存每欄的篩選條件

  5. With Range("A1:C10").Autofilter
  6. For i=1 to .Filters.Count   '逐欄判斷
  7.     If .Filters(i).On Then  '判斷該欄有無篩選
  8.         If isarray(.Filters(i).Criteria1) Then
  9.             ConditionArr(i)=.Filters(i).Criteria1   '該欄篩選數量>=3,以陣列方式存入ConditionArr
  10.         End if
  11.     Elseif .Filters(i).Operator Then  '如果是0(篩選數量=1)則返回false
  12.         ConditionArr(i)=.Filters(i).Criteria1
  13.     Else
  14.         Dim temp(1 to 2)    '創一暫存陣列,讓條件1和2存成陣列
  15.         temp(1)=.Filters(i).Criteria1
  16.         temp(2)=.Filters(i).Criteria2
  17.         ConditionArr(i)= temp  將暫存陣列存入ConditionArr陣列
  18.     End if
  19. Next

  21. End with

  23. End sub
複製代碼
之後再讀出即可
  1. For i = 1 To 3
  2.     If IsEmpty(CondiArr(i)) Then GoTo Jump
  3.       If IsArray(CondiArr(i)) Then   
  4.         ReDim RedoArr(1 To UBound(CondiArr(i)))   
  5.         For j = 1 To UBound(CondiArr(i))
  6.         
  7.             RedoArr(j) = Mid(CondiArr(i)(j), 2, Len(CondiArr(i)(j)) - 1)    '去除等號
  8.         Next j

  10.             ActiveSheet.Range(Cells(1, 1), Cells(Last_row, LC2)).AutoFilter Field:=i, Criteria1:=RedoArr, Operator:=xlFilterValues
  11.         Else
  12.             ActiveSheet.Range(Cells(1, 1), Cells(Last_row, LC2)).AutoFilter Field:=i, Criteria1:=CondiArr(i), Operator:=xlFilterValues
  13.      End If
  14. Jump:
  15. Next
複製代碼
我遇到的困難是,如果有某一欄是時間,
且時間譬如篩5月和6月,
這樣在一開始判斷isarray的criteria1時,會出現criteria1應用程式錯誤
且透過criteria2監看式,會發現criteria2也是應用程式錯誤
但透過錄製巨集(錄製篩選時間)會發現時間欄都存在criteria2
要如何才能把篩選時間的條件儲存下來呢?
收藏 分享
MPEG

mpegwmvavi

帖子
11 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
win7 
軟體版本
office2011 
閱讀權限
10 
性別
男 
註冊時間
2011-5-5 
最後登錄
2015-6-27 
2#
發表於 2015-6-19 13:02 | 只看該作者
回復 1# mpegwmvavi


QQ",都沒人回

我自己做了個檔案(無時間的欄位篩選,和有時間的欄位篩選)
"篩選1"的工作表運行都ok
可以順利讀出篩選條件,並輸出篩選條件在"輸出篩選條件1"這個sheet
"篩選2"的工作表把第四欄換成時間
在要讀出篩選條件的時候,會出錯
出錯的語句截圖如下
http://iamjo.myweb.hinet.net/Error image.PNG
透過監看式可以得知程式跑到時間這一欄時,criteria1和2都沒有存取任何值
有人知道怎麼讀出時間的篩選條件嗎
希望有高手指點一下,謝謝

檔案:
(一直不能上傳excel,我放在我的空間裡)
http://iamjo.myweb.hinet.net/Autofilter.xls
MPEG

TOP

mpegwmvavi

帖子
11 
主題
4 
精華
0 
積分
21 
點名
0  
作業系統
win7 
軟體版本
office2011 
閱讀權限
10 
性別
男 
註冊時間
2011-5-5 
最後登錄
2015-6-27 
3#
發表於 2015-6-19 13:33 | 只看該作者
回復 2# mpegwmvavi


找到外國相關的帖子,發問者和我遇到一模一樣的問題XD
http://answers.microsoft.com/en-us/office/forum/office_2007-customize/autofilter-criteria-with-xlfiltervalues-and-dates/90da7c5a-c813-4182-9849-c57ab72dac63
錄製篩選時間欄會發現,篩選的條件儲存在criteria2
但是卻無法把criteria2讀進另一個陣列儲存起來
會出現應用程式錯誤1004
帖子到最後也是無解...
希望版主群能幫幫我啊~~:'(
謝謝
MPEG

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題