返回列表 上一主題 發帖

[發問] 請教一個問題：如何將函數COUNTIF與SUMIF以巨集方式呈現

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-6-9 13:54 | 只看該作者

[發問] 請教一個問題：如何將函數COUNTIF與SUMIF以巨集方式呈現

請教一個問題：如何將函數COUNTIF與SUMIF以巨集方式呈現
如附件

函數CONUNTIF與SUMIF改用巨集執行程式.zip (7.57 KB)

收藏 分享

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
4#
發表於 2010-6-9 17:16 | 只看該作者
剛剛測試Sub MySumIF()
會出現  有NEXT 卻沒有FOR
錯誤標示在第一個NEXT

TOP

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
3#
發表於 2010-6-9 17:09 | 只看該作者
感謝您幫忙~~

TOP

Hsieh

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

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


   建議使用樞紐分析
若以vba可參考看看
  1. Sub MySumIF()
  2. ar = Array("學生", "嘉獎", "小功", "大功", "小計")
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")
  5. Set d2 = CreateObject("Scripting.Dictionary")
  6. With Sheet4
  7. For i = 1 To 3
  8. mysum = 0
  9.    For Each a In .Range(.[B2], .[B65536].End(xlUp))
  10.       d(a & ar(i)) = d(a & ar(i)) + a.Offset(, i)
  11.       If IsNumeric(a.Offset(, i)) Then _
  12.       mysum = mysum + a.Offset(, i): _
  13.       d1(a & "") = d1(a & "") + a.Offset(, i): _
  14.       d2(a & "") = d2(a & "") + a.Offset(, i)
  15.    Next
  16.    d("小計" & ar(i)) = mysum
  17.    d1("小計") = ""
  18.    d2("小計") = d2("小計") + mysum
  19. Next
  20. End With
  21. With Sheet3
  22. .[B5:F65536] = ""
  23. .[B5].Resize(, 5) = ar
  24. .[B6].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
  25. For Each a In .Range(.[B6], .[B65536].End(xlUp))
  26.    For i = 1 To 4
  27.    a.Offset(, i) = IIf(i = 4, d2(a & ""), d(a & ar(i)))
  28.    Next
  29. Next
  30. End With
  31. End Sub
  32. Sub MyCountIF()
  33. Set d = CreateObject("Scripting.Dictionary")
  34. Set d1 = CreateObject("Scripting.Dictionary")
  35. Set d2 = CreateObject("Scripting.Dictionary")
  36. With Sheet2
  37.    For Each a In .Range(.[A2], .[A65536].End(xlUp))
  38.       d(a & a.Offset(, 1)) = d(a & a.Offset(, 1)) + 1
  39.       d1(a & "") = "": If a.Offset(, 1) <> "成績" Then d2(a.Offset(, 1).Value) = ""
  40.    Next
  41.    
  42. End With
  43. With Sheet1
  44. .[B6:M65536] = ""
  45. .[B5].Resize(d1.Count, 1) = Application.Transpose(d1.keys)
  46. .[C5].Resize(, d2.Count) = d2.keys
  47. ar = d2.keys
  48. For Each a In .Range(.[B6], .[B65536].End(xlUp))
  49.    For i = 0 To UBound(ar)
  50.       a.Offset(, i + 1) = d(a & ar(i)): cnt = cnt + d(a & ar(i))
  51.    Next
  52.    a.Offset(, UBound(ar) + 2) = cnt: cnt = 0
  53. Next
  54. Set a = .[B65536].End(xlUp).Offset(1, 0)
  55. For i = 0 To UBound(ar)
  56.    a.Offset(, i + 1) = Application.Sum(.Range(.[B5].Offset(, i + 1), a.Offset(-1, i + 1)))
  57. Next
  58. End With

  60. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題