返回列表 上一主題 發帖

請問AdvancedFilter裡的xlFilterInCopy

play9091

帖子
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

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
2#
發表於 2011-8-1 17:01 | 顯示全部帖子
回復 2# GBKEE


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

進階篩選：
被篩選範圍 . 進階篩選 純篩選或複製 , 準則 , 目的地
初學VBA乍到twbts

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
3#
發表於 2011-8-1 17:28 | 顯示全部帖子
回復 4# GBKEE

嗯∼

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

等一下實做看看……有問題的話再請教您！！
初學VBA乍到twbts

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
4#
發表於 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
複製代碼
初學VBA乍到twbts

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
5#
發表於 2011-8-10 09:58 | 顯示全部帖子
回復 8# GBKEE

經過多次測試後，可以了！沒有問題……但，我又有另外一個問題，如何不把第一列複製過去呢？？
初學VBA乍到twbts

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題