請問AdvancedFilter裡的xlFilterInCopy
- 帖子
- 87
- 主題
- 24
- 精華
- 0
- 積分
- 122
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-9
- 最後登錄
- 2018-1-16
|
請問AdvancedFilter裡的xlFilterInCopy
|
請教先進：進階篩選裡面的複製，有辦法跨Book或是Sheet嗎？ |
|
|
初學VBA乍到twbts
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
10#
發表於 2011-8-10 15:10
| 只看該作者
回復 9# play9091
進階篩選 將資料顯示於指定的位置一定會顯示欄位的,你可事後將欄位刪掉 |
|
|
|
|
|
|
|
- 帖子
- 87
- 主題
- 24
- 精華
- 0
- 積分
- 122
- 點名
- 0
- 作業系統
- win 7
- 軟體版本
- 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-7-9
- 最後登錄
- 2018-1-16
|
9#
發表於 2011-8-10 09:58
| 只看該作者
回復 8# GBKEE
經過多次測試後，可以了！沒有問題……但，我又有另外一個問題，如何不把第一列複製過去呢？？ |
|
|
初學VBA乍到twbts
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
8#
發表於 2011-8-9 16:39
| 只看該作者
回復 6# play9091
Sheets("M2000 BSC KPI Report (2)"). 檢查一下工作表名稱 |
|
|
|
|
|
|
|
- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 16
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
7#
發表於 2011-8-2 21:41
| 只看該作者
回復 GBKEE
請問一下，下面這語句有沒有錯……它又跳找不到位置了……
play9091 發表於 2011-8-1 21:29 
在 ...(KPI). Sheets("M2000... 中
KPI). 後面多了一個空格. |
|
|
|
|
|
|
|
- 帖子
- 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
|
|
|
|
|
- 帖子
- 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
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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。 |
|
|
|
|
|
|
|
- 帖子
- 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
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
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
|
|
|
|
|
|
|
|
