可以請問Hsieh大大嗎

gn00487767

中學生 Rank: 2

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

11^# 跳轉到 »

發表於 2010-12-26 21:59 | 只看該作者

回復 10# GBKEE

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

TOP

gn00487767

中學生 Rank: 2

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

12^#

發表於 2010-12-29 14:43 | 只看該作者

回復  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 大大賜教

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2010-12-29 16:50 | 只看該作者

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

學海無涯_不恥下問

TOP

gn00487767

中學生 Rank: 2

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

14^#

發表於 2010-12-30 09:31 | 只看該作者

回復 13# Hsieh

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

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

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2010-12-30 09:36 | 只看該作者

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

學海無涯_不恥下問

TOP

gn00487767

中學生 Rank: 2

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

16^#

發表於 2010-12-31 10:38 | 只看該作者

回復 15# Hsieh

謝謝 Hsieh大大
小弟懂了

TOP

gn00487767

中學生 Rank: 2

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

17^#

發表於 2011-2-14 11:40 | 只看該作者

本帖最後由 gn00487767 於 2011-2-14 11:44 編輯

回復 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 大大了

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

18^#

發表於 2011-2-14 14:19 | 只看該作者

回復 17# gn00487767

錄製可得

學海無涯_不恥下問

TOP

gn00487767

中學生 Rank: 2

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

19^#

發表於 2011-2-14 15:51 | 只看該作者

回復 18# Hsieh

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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]