帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-8-1 13:46 | 只看該作者

請問AdvancedFilter裡的xlFilterInCopy

請教先進：進階篩選裡面的複製，有辦法跨Book或是Sheet嗎？

樓主熱帖

初學VBA乍到twbts

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兔年全勤獎章

2^#

發表於 2011-8-1 16:45 | 只看該作者

回復 1# play9091
可以的

Sub Ex()
Sheet1.Range("a1:c10").AdvancedFilter xlFilterCopy, Sheet2.[a1:a2], Workbooks("Book1").Sheets(1).[a1:c1]
End Sub

複製代碼

TOP

play9091

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

3^#

發表於 2011-8-1 17:01 | 只看該作者

回復 2# GBKEE

所以應該進階篩選是下面這樣子嗎？

進階篩選：
被篩選範圍 . 進階篩選純篩選或複製 , 準則 , 目的地

初學VBA乍到twbts

TOP

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兔年全勤獎章

4^#

發表於 2011-8-1 17:16 | 只看該作者

回復 3# play9091
請看 VBA  AdvancedFilter 方法
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
Action    必選的 XlFilterAction 資料類型。 XlFilterAction 可以是這些 XlFilterAction 常數之一。 xlFilterCopy '複製到期他底放
                                                                                                                                                                           xlFilterInPlace  '顯示在原地方
CriteriaRange    選擇性的 Variant。準則範圍。如果省略此引數則無準則。
CopyToRange    選擇性的 Variant。如果 Action 為 xlFilterCopy，此引數指定被複製列的目標範圍。否則忽略此引數。
Unique 選擇性的 Variant。若為 True，則僅篩選唯一的記錄；若為 False，則篩選出所有符合準則的記錄。預設值為 False。

TOP

play9091

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

5^#

發表於 2011-8-1 17:28 | 只看該作者

回復 4# GBKEE

嗯～

後來我找到用F1看了……一直忘記還有F1，哈！

等一下實做看看……有問題的話再請教您！！

初學VBA乍到twbts

TOP

play9091

中學生 Rank: 2

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

6^#

發表於 2011-8-1 21:29 | 只看該作者

回復 4# GBKEE

請問一下，下面這語句有沒有錯……它又跳找不到位置了……

Workbooks(Clu).Sheets("Sheet1").Range("A10:EQ8000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= Workbooks(Clu).Sheets("Sheet1").Range("E3:E4"), copytorange:=Workbooks(KPI). Sheets("M2000 BSC KPI Report (2)").Range("A3:EQ3"), Unique:=False

複製代碼

初學VBA乍到twbts

TOP

luhpro