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

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-19

16^#

發表於 2017-12-29 08:21 | 只看該作者

回復 15# takeshilin88

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

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-19

15^#

發表於 2017-12-27 13:19 | 只看該作者

[版主管理留言]

GBKEE(2017/12/27 14:56): 2#程式碼已修改,給的程式碼,有嘗試了解嗎?

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

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

javascript:;

1061227第33列錯誤.rar (18.33 KB)

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-19

14^#

發表於 2017-12-26 16:21 | 只看該作者

[版主管理留言]

GBKEE(2017/12/27 12:47): 請附檔看看

回復 13# GBKEE

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2017-12-26 14:52 | 只看該作者

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

Sub Main()
Ex_yymm
Ex_Copy
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-19

12^#

發表於 2017-12-25 17:18 | 只看該作者

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

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

謝謝~

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-19

11^#

發表於 2017-12-22 15:43 | 只看該作者

[版主管理留言]

GBKEE(2017/12/25 15:15): 2#的程式碼已2度更新

本帖最後由 takeshilin88 於 2017-12-22 15:44 編輯

回復 10# takeshilin88

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

程式碼該如何修正呢？

謝謝~~~~

2017-12-22_154400.jpg (42.1 KB)

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-19

10^#

發表於 2017-12-20 16:56 | 只看該作者

[版主管理留言]

GBKEE(2017/12/21 15:00): 2#的程式碼已更新

本帖最後由 takeshilin88 於 2017-12-20 17:00 編輯

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

附檔

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