返回列表 上一主題 發帖

[發問] EXCEL VBA 日期區間如何統計

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
1# 跳轉到 »
發表於 2023-12-27 14:46 | 顯示全部帖子
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教
問題/條件/執行前:


資料表:


執行結果:


Option Explicit
Sub TEST()
Dim Brr, Z, i&, j%, R&, 起始日 As Date, 結束日 As Date, xR As Range
Set Z = CreateObject("Scripting.Dictionary")
[統計表!A1].CurrentRegion.Offset(1, 0).ClearContents
起始日 = [統計表!L2]: 結束日 = [統計表!L3]
Brr = Range([工作表1!I1], [工作表1!A65536].End(3))
For i = 2 To UBound(Brr)
   If Brr(i, 7) < 起始日 Or Brr(i, 7) > 結束日 Then GoTo i01 Else R = R + 1
   For j = 2 To 9: Brr(R, j - 1) = Brr(i, j): Next
   Z(Brr(i, 5) & "/" & Brr(i, 6)) = Z(Brr(i, 5) & "/" & Brr(i, 6)) + Val(Brr(i, 4))
i01: Next
If R = 0 Then Exit Sub
With [統計表!A2].Resize(R, 8)
   .Value = Brr
   .Cells(.Count + 2) = "Total"
   .Cells(.Count + 3) = "=SUM(" & .Columns(3).Address & ")"
   Set xR = .Cells(.Count + 4)
End With
For i = 0 To Z.Count - 1: Brr(i + 1, 1) = Z.keys()(i): Brr(i + 1, 2) = Z.items()(i): Next
xR.Resize(Z.Count, 2) = Brr
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題