Board logo

標題: 請問AdvancedFilter裡的xlFilterInCopy [打印本頁]
作者: play9091    時間: 2011-8-1 13:46     標題: 請問AdvancedFilter裡的xlFilterInCopy

請教先進：進階篩選裡面的複製，有辦法跨Book或是Sheet嗎？
作者: GBKEE    時間: 2011-8-1 16:45

回復 1# play9091
可以的
  1. Sub Ex()
  2.     Sheet1.Range("a1:c10").AdvancedFilter xlFilterCopy, Sheet2.[a1:a2], Workbooks("Book1").Sheets(1).[a1:c1]
  3. End Sub
複製代碼
作者: play9091    時間: 2011-8-1 17:01

回復 2# GBKEE


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

進階篩選：
被篩選範圍 . 進階篩選 純篩選或複製 , 準則 , 目的地
作者: GBKEE    時間: 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。
作者: play9091    時間: 2011-8-1 17:28

回復 4# GBKEE

嗯∼

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

等一下實做看看……有問題的話再請教您！！
作者: play9091    時間: 2011-8-1 21:29

回復 4# GBKEE

請問一下，下面這語句有沒有錯……它又跳找不到位置了……
  1. 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
複製代碼
作者: luhpro    時間: 2011-8-2 21:41

回復  GBKEE

請問一下，下面這語句有沒有錯……它又跳找不到位置了……
play9091 發表於 2011-8-1 21:29


在 ...(KPI). Sheets("M2000... 中
KPI). 後面多了一個空格.
作者: GBKEE    時間: 2011-8-9 16:39

回復 6# play9091
Sheets("M2000 BSC KPI Report (2)"). 檢查一下工作表名稱
作者: play9091    時間: 2011-8-10 09:58

回復 8# GBKEE

經過多次測試後，可以了！沒有問題……但，我又有另外一個問題，如何不把第一列複製過去呢？？
作者: GBKEE    時間: 2011-8-10 15:10

回復 9# play9091
進階篩選  將資料顯示於指定的位置一定會顯示欄位的,你可事後將欄位刪掉



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)