返回列表 上一主題 發帖

要如何不使用VBA依月份做統計

要如何不使用VBA依月份做統計

如題,請問要如何依照月份做統計到下方欄位中的件數及天數???
附檔
客戶抱怨、客訴、退貨處理天數統計表.rar (12.83 KB)

本帖最後由 luhpro 於 2021-3-6 05:09 編輯
如題,請問要如何依照月份做統計到下方欄位中的件數及天數???
附檔
s13030029 發表於 2021-3-5 09:52

依你所舉的例子我猜測某月份經計算後的天數是平均天數 : (點擊 "開始統計" 按鈕就會開始計算)
===== Sheet1 =====
  1. Private Sub CommandButton1_Click()
  2.   Dim iI%, iMon%
  3.   Dim lRow&

  4.   With Sheets("處理天數統計表")
  5.     .Range(.[B22], .[M23]) = 0 ' 統計資料歸零
  6.   End With
  7.   Application.OnTime Now + TimeValue("00:00:01"), "SumData" ' 延遲1秒以能明顯看出資料有歸零
  8. End Sub
複製代碼
=====  Module1=====
  1. Public Sub SumData()
  2.   With Sheets("處理天數統計表")
  3.     For lRow = 5 To 19 ' 統計個月份天數和件數
  4.       With .Cells(lRow, 1)
  5.         If .Value = "" Then Exit For
  6.         iMon = Month(.Value)
  7.       End With
  8.       For iI = 0 To 1
  9.         .Cells(22 + iI, iMon + 1) = .Cells(22 + iI, iMon + 1) + .Cells(lRow, 9 + iI)
  10.       Next
  11.     Next
  12.     For iI = 2 To 13 ' 計算平均天數
  13.       If .Cells(23, iI) > 0 Then .Cells(22, iI) = .Cells(22, iI) / .Cells(23, iI)
  14.     Next
  15.   End With
  16. End Sub
複製代碼
客戶抱怨、客訴、退貨處理天數統計表-ans.zip (15.84 KB)

TOP

        靜思自在 : 地上種了菜,就不易長草;心中有善,就不易生惡。
返回列表 上一主題