123
返回列表 上一主題 發帖

[發問] 統計筆數及計算數量

b9208

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

[發問] 統計筆數及計算數量

前輩您好
如附檔內說明「統計筆數」及「計算數量」
「統計筆數」：條件欄位相同者，只算一筆資料。
「計算數量」：條件欄位相同者，只計算數量值〞最大值〞。
非常感謝指導

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

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
2#
發表於 2013-4-24 06:39 | 只看該作者
「統計筆數」：條件欄位相同者，只算一筆資料。
「計算數量」：條件欄位相同者，只加總數量值〞最大值〞。
懇請先進們指導
感激不盡
100 字節以內
不支持自定義 Discuz! 代碼

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2013-4-24 11:13 | 只看該作者
本帖最後由 Hsieh 於 2013-4-24 22:47 編輯

先給 O8 公式
=COUNT(MATCH(ROW($8:$24)-7,MATCH($N8&$C$8:$C$24&O$7,TEXT($B$8:$B$24,"ddd")&$C$8:$C$24&$D$8:$D$24,),))
陣列公式(先按CTRL、SHIFT不放，再按ENTER三鍵齊按輸入)

O19公式比較複雜要想一下，等晚上再研究
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2013-4-24 11:17 | 只看該作者


發帖後，公式裡面怎會有這些表情符號，要如何清除?
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2013-4-24 22:47 | 只看該作者
回復 4# ML089

發文時，勾選下方禁用表情選項
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2013-4-24 23:38 | 只看該作者
回復 1# b9208
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")
  4. For Each a In Range([B8], [B8].End(xlDown))
  5. m = a.Text & "," & a.Offset(, 2) & "," & a.Offset(, 4)
  6. n = a.Text & "," & a.Offset(, 1) & "," & a.Offset(, 2)
  7.    If d(m) <= a.Offset(, 7) Then _
  8.    d(m) = a.Offset(, 7)
  9.    d1(n) = ""
  10. Next
  11. For Each ky In d.keys
  12.   ar = Split(ky, ",")
  13.   d(ar(0) & ar(1)) = d(ar(0) & ar(1)) + d(ky)
  14. Next
  15. For Each ky In d1.keys
  16.   ar = Split(ky, ",")
  17.   d1(ar(0) & ar(2)) = d1(ar(0) & ar(2)) + 1
  18. Next
  19. For Each a In [N8:N14]
  20.    For Each c In [O7:P7]
  21.      Cells(a.Row, c.Column) = IIf(d1(a & c) = "", 0, d1(a & c))
  22.    Next
  23. Next
  24. For Each a In [N19:N25]
  25.    For Each c In [O7:P7]
  26.      Cells(a.Row, c.Column) = IIf(d(a & c) = "", 0, d(a & c))
  27.    Next
  28. Next
  29. End Sub
複製代碼
學海無涯_不恥下問

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
7#
發表於 2013-4-25 09:32 | 只看該作者
本帖最後由 Hsieh 於 2013-4-25 10:05 編輯

O19公式
=SUM(IF(FREQUENCY(IF($N19&O$18=TEXT($B$8:$B$24,"ddd")&$D$8:$D$24,MATCH(TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,),""),ROW($8:$24)-7), SUBTOTAL(4,OFFSET($I$7,ROW($8:$25)-7,,FREQUENCY(IF($N19&O$18=TEXT($B$8:$B$24,"ddd")&$D$8:$D$24,MATCH(TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,TEXT($B$8:$B$24,"ddd")&$D$8:$D$24&$F$8:$F$24,),""),ROW($8:$24)-7))),0))
三鍵輸入

實用還是以6樓超版的VBA好用

公式還是有些限制，如同類需排序在一起才能統計
資料以日期排序往下，"星期" 就會變成循環，星期+組別+人員 可能就會被分開，
因此使用公式時需將同類 "星期" 排序才能正確。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
8#
發表於 2013-4-25 09:36 | 只看該作者
回復 6# Hsieh

超版:
如有空可否提供O8的VBA，這樣此題VBA及公式就雙齊全。
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
9#
發表於 2013-4-25 09:44 | 只看該作者
本帖最後由 ML089 於 2013-4-25 09:45 編輯

回復 5# Hsieh

在他人意見下方按回覆時，下方有 "禁用表情選項" 而且內定為勾選

若是自行回答  按下方的 發表回覆，下方沒有 "禁用表情選項"

這些表情隔天又會不見

滿困擾的
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
10#
發表於 2013-4-25 10:04 | 只看該作者
回復 9# ML089

隔天表情符號消失，是因為我幫你編輯過了
學海無涯_不恥下問

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
123
返回列表 上一主題