[發問] 統計指定區域累積1數次多頁問題(問題附件已更新)

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

13^#

發表於 2011-8-23 21:28 | 只看該作者

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

回復 10# Hsieh

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

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-8-23 09:40 | 只看該作者

回復 11# jeff5424

Function AllCount(Sh1$, Sh2$, r%, k%, cnt%)
Application.Volatile
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
i = Sheets(Sh1).Index
Do Until i > Sheets(Sh2).Index
With Sheets(i)
For Each a In .Range(.Cells(k, 2), .Cells(k, 2).End(xlToRight))
If .Cells(r, a.Column) = 1 Then d(a.Value) = ""
Next
End With
i = i + 1
Loop
j = 1: p = 1
Do
Do Until Application.Small(d.keys, j + 1) - Application.Small(d.keys, j) <> 1
p = p + 1: j = j + 1
If j = d.Count Then Exit Do
Loop
d1(p) = d1(p) + 1: p = 1
j = j + 1
If j = d.Count Then d1(p) = d1(p) + 1: Exit Do
Loop Until j > d.Count
AllCount = d1(cnt)
End Function

複製代碼

學海無涯_不恥下問

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

11^#

發表於 2011-8-22 23:53 | 只看該作者

回復 10# Hsieh

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

1000823.rar (124.86 KB)

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-8-22 15:50 | 只看該作者

回復 9# jeff5424
這樣試試

多頁累計.zip (289.62 KB)

學海無涯_不恥下問

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

9^#

發表於 2011-8-21 01:27 | 只看該作者

回復 8# Hsieh

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

  如附件所示

1000821.rar (374.85 KB)

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-8-20 14:00 | 只看該作者

回復 7# jeff5424

試試看

發問--多頁累計.zip (44.57 KB)

學海無涯_不恥下問

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

7^#

發表於 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次

1000819.rar (234.52 KB)

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-8-19 08:20 | 只看該作者

回復 5# jeff5424

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

學海無涯_不恥下問

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

5^#

發表於 2011-8-18 23:52 | 只看該作者

回復 4# Hsieh

因個人表達能力差及沒有耐心,使Hsieh 大大白忙一場......"抱歉"
我有在更新一次,希望Hsieh 大大在能再幫'忙....謝謝
如附件所示

多頁累計問題.rar (346.55 KB)