返回列表 上一主題 發帖

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

s13030029
　暱稱: 伊恩

中學生Rank: 2

帖子
97 
主題
33 
精華
0 
積分
129 
點名
0  
作業系統
Win 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2019-5-7 
最後登錄
2022-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-3-5 09:52 | 只看該作者

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

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

luhpro

帖子
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 =====
  1. Private Sub CommandButton1_Click()
  2.   Dim iI%, iMon%
  3.   Dim lRow&

  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)

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題