標題:
要如何不使用VBA依月份做統計
[打印本頁]
作者:
s13030029
時間:
2021-3-5 09:52
標題:
要如何不使用VBA依月份做統計
如題，請問要如何依照月份做統計到下方欄位中的件數及天數???
附檔
[attach]33099[/attach]
作者:
luhpro
時間:
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
複製代碼
===== Module1=====
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
複製代碼
[attach]33102[/attach]
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
