返回列表 上一主題 發帖

[發問] 請修正Sheets("Sheet1")改變格式後的語法。

[發問] 請修正Sheets("Sheet1")改變格式後的語法。

本帖最後由 ziv976688 於 2021-10-11 05:55 編輯

參考附件 : TEST_1011.rar (248.88 KB)
Sheets("Sheet1")的C2:AY21改成目前的格式~
請問:下列紅色字顏的程式碼要如何修正?
我試改許久總是跳差1列
'=================================列137
    .Range("c2:ay21").ClearContents
    Crr = .Range("c2:ay9"): Arr = .Range("c37:ay" & R): n = 0
    cR = Array("", 1, 2, 3, 6, 7, 8)   '列140
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)
        For ai = ci To UBound(Arr) Step 17
            If Arr(ai, cj) = "" Then GoTo 97
            Crr(ci, cj) = Crr(ci, cj) + Arr(ai, cj)
97:     Next ai: n = 0
    Next cj: Next ci
    .[c2].Resize(UBound(Crr), UBound(Crr, 2)) = Crr

    Crr = .Range("c13:ay20"): cR = Array("", 1, 2, 3, 6, 7, 8)    '列149
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)
        For ai = ci To UBound(Arr) Step 17
            If Arr(ai, cj) = "" Then GoTo 98
            n = n + 1: Crr(ci, cj) = n
98:     Next ai: n = 0
    Next cj: Next ci
    .[c13].Resize(UBound(Crr), UBound(Crr, 2)) = Crr


以上  懇請賜教!  謝謝!

本帖最後由 ziv976688 於 2021-10-11 09:23 編輯

回復 2# samwang
您太客氣了~您肯指導和幫忙,末學就已經銘感五內

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

以上   懇請賜正~謝謝您
   

TOP

本帖最後由 ziv976688 於 2021-10-11 13:08 編輯

回復 4# samwang
另有1個版本是搜尋全部期數的字檔案~
因為其相關程式碼是一樣的
所以我是以單期的版本作提問
然後再以您賜正後的程式碼再自行複製套用。

請參考另一個版本(Sheets("Sheet1")還沒有改格式~執行後的答案是正確的)
7T_搜尋(統)字檔(主檔)_1007.rar (76.12 KB)
S = Single(單期)
T = Total (全部期數~本例=3期)
PS : 最多的期數=98期(49期*2輪)
謝謝您


TOP

本帖最後由 ziv976688 於 2021-10-12 09:45 編輯

回復 6# samwang
必須又要重寫且研究一下規則,謝謝
Samwang大大:
是我想得太簡單了?還是您誤解了?

補充說明如下 :
備註:
1_7S_搜尋()字檔(主檔)和7T_搜尋()字檔(主檔)都是貴解
2_7S_搜尋()字檔(主檔)是將()字檔案,以檔案名稱執行成為1個效果檔。
3_7T_搜尋()字檔(主檔)是將()字檔案,以檔案名稱彙總,執行成為1個總效果檔。

7S_搜尋()字檔(主檔)_1007(1樓的附件比較容易作說明需求)為例~
因為次數加總和個數加總的統計範圍和邏輯都不變~
只是在原C2:AY16填入統計結果的區域多插入4列=C2:AY20~即將~
原總次數
最大填入C2:AY2;次大填入C3:AY3;三大填入C4:AY4
最小填入C6:AY6;次小填入C7:AY7;三小填入C8:AY8
改為:
最大填入C2:AY2;次大填入C3:AY3;三大填入C4:AY4
最小填入C7:AY7;次小填入C8:AY8;三小填入C9:AY9

原個數加總
最大填入C10:AY10;次大填入C11:AY11;三大填入C12:AY12
最小填入C14:AY14;次小填入C15:AY15;三小填入C16:AY16
改為:
最大填入C13:AY13;次大填入C14:AY14;三大填入C15:AY15
最小填入C18:AY18;次小填入C19:AY19;三小填入C20:AY20

所以末學才會認為:只要更改~
cR = Array("", 1, 2, 3, 6, 7, 8)   '列140
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)

Crr = .Range("c13:ay20"): cR = Array("", 1, 2, 3, 6, 7, 8)    '列149
    For ci = 1 To UBound(cR) + 2: For cj = 1 To UBound(Crr, 2)

如果不是如末學想的那樣Easy而是如您所說~須又要重寫且研究一下規則~
這樣實在是對不起您~您就不用再重新編寫了。
我就在原列5,9,13,16填入合計數字即可。
謝謝您



TOP

本帖最後由 ziv976688 於 2021-10-12 16:46 編輯

回復 8# samwang
實在是過意不去~還勞駕您費心重新編寫~感恩

所以直接重寫單期和多期都有寫入
單期和多期都有
請問 : 2種類型的效果檔要怎麼分開呈現?
目前的測試結果是3個單期的效果檔(Ans.還沒有比對.)。
我現在應該怎麼作 ?
才能跑出1個多期的效果檔。
煩請告知~謝謝您

TOP

本帖最後由 ziv976688 於 2021-10-12 20:15 編輯

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

TOP

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

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

以上  懇請賜正!  謝謝您!

TOP

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

TOP

回復 12# ML089
版大 : 謝謝您
詳如附件: TEST_1013.rar (258.1 KB)
請詳見 : 7S前3大&小_0_1902期_100_1894-10+1887-10_1次-(Ans.比對)~有比對答案的圖示
PS:操作說明~
請開啟7S_搜尋()字檔(主檔)_1013==>點按執行鍵==>即可產生3個效果檔~
答案與3個(Ans.比對)檔案的 A1:AY51相同

以上  懇請賜正!  謝謝您!

TOP

本帖最後由 ziv976688 於 2021-10-13 17:13 編輯

回復 17# ML089
參考附件: TEST_1013_V1.rar (253.79 KB)
版大:
不好意思,列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可能已經不需要了)。
謝謝您

TOP

        靜思自在 : 閒人無樂趣,忙人無是非。
返回列表 上一主題