可以請問Hsieh大大嗎

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

2^#

發表於 2010-12-17 07:37 | 顯示全部帖子

本帖最後由 gn00487767 於 2010-12-17 07:56 編輯

回復 2# Hsieh

謝謝大大的回覆

但是進階篩選我無法在另一個工作表顯示
我有看到您回覆別人的問題
如下
這裡

因為小弟還無法下載
leiru大大的資料做參考
我有照你的方法試
結果excel顯示
只能在作用工作表上複製篩選範圍
是我的方法錯誤嗎
還是我只能在該工作表篩選後再把資料複製到另一個工作表呢

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

3^#

發表於 2010-12-17 11:44 | 顯示全部帖子

本帖最後由 gn00487767 於 2010-12-17 11:52 編輯

回復 2# Hsieh

感謝Hsieh 大大不厭其煩的為我解答
小弟董了

另外可否再請教一個問題
出處
我的問題跟yang3814大大的問題大同小異
我的問題是要印表格我只能夠做到只要在表格內輸入編號其餘資料會自己跑到表格內
我也一樣要做一個按鈕就可以把所有有編號的資料通通印出來
該如何設一按鈕就可以執行的程式碼
我的附件

補充一點我的資料是陸續增加所以要列印的東西也一樣

煩請 Hsieh 大大幫幫小弟

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

4^#

發表於 2010-12-18 07:35 | 顯示全部帖子

回復 5# Hsieh

再次感謝Hsieh大大小弟再自行研究研究有問題再跟您討教

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

5^#

發表於 2010-12-20 10:03 | 顯示全部帖子

本帖最後由 gn00487767 於 2010-12-20 10:27 編輯

回復 5# Hsieh

Hsieh大大抱歉
小弟直接複製代碼
製作出來的按鍵可是執行下去都沒動作呢
可以幫小弟查詢看看嗎
或是可以請您做一個可以使用的EXCEL檔案讓我做參考
小弟的信箱
[email protected]
麻煩您了

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

6^#

發表於 2010-12-20 20:59 | 顯示全部帖子

回復 5# Hsieh

感謝Hsieh大大
您寄給我的範例我收到了
測試過可以正常使用了
原來是我直接複製代碼後直接貼上
跟您寄給我的範例裡
第一行代碼不一樣的問題
所以無法正常使用

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

7^#

發表於 2010-12-26 01:23 | 顯示全部帖子

本帖最後由 gn00487767 於 2010-12-26 06:06 編輯

回復 2# Hsieh

Hsieh大大抱歉
小弟又要麻煩您了
我的問題有2個
第一個問題在附件裡
我的附件
第二個問題就是您之前回覆我的列印表格的問題
01.Sub Ex()
02.Dim A As Range
03.With Sheets("資料表")
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
05. With Sheets("表格")
06.    .[E1] = A
07.    .[C3] = A.Offset(, 1)
08.    .[G3] = A.Offset(, 2)
09.    .[C5] = A.Offset(, 3)
10.    .[G5] = A.Offset(, 4)
11.    .[C7] = A.Offset(, 5)
12.    .[C9] = A.Offset(, 6)
13.    .PrintOut '列印
14. End With
15.Next
16.End With
17.End Sub

其中
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
紅色的A 是什麼意思或是怎麼來的呀
因為我直接用你給我附件測試可以直接列印
但是我自己做一個新的工作表複製您的程式碼但是不能用呢
其他的我都弄清楚代表什麼意思或是該怎麼使用(修改)
就只有其中的A我無法理解
我也從您給我的附件中把A作修改還是可以使用
就我自己做出來的工作表中的A無法辨別
還是說我做的是因為我把您的資料中[A2] 到[A2] 的儲存格參照放在C欄位的儲存格並且還有合併儲存格的關西呢

對了他傳給我錯誤訊息忘了是450還是405
可以幫幫小弟嗎

再次麻煩大大了

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

8^#

發表於 2010-12-26 21:59 | 顯示全部帖子

回復 10# GBKEE

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

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

9^#

發表於 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 大大賜教

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

10^#

發表於 2010-12-30 09:31 | 顯示全部帖子

回復 13# Hsieh

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

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

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

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