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

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

3^#

發表於 2022-6-15 21:04 | 只看該作者

回復 2# samwang

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

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

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

4^#

發表於 2022-6-16 11:13 | 只看該作者

回復 3# gaishutsusuru

經測試後，若改了年份，好像就會出錯了。例如，計算期間改到「2021年1月~2021年1月」，正確結果應該會是0
>> 已更新如附件，請測試看看，謝謝
公式我不會，需要其他大大幫忙解題，謝謝

不同工作表-日期區間條件加總_0616.zip (25.79 KB)

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

5^#

發表於 2022-6-16 21:23 | 只看該作者

回復 4# samwang

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

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

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

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 2
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2025-6-27

6^#

發表於 2022-6-17 00:09 | 只看該作者

本帖最後由 quickfixer 於 2022-6-17 00:15 編輯

回復 5# gaishutsusuru

試試，把#4的total換成這個

Sub total()
Dim d1 As Date, d2 As Date, t, sn As String
d1 = DateValue(Split(Replace(Replace(Sheets("彙總").Range("b1"), "年", "/"), "月", ""), "~")(0))
d2 = DateValue(Split(Replace(Replace(Sheets("彙總").Range("b1"), "年", "/"), "月", ""), "~")(1))
For i = 0 To DateDiff("m", d1, d2)
      sn = Format(DateAdd("m", i, d1), "yyyy年m月")
      If checksheet(sn) = True Then
         t = t + Sheets(sn).Cells(Sheets(sn).Cells(Sheets(sn).Rows.Count, 1).End(xlUp).Row, 2)
      End If
Next i
Sheets("彙總").Range("B2") = t
End Sub

Function checksheet(sheet_name) As Boolean
Dim check As Range
On Error Resume Next
Set check = Sheets(sheet_name).Range("a1")
If Err.Number <> 0 Then checksheet = False Else checksheet = True
On Error GoTo 0
End Function

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

7^#

發表於 2022-6-17 12:03 | 只看該作者

回復 samwang

您好，經過測試後，
2022年3月~2022年5月：應該是5700，而卻顯示5730
2022年1月~2022年 ...
gaishutsusuru 發表於 2022-6-16 21:23

已更新，請再測試看看，謝謝

不同工作表-日期區間條件加總_0617.zip (26.51 KB)

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

8^#

發表於 2022-6-17 19:16 | 只看該作者

回復 7# samwang

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

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

9^#

發表於 2022-6-17 19:17 | 只看該作者

回復 6# quickfixer

quickfixer大大，

謝謝您提供的巨集碼。

quickfixer

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 2
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2025-6-27

10^#

發表於 2022-6-17 19:18 | 只看該作者

回復 6# quickfixer

修正#6,忘了沒有檢查的需要,去掉了function,縮短程式碼
Sub total()
Dim d1 As Date, d2 As Date, t, sn As String
d1 = DateValue(Split(Replace(Replace(Sheets("彙總").Range("b1"), "年", "/"), "月", ""), "~")(0))
d2 = DateValue(Split(Replace(Replace(Sheets("彙總").Range("b1"), "年", "/"), "月", ""), "~")(1))
On Error Resume Next
For i = 0 To DateDiff("m", d1, d2)
sn = Format(DateAdd("m", i, d1), "yyyy年m月")
t = t + Sheets(sn).Cells(Sheets(sn).Cells(Sheets(sn).Rows.Count, 1).End(xlUp).Row, 2)
Next i
Sheets("彙總").Range("B2") = t
End Sub