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

　暱稱: 鹹蛋

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

2^#

發表於 2017-12-12 16:19 | 顯示全部帖子

回復 2# GBKEE

GBKEE大大：
測試過後可以使用了，但是有兩項需要小小修改的地方：
1.每個月到期的加總金額儲存格 ( 每個工作表的 D1 ) ，想要有千分位樣式，例：1,234,567
2.如果在「到期日」D欄插入一欄「說明欄」：即「說明欄」成為D欄，「到期日」成為E欄，
我將程式碼的D都改為E，會出現陣列索引超出範圍...
請幫幫忙教我如何調整程式碼，
謝謝

　暱稱: 鹹蛋

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

3^#

發表於 2017-12-12 17:27 | 顯示全部帖子

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

更正：

GBKEE大大：
測試過後可以使用了，但是有兩項需要小小修改的地方：
1.每個月到期的加總金額儲存格 ( 每個工作表的 D1 ) ，想要有千分位樣式，例：1,234,567
2.如果在「到期日」D欄插入一欄「說明欄」：即「說明欄」成為D欄，「到期日」成為E欄，
我將程式碼的D都改為E，會出現陣列索引超出範圍.......
第2項已經解決了
請幫幫忙教我如何調整程式碼，
謝謝

　暱稱: 鹹蛋

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

4^#

發表於 2017-12-13 14:54 | 顯示全部帖子

回復 4# takeshilin88

幫忙設定：
每個工作表的加總金額儲存格 ( 每個工作表的 D1 ) ，想要有千分位樣式，例：1,234,567

請參考附檔，謝謝

支票-加總欄數字格式.rar (25.42 KB)

　暱稱: 鹹蛋

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

5^#

發表於 2017-12-15 15:46 | 顯示全部帖子

回復 6# GBKEE

GBKEE大大：
我在
.[d1] = Application.Evaluate("sum(" & .[c:c].Address(, , , 1, 1) & ")")
的下一行設定
.[d1] = Selection.NumberFormatLocal = "#,##0_ "
結果每個工作表的d1儲存格都變成FALSE了，
請問是哪裡出了問題呢？

　暱稱: 鹹蛋

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

6^#

發表於 2017-12-18 08:45 | 顯示全部帖子

回復 8# GBKEE

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

　暱稱: 鹹蛋

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

7^#

發表於 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)