[發問] 不同工作表，依日期區間條件加總

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

2^#

發表於 2022-6-15 21:04 | 顯示全部帖子

回復 2# samwang

samwang大大您好，謝謝您提供的巨集檔案。
經測試後，若改了年份，好像就會出錯了。例如，計算期間改到「2021年1月~2021年1月」，正確結果應該會是0。因為工作表的資料是2022年。但仍會顯示60。請問該如何修改呢? 謝謝。

-----
另外，想請教您，如果每個工作表的筆數都是3筆。亦即每個工作表的合計金額都會出現在各自工作表的B6儲存格。請問這樣有辦法用寫公式的方式處理嗎?謝謝您。

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

3^#

發表於 2022-6-16 21:23 | 顯示全部帖子

回復 4# samwang

您好，經過測試後，
2022年3月~2022年5月：應該是5700，而卻顯示5730
2022年1月~2022年1月：應該是30，而卻顯示6390
……

可能要再麻煩您協助看如何修改，謝謝。

(公式的話，我再找看看，謝謝您)

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

4^#

發表於 2022-6-17 19:16 | 顯示全部帖子

回復 7# samwang

samwang大大，
非常謝謝您，目前測試是可以運作的^^

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

5^#

發表於 2022-6-17 19:17 | 顯示全部帖子

回復 6# quickfixer

quickfixer大大，

謝謝您提供的巨集碼。

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

6^#

發表於 2022-6-17 22:18 | 顯示全部帖子

回復 10# quickfixer

謝謝您，我再來試看看

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

7^#

發表於 2022-6-18 14:23 | 顯示全部帖子

本帖最後由 gaishutsusuru 於 2022-6-18 14:24 編輯

回復 12# 准提部林

謝謝准提部林大大，

經測試後，
第一個公式好像少寫了一個「\」，所以要加上去後才可以執行，修改後如下：
=SUM(iferror(N(INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy年m月'\!\B\6"))),0))

而第二個公式，好像無法成功執行，請問該如何修改呢，謝謝您。

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

8^#

發表於 2022-6-18 18:34 | 顯示全部帖子

本帖最後由 gaishutsusuru 於 2022-6-18 18:35 編輯

回復 gaishutsusuru

改成如下試試//
=SUM(iferror(SUMIF(INDIRECT(TEXT(IF(ROW(1:36)
准提部林發表於 2022-6-18 14:42

非常感謝准提部林大大的幫忙，公式和巨集都可以用。:)

帖子: 146
主題: 46
精華: 0
積分: 220
點名: 0
作業系統: 7
軟體版本: 2010
閱讀權限: 20
註冊時間: 2014-2-19
最後登錄: 2023-8-31

9^#

發表於 2022-6-18 20:44 | 顯示全部帖子

回復 17# 准提部林

您好，原本YYYYMM測試後是可以用的。若我將YYYYMM改為yyyymm，也是可以用的：

Sub 合計匯總()
Dim d0, d1, d2, S
d0 = CDate(Split([彙總!b1], "~")(0))
d1 = Format(Split([彙總!b1], "~")(0), "yyyymm")
d2 = Format(Split([彙總!b1], "~")(1), "yyyymm")
On Error Resume Next
For i = 0 To (d2 - d1) Mod 88
S = S + Val(Sheets(Format(d0 + i * 31, "yyyy年m月")).[b65536].End(3))
Next i
[彙總!B2] = S
End Sub

請問原本的(YYYYMM)會造成哪個地方出錯呢? 謝謝您。