- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 16
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
2#
發表於 2021-3-6 05:05
| 只看該作者
本帖最後由 luhpro 於 2021-3-6 05:09 編輯
如題，請問要如何依照月份做統計到下方欄位中的件數及天數???
附檔
s13030029 發表於 2021-3-5 09:52 
依你所舉的例子我猜測某月份經計算後的天數是平均天數 : (點擊 "開始統計" 按鈕就會開始計算)
===== Sheet1 =====- Private Sub CommandButton1_Click()
- Dim iI%, iMon%
- Dim lRow&
- With Sheets("處理天數統計表")
- .Range(.[B22], .[M23]) = 0 ' 統計資料歸零
- End With
- Application.OnTime Now + TimeValue("00:00:01"), "SumData" ' 延遲1秒以能明顯看出資料有歸零
- End Sub
- Public Sub SumData()
- With Sheets("處理天數統計表")
- For lRow = 5 To 19 ' 統計個月份天數和件數
- With .Cells(lRow, 1)
- If .Value = "" Then Exit For
- iMon = Month(.Value)
- End With
- For iI = 0 To 1
- .Cells(22 + iI, iMon + 1) = .Cells(22 + iI, iMon + 1) + .Cells(lRow, 9 + iI)
- Next
- Next
- For iI = 2 To 13 ' 計算平均天數
- If .Cells(23, iI) > 0 Then .Cells(22, iI) = .Cells(22, iI) / .Cells(23, iI)
- Next
- End With
- End Sub
 客戶抱怨、客訴、退貨處理天數統計表-ans.zip (15.84 KB)
|
|
