Board logo

標題: [發問] 統計指定區域累積1數次多頁問題(問題附件已更新) [打印本頁]
作者: jeff5424    時間: 2011-8-16 21:12     標題: 統計指定區域累積1數次多頁問題(問題附件已更新)

本帖最後由 jeff5424 於 2011-8-17 23:49 編輯

統計指定區域累積1數次多頁問題
如附件所示
請各位高手大哥協助....謝謝

ps:因之前附件解說模糊,已重新更新附漸
   請高手大大協助....謝謝
作者: oobird    時間: 2011-8-17 08:49

統計什麼沒看懂。
作者: jeff5424    時間: 2011-8-17 23:50

回復 2# oobird


    因之前附件解說模糊,已重新更新附件
   請凸槌木工大大協助....謝謝
作者: Hsieh    時間: 2011-8-18 09:09

回復 3# jeff5424

自己連敘述問題的耐心都沒有，回答者更沒耐心解讀你的問題
試試附件是不是你要的
[attach]7486[/attach]
作者: jeff5424    時間: 2011-8-18 23:52

回復 4# Hsieh

因個人表達能力差及沒有耐心,使Hsieh 大大白忙一場......"抱歉"
我有在更新一次,希望Hsieh 大大在能再幫'忙....謝謝
如附件所示
作者: Hsieh    時間: 2011-8-19 08:20

回復 5# jeff5424


    4#附件不就是這樣的累計方式嗎?
第一個引數輸入開始的工作表名稱
第二個引數輸入結束工作表名稱
第三個引數是計算第幾列
第四個引數是連續幾次
作者: jeff5424    時間: 2011-8-19 23:19

回復 6# Hsieh


  首先感謝Hsieh 大大耐心得協助,
  因我表達方式模糊,請Hsieh 大大再一次幫忙...謝謝
明細如附件所示

自訂函數"mycount("第1頁","第3頁",ROW(),C$5)
可得知出現1次1共有0次,
                 連續2次1共有4次
            連續3次1共有0次
            連續4次1共有0次
            連續5次1共有0次
   (以上為各頁分開後加總，得到的累計資料)      

因我所統計資料是"連續性",故得到累計資料如下
可得知出現1次1共有0次,
                 連續2次1共有0次
            連續3次1共有0次
            連續4次1共有2次
            連續5次1共有0次
作者: Hsieh    時間: 2011-8-20 14:00

回復 7# jeff5424


    試試看
[attach]7517[/attach]
作者: jeff5424    時間: 2011-8-21 01:27

回復 8# Hsieh


  感謝Hsieh 大大耐心得協助,
  之前因資料參數過多,我已經再刪除大多數資料
  請Hsieh 大大在幫忙.....謝謝

  如附件所示
作者: Hsieh    時間: 2011-8-22 15:50

回復 9# jeff5424
這樣試試
[attach]7536[/attach]
作者: jeff5424    時間: 2011-8-22 23:53

回復 10# Hsieh


    感謝Hsieh 大大用心及耐心的協助,經計算後累計數次無誤,
但我匯入資料後發現,總編號168號,值如果出現1累計資料會出現錯誤
(如附件所示)   請Hsieh 大大再幫忙一下…..謝謝
作者: Hsieh    時間: 2011-8-23 09:40

回復 11# jeff5424
  1. Function AllCount(Sh1$, Sh2$, r%, k%, cnt%)
  2. Application.Volatile
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")
  5. i = Sheets(Sh1).Index
  6. Do Until i > Sheets(Sh2).Index
  7. With Sheets(i)
  8.    For Each a In .Range(.Cells(k, 2), .Cells(k, 2).End(xlToRight))
  9.      If .Cells(r, a.Column) = 1 Then d(a.Value) = ""
  10.    Next
  11. End With
  12. i = i + 1
  13. Loop
  14. j = 1: p = 1
  15. Do
  16. Do Until Application.Small(d.keys, j + 1) - Application.Small(d.keys, j) <> 1
  17.      p = p + 1: j = j + 1
  18.      If j = d.Count Then Exit Do
  19. Loop
  20. d1(p) = d1(p) + 1: p = 1
  21. j = j + 1
  22. If j = d.Count Then d1(p) = d1(p) + 1: Exit Do
  23. Loop Until j > d.Count
  24. AllCount = d1(cnt)
  25. End Function
複製代碼
作者: jeff5424    時間: 2011-8-23 21:28

本帖最後由 jeff5424 於 2011-8-23 21:36 編輯

回復 10# Hsieh


    感謝Hsieh 大大多次協助,經計算後累計數次無誤,
我匯入2002~2011資料,全部ok.....
最後非常非常感謝你的協助...謝謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)