返回列表 上一主題 發帖

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

yuch8663

帖子
51 
主題
12 
精華
0 
積分
77 
點名
0  
作業系統
windows xp sp3 
軟體版本
excel 2003 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2023-10-31 
1# 跳轉到 »
發表於 2013-9-26 15:47 | 顯示全部帖子

篩選的問題

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

yuch8663

帖子
51 
主題
12 
精華
0 
積分
77 
點名
0  
作業系統
windows xp sp3 
軟體版本
excel 2003 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2023-10-31 
2#
發表於 2013-9-26 16:48 | 顯示全部帖子
剛爬過文章，原來2003版 AutoFilter 只能設2個條件，看來只能使用第二次篩選的方式，謝謝stillfish00 樓主回覆

TOP

yuch8663

帖子
51 
主題
12 
精華
0 
積分
77 
點名
0  
作業系統
windows xp sp3 
軟體版本
excel 2003 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2023-10-31 
3# 倒序看帖
打印
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)
收藏 分享

        靜思自在 : 對父母要知恩，感恩、報恩。
返回列表 上一主題