麻辣家族討論版版 » Excel程式區 » 統計各週出貨數量及出貨天數

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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! 代碼

超級版主 Rank: 8 Rank: 8

帖子: 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
試試看

Option Explicit
Sub Ex()
Dim Rng As Range, xRow As Integer, xi As Integer
Set Rng = Sheets("地點").[A4]
With Sheets("統計")
.Range("a4", .Range("q4").End(xlDown)).Clear
xRow = 4
Do While Rng.MergeCells
.Cells(xRow, "A") = Rng
.Cells(xRow, "J") = Rng
.Cells(xRow, "B") = Rng.Cells(1, 2).Text
.Cells(xRow, "k") = Rng.Cells(1, 2).Text
.Cells(xRow, "C") = Rng.Cells(7, 2).Text
.Cells(xRow, "L") = Rng.Cells(7, 2).Text
For xi = 4 To 8
With Rng.Offset(, xi - 1).Resize(7)
Sheets("統計").Cells(xRow, xi) = Application.Sum(.Value)
Sheets("統計").Cells(xRow, xi + 9) = Application.CountIf(.Cells, ">0")
End With
Next
xRow = xRow + 1
Set Rng = Rng.End(xlDown)
Loop
.Range("a4:" & .Range("H4").End(xlDown).Address & ", J4:" & Range("q4").End(xlDown).Address).Borders.Value = 1
End With
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-11-13 21:44 | 只看該作者

回復 2# GBKEE
請教 GBKEE 版大：

Sheets("統計").Cells(xRow, xi) = Application.Sum(.Value)
Sheets("統計").Cells(xRow, xi + 9) = Application.CountIf(.Cells, ">0")

複製代碼

.Sum(.Value) 與 .CountIf(.Cells, ">0") 其結果是一致的，
一個是合計、一個是計算值，在實務處理上有所區別嗎？

中學生 Rank: 2

帖子: 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! 代碼

中學生 Rank: 2

帖子: 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! 代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2012-11-14 05:00 | 只看該作者

回復 5# b9208
感謝你的說明，終於體會了 CountIf 的含意，
謝謝你！

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題