篩選的問題

請問下面這一段程式碼中只使用收入與支出兩個條件時可以正常運行，但增加第三項轉帳條件時(紅色字體部份)會出錯，是甚麼原因?該如何解決?

text1.rar (18.27 KB)
         Selection.AutoFilter Field:=2, Criteria1:=">=" & Sheets("篩選資料庫").Range("c1").Value, Operator:=xlAnd _
            , Criteria2:="<=" & Sheets("篩選資料庫").Range("g1").Value
         Selection.AutoFilter Field:=3, Criteria1:="=" & "收入", Operator:=xlOr, Criteria2:="=" & "支出" ', (Operator:=xlOr, Criteria3:="=" & "轉帳")

TOP

stillfish00

大學生 Rank: 4

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

2^#

發表於 2013-9-26 16:11 | 只看該作者

回復 1# yuch8663
原本就沒有該參數，當然會錯。

Range.AutoFilter 方法
語法
運算式.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)
運算式會傳回 Range 物件的運算式。

複製代碼

TOP

yuch8663

中學生 Rank: 2

帖子: 51
主題: 12
精華: 0
積分: 77
點名: 0
作業系統: windows xp sp3
軟體版本: excel 2003 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2023-10-31

3^#

發表於 2013-9-26 16:48 | 只看該作者

剛爬過文章，原來2003版 AutoFilter 只能設2個條件，看來只能使用第二次篩選的方式，謝謝stillfish00 樓主回覆

TOP

yuch8663

中學生 Rank: 2

帖子: 51
主題: 12
精華: 0
積分: 77
點名: 0
作業系統: windows xp sp3
軟體版本: excel 2003 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2023-10-31

4^# 倒序看帖

打印

字體大小: tT

發表於 2013-9-26 19:16 | 只看該作者

[發問] 使用條件自動篩選後範圍選取的問題!

請問我在使用第二次自動篩選所選出來的資料，要複製資料區但不包含表頭標題程式碼執行到紅色字時會出現錯誤，應該要如何寫選取範圍才能將不連續的資料copy到另一個sheet裡?
.
.
.......
'第二次篩選
         '篩選條件設為符合在兩個日期範圍之間及項目欄
         Sheets("分錄").Select
         '設定篩選條件範圍，按選擇條件進行自動篩選
         Selection.AutoFilter
         Selection.AutoFilter Field:=2, Criteria1:=">=" & Sheets("總分類帳").Range("g1").Value, Operator:=xlAnd _
            , Criteria2:="<=" & Sheets("總分類帳").Range("i1").Value
         Selection.AutoFilter Field:=3, Criteria1:="=" & "轉帳"
         'AutoFilter Field:=3係指篩選條件為第3欄分類項目
         Sheets("分錄").Range("A4").Select '
         Selection.Activate
      Range(ActiveCell.Offset(1, 0), [r65535].End(xlUp)).Select
         Selection.Copy
......
.
.

text1.rar (18.01 KB)