返回列表 上一主題 發帖

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

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

請教各位前輩,日期區間如何統計,謝謝. 日期統計.rar (29.19 KB)
杜小平

  1. Sub zz()
  2. Dim a, da As Date, dz As Date, dx As Date, n&, s$
  3. Dim d As Object, m!
  4. Set d = CreateObject("scripting.dictionary")
  5. a = Sheets(1).[a1].CurrentRegion.Value
  6. With Sheets(2)
  7.     da = .[l2].Value: dz = .[l3].Value
  8.     For i = 2 To UBound(a)
  9.         dx = a(i, 7)
  10.         If dx >= da And dx <= dz Then
  11.             m = m + a(i, 4)
  12.             n = n + 1
  13.             s = a(i, 5) & "(" & a(i, 6)
  14.             d(s) = d(s) + a(i, 4)
  15.             For j = 1 To 8
  16.                 a(n, j) = a(i, j + 1)
  17.             Next
  18.         End If
  19.     Next
  20.     .[a1].CurrentRegion.Offset(1).Clear
  21.     .[a2].Resize(n, 8) = a
  22.     .[a2].Resize(n, 8).Borders.Value = 1
  23.     .Cells(n + 2, 2).Resize(1, 2) = Array("Total", m)
  24.     For Each k In d.keys
  25.         n = n + 1
  26.         .Cells(n + 1, "d") = k & d(k) & "件)"
  27.     Next
  28. End With
  29. End Sub
複製代碼

TOP

感謝ikboy前輩回覆,執行中,停留在黃標上,請ikboy指導,謝謝.
杜小平

TOP

1111

日期統計.jpg
2020-10-21 15:00
杜小平

TOP

ikboy抱歉,我自己操作錯誤,可以使用了,其他我自行修飾,感恩.
杜小平

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog[img][/img]
已收集7000篇 EXCEL函數

TOP

        靜思自在 : 真正的愛心,是照顧好自己的這顆心。
返回列表 上一主題