gn00487767

回復 10# GBKEE


   非常感謝熱心的 GBKEE 大大
  小弟了解了 也給了小弟很大的幫助
  小弟在此給您拍拍手^^

gn00487767

回復  gn00487767
"但是進階篩選我無法在另一個工作表顯示"   可以使用 vba  
參照你在  的附檔
Sheets ...
GBKEE 發表於 2010-12-26 09:35

可以否請教 GBKEE 大大 如您所說的進階篩選 是整個資料表為範圍
我如果要修改成 我選擇的範圍  如第一個工作表的(A1-E20) 準則範圍一樣在第二工作表 篩選結果要放在第三個工作表的(A5開始 或是A5到E24)
要怎樣做修改呢
還有另一個問題
就是如果篩選後的結果 列如 是 A1 到 A500
我要分次複製到 第二個工作表的 A1-A20 (固定都要複製到這然後列印)
第一次複製第一個工作表的 A1-A20  到第二工作表 的A1-A20 然後列印
第二次複製第一個工作表的 A21-A40 到第二工作表 的A21-A40 然後列印
第三次複製第一個工作表的 A41-A60 到第二工作表 的A41-A60 然後列印
如此循環
一直到結束
要怎麼做呢
可否請 GBKEE 大大 賜教

Hsieh

回復 12# gn00487767
進階篩選必須有標題列
如果新選取範圍要以選取區第一列為標題
那麼準則就必須同時變更標題

gn00487767

回復 13# Hsieh

感謝Hsieh 大大的回覆
小弟應該知道您所說的
但小弟是想問GBKEE 大大所指導小弟的程式碼 應該怎麼修改成篩選時 資料範圍用範圍式的 不要一整個工作表做資料範圍
    Sheets("資料表").Range("A1").CurrentRegion  資料庫->獨自一個工作表
Sheets("表格").[K1:L2]                                   篩選準則 ->獨自一個工作表
Sheets("Sheet3").[A1]                                   複製列的目標範圍 ->獨自一個工作表

因為小弟試過自己修改 但是都出現錯誤 真的不知道該怎麼做修改才好 所以...需要請求大大們協助

還有就是如何把篩選後的資料
分階段性的(一次20個)複製到另一個工作表然後列印
直到所有資料都列印完畢

可以煩請大大們指導指導小弟嗎

Hsieh

假設資料庫是Sheets("資料表")的A1:G50
Sheets("資料表").Range("A1").CurrentRegion  
改成
Sheets("資料表").Range("A1:G50")

gn00487767

回復 15# Hsieh


   謝謝 Hsieh大大
   小弟懂了

gn00487767

回復 10# GBKEE

請問 GBKEE 大大
如您所說的篩選

01.Sub Ex()

02.    Sheets("Sheet3").[A1].CurrentRegion = ""

03.    Sheets("資料表").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("表格").[K1:L2], CopyToRange:=Sheets("Sheet3").[A1]

04.End Sub

如果要修改成
名字為 資料庫 的EXCEL檔案裡面的 資料表 工作表 篩選結果到 名字為 結果 的 EXCEL檔案裡面的篩選後 工作表
要怎麼修改呢
麻煩 GBKEE 大大了

Hsieh

回復 17# gn00487767


   錄製可得

gn00487767

回復 18# Hsieh

謝謝 Hsieh 大大
小弟錄製看看
有問題在請教囉