[發問] 資料範圍複製到不同檔案&依日期分別複製

takeshilin88

請問各位大大：
懇求幫忙~~~
我有兩個檔案：
A檔：負責做支票套印
B檔：支票本存檔&支票狀況
我在A檔工作表「支票套印」完成後，可以在A檔按下一個按鈕巨集後，可以執行以下動作：
1.先查詢B檔中「支票本」工作表裡有本月到期的支票(EX:現在是106年12月，就將106年12月的資料複製到「本月到期」工作表、次月到期的支票資料(107年1月)，複製到「次月到期」工作表。
2.再到A檔中，「支票套印」工作表內新的支票資料複製到B檔的「支票本」最後資料的下一筆，EX:支票號碼A0004接A0005
3.將B檔「本月到期」工作表資料，複製到「目前支票狀況」工作表，A1位置
4.將B檔「次月到期」工作表資料，複製到「目前支票狀況」工作表，接著本月到期的資料下方貼上
請參考附檔，謝謝

支票.rar (15.72 KB)

下載次數: 12

2017-12-8 17:41

takeshilin88

回復 15# takeshilin88


    謝謝GBKEE大大，會再花時間去詳細了解程式碼的，謝謝~~

takeshilin88

GBKEE大大：
附上檔案給您參考：
1.附檔執行時會出現
執行階段錯誤'1004':
應用程式或物件定義上的錯誤

出現的錯誤在第33列程式碼
        Rng.Cells(2) = D(AR(i))
2.另外要請教您：複製「支票套印」工作表，可以改成只複製「支票套印」中的A5開始到最後資料(目前為D14，會隨資料多寡變動)，只要複製資料範圍到B.XLS檔，程式碼應如何修改？
謝謝

javascript:;

takeshilin88

回復 13# GBKEE

是的，在執行Sub Main()的時候，
執行到Ex_Copy
到        Rng.Cells(2) = D(AR(i))
出現錯誤：
執行階段錯誤'1004':
應用程式或物件定義上的錯誤

GBKEE

回復 12# takeshilin88
執行這 Sub Main() 嗎!

1. Sub Main()
   
2.     Ex_yymm
   
3.     Ex_Copy
   
4. End Sub

複製代碼

takeshilin88

GBKEE大大：
執行階段錯誤'1004':
應用程式或物件定義上的錯誤

出現的錯誤在第33列程式碼
        Rng.Cells(2) = D(AR(i))

謝謝~

takeshilin88

回復 10# takeshilin88


    GBKEE大大：
    再請教一下~~
    如果A檔的A1:D4不要複製到B檔，如下圖：
javascript:;

程式碼該如何修正呢？

謝謝~~~~

takeshilin88

求救~~
如果「到期日」的儲存格格式改成為中華民國曆，
則產生的B檔會抓不到到期日加總的資料，
好像是下面這個程式碼需要修改：
YM = Mid(.Cells(i, "D"), 1, InStrRev(.Cells(i, "D"), "/") - 1)
請各位大大幫幫忙~~

附檔
1061220-改日期格式.rar (27.22 KB)

下載次數: 8

2017-12-20 17:00

takeshilin88

回復 8# GBKEE


    謝謝GBKEE大大，
    已經可以使用了，謝謝~~
    萬分感激......

GBKEE

回復 7# takeshilin88
Selection 你可查看vba的說明看看

1. .[d1] .NumberFormatLocal = "#,##0_ "   

複製代碼