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

1^# 跳轉到 » 正序看帖

字體大小: 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)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-9-27 22:08 | 只看該作者

回復 4# yuch8663
試試看

text.rar (16.46 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

stillfish00

大學生 Rank: 4

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

5^#

發表於 2013-9-27 15:25 | 只看該作者

本帖最後由 stillfish00 於 2013-9-27 15:36 編輯

回復 4# yuch8663
後四行改為

With Sheets("分錄")
.Range(.[A4].Offset(1, 0), .[r65535].End(xlUp)).Copy
End With

複製代碼

盡量少用select，且因為你code是放在"篩選資料庫"的工作表，有用到的話要特別注意你的 "Range"是屬於哪個Sheet

TOP

yuch8663

中學生 Rank: 2

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

4^#

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

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

TOP

stillfish00

大學生 Rank: 4

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

3^#

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

2^#

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