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

s13030029

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

下載次數: 5

2021-3-5 09:51

luhpro

如題，請問要如何依照月份做統計到下方欄位中的件數及天數???
附檔
s13030029 發表於 2021-3-5 09:52

依你所舉的例子我猜測某月份經計算後的天數是平均天數 : (點擊 "開始統計" 按鈕就會開始計算)
===== Sheet1 =====

1. Private Sub CommandButton1_Click()
   
2.   Dim iI%, iMon%
   
3.   Dim lRow&
   
4. 
   
5.   With Sheets("處理天數統計表")
   
6.     .Range(.[B22], .[M23]) = 0 ' 統計資料歸零
   
7.   End With
   
8.   Application.OnTime Now + TimeValue("00:00:01"), "SumData" ' 延遲1秒以能明顯看出資料有歸零
   
9. 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)

下載次數: 2

2021-3-6 05:05