ziv976688

回復 10# samwang
瞭解了~~~
不好意思處處麻煩您~
末學先自行研習您的新增或修改的語法，
研習後~看能不能自行依照自己所需調整~
如真有不解的地方再請教您。
謝謝您
PS :
如要測試多期~~以1樓的附件測試即可。
謝謝您

ML089

回復 3# ziv976688

測試結果 :  7S_搜尋(統)字檔(主檔)_1011.rar (42.55 KB)
總次數和個數加總的前三大數字都OK!
但~
總次數的次小和三小的數字是顯示在"最小(第7列)"和"次小(第8列)"
個數加總的次小和三小的數字是顯示在"最小(第18列)"和"次小(第19列)"
即二個三小(列9和列20)是空白的。

1        B2        最大                B37        最大
2        B3        次大                B38        次大
3        B4        三大                B39        三大
4        B5        合計                B40       
5        B6        空格                B41        最小
6        B7        最小                B42        次小
7        B8        次小                B43        三小
8        B9        三小                B44       
資料 B2:B9 與 B37:B44 位置不一致，最小、次小、三小 錯開一列，程式並未處理這差異，當然有錯誤
下列 ai 與 ci 是相對連動，這樣會造成 最小、次小、三小 錯開一列

    Crr = .Range("c2:ay9"): Arr = .Range("c37:ay" & R): n = 0
    'cR = Array("", 1, 2, 3, 6, 7, 8)
    CR = Array(1, 2, 3, 6, 7, 8)
    For Each ci In CR: For cj = 1 To UBound(Crr, 2)
        For aii = ci To UBound(Arr) Step 17
            If ci < 6 Then ai = aii Else ai = aii + 1
            If Arr(ai, cj) = "" Then GoTo 97
            Crr(ci, cj) = Crr(ci, cj) + Arr(ai, cj)
97:     Next aii: n = 0
    Next cj: Next ci
下段也需要改

ziv976688

回復 10# samwang
Samwang大大：
檢視全部的程式碼後~您新增修的段落都在139~列266

不好意思~
將多期的程式碼改為註解後~
不知是哪裡註解錯了？
就是跑不出C2：AY21的單期答案~
C2：AY51的答案OK！
詳如附件： TEST_1012_PM.rar (245.19 KB)

下載次數: 2

2021-10-12 23:54

以上  懇請賜正！  謝謝您！

ziv976688

回復 10# samwang
13樓的C2：AY51的答案OK~修正為C24：AY51
謝謝您

ziv976688

回復 12# ML089
版大 : 謝謝您
詳如附件： TEST_1013.rar (258.1 KB)

下載次數: 2

2021-10-13 04:35

請詳見 : 7S前3大&小_0_1902期_100_1894-10+1887-10_1次-(Ans.比對)~有比對答案的圖示。
PS：操作說明~
請開啟7S_搜尋(統)字檔(主檔)_1013==>點按執行鍵==>即可產生3個效果檔~
答案與3個(Ans.比對)檔案的 A1：AY51相同。

以上  懇請賜正！  謝謝您！

samwang

回復 11# ziv976688


為什需求結果不一樣? 有時候要顯示單期有時候要很多期數?

ML089

回復 15# ziv976688

If ci < 6 Then ai = aii Else ai = aii + 1
有2處要改為
If ci < 6 Then ai = aii Else ai = aii - 1

要對接 37 38 39 41 42 43
CR = Array(1, 2, 3, 6, 7, 8) 的位置對應是 C欄位的 列 2 3 4 7 8 9 資料
C欄位的 列 37 38 39 41 42 43的位置對應順序是  Array(1, 2, 3, 5, 6, 7)
可見有誤差

samwang

回復 13# ziv976688


你講的沒錯 #8有問題，問題是結果的資料沒清除乾淨，導致第1個沒問題，第2個就錯誤，
另外，被單期和多期定義搞亂，導致....，已更正單純用#1需求去寫，請再測試看看，謝謝   

PS: 如您提到又原程式小修改就可以符合#1需求，有時候想太多，腦筋打結.....

ziv976688

回復 17# ML089
參考附件： TEST_1013_V1.rar (253.79 KB)

下載次數: 1

2021-10-13 16:44

版大：
不好意思，列17和列20還有一點小BUG~
測試結果：
EX：7S前3大&小_0_1902期_100_1894-10+1887-10_1次-(Ans.比對)~
列17是空白列~不應該有數字，但目前E17<>""；而是=1~答案詳如：BF17
列20是三小~應有的數字都沒有顯示出來~答案詳如：BO20：CZ20
其餘7S---_1901-10+1899---(Ans.比對)；7S---_1901-10+1900---(Ans.比對)…類推

因為C18：AY19都正確~所以我實在不知道列156的程式碼要怎麼調整？
If ci < 6 Then ai = aii Else ai = aii – 1 '列156

以上  懇請賜正！  謝謝您

PS :
1_是不是必須調整列37以下的格式~如果需要~請告知。
2_如果需要調整列37以下~容我思考一下(因為列44~列51可能已經不需要了)。
謝謝您

ziv976688

回復 18# samwang
sanwang大大：
測試成功
謝謝您的耐心和指導和熱心幫忙~感恩

PS：
因為以1F的範例作說明，比較簡單明瞭，而且1F範例的貴程式碼有跳17列後~
如是空白就不再統計並離開程式=>即=單期，如有數字就繼續統計=>即=多期；
所以末學才一直強調以1F的附件作說明的範例~
造成您的困擾~尚請您見諒~謝謝您