返回列表 上一主題 發帖

[發問] 統計各週出貨數量及出貨天數

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-11-13 11:26 | 只看該作者

[發問] 統計各週出貨數量及出貨天數

各位先進您好！

請教統計各週出貨數量及出貨天數
雖然可以運用 SUM 與 CountIF 完成
但由於地點及週次資料多
懇請指導如何使用ＶＢＡ來完成需求
謝謝

BB.rar (3.33 KB)
收藏 分享
100 字節以內
不支持自定義 Discuz! 代碼

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2012-11-14 05:00 | 只看該作者
回復 5# b9208
感謝你的說明，終於體會了 CountIf 的含意，
謝謝你！

TOP

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
5#
發表於 2012-11-13 23:16 | 只看該作者
回復 3# c_c_lai

SUM是計算儲存格內數值合計
COUNTIF是統計儲存格內數值>0的儲存格數量
二者不同
100 字節以內
不支持自定義 Discuz! 代碼

TOP

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
4#
發表於 2012-11-13 23:13 | 只看該作者
回復 2# GBKEE

謝謝版主指導
執行可以，也符合需求。
努力學習了解
再次謝謝
100 字節以內
不支持自定義 Discuz! 代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-11-13 21:44 | 只看該作者
回復 2# GBKEE
請教 GBKEE 版大：
  1. Sheets("統計").Cells(xRow, xi) = Application.Sum(.Value)
  2. Sheets("統計").Cells(xRow, xi + 9) = Application.CountIf(.Cells, ">0")
複製代碼
.Sum(.Value) 與 .CountIf(.Cells, ">0") 其結果是一致的，
一個是合計、一個是計算值，在實務處理上有所區別嗎？

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-11-13 18:27 | 只看該作者
回復 1# b9208
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, xRow As Integer, xi As Integer
  4.     Set Rng = Sheets("地點").[A4]
  5.     With Sheets("統計")
  6.         .Range("a4", .Range("q4").End(xlDown)).Clear
  7.         xRow = 4
  8.         Do While Rng.MergeCells
  9.             .Cells(xRow, "A") = Rng
  10.             .Cells(xRow, "J") = Rng
  11.              .Cells(xRow, "B") = Rng.Cells(1, 2).Text
  12.              .Cells(xRow, "k") = Rng.Cells(1, 2).Text
  13.              .Cells(xRow, "C") = Rng.Cells(7, 2).Text
  14.              .Cells(xRow, "L") = Rng.Cells(7, 2).Text
  15.              For xi = 4 To 8
  16.              With Rng.Offset(, xi - 1).Resize(7)
  17.                 Sheets("統計").Cells(xRow, xi) = Application.Sum(.Value)
  18.                 Sheets("統計").Cells(xRow, xi + 9) = Application.CountIf(.Cells, ">0")
  19.                 End With
  20.              Next
  21.              xRow = xRow + 1
  22.             Set Rng = Rng.End(xlDown)
  23.         Loop
  24.         .Range("a4:" & .Range("H4").End(xlDown).Address & ", J4:" & Range("q4").End(xlDown).Address).Borders.Value = 1
  25.     End With
  26. End Sub
複製代碼

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題