請修正Sheets("Sheet1")改變格式後的語法。 - Excel程式區

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

12^#

發表於 2021-10-12 23:12 | 只看該作者

本帖最後由 ML089 於 2021-10-12 23:13 編輯

回復 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
下段也需要改

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

13^#

發表於 2021-10-12 23:54 | 只看該作者

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

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

2021-10-12 23:54

以上懇請賜正！謝謝您！

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

14^#

發表於 2021-10-13 04:04 | 只看該作者

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

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

15^#

發表於 2021-10-13 04:36 | 只看該作者

回復 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

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

16^#

發表於 2021-10-13 07:26 | 只看該作者

回復 11# ziv976688

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

1.PNG (78.96 KB)

版主 Rank: 7 Rank: 7 Rank: 7

ML089

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

17^#

發表於 2021-10-13 10:31 | 只看該作者

回復 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)
可見有誤差

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

18^#

發表於 2021-10-13 12:42 | 只看該作者

回復 13# ziv976688

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

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

7S_搜尋(統)字檔(主檔)_1013.zip (46.36 KB)

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

19^#

發表於 2021-10-13 16:45 | 只看該作者

本帖最後由 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可能已經不需要了)。
謝謝您

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

20^#

發表於 2021-10-13 16:49 | 只看該作者

回復 18# samwang
sanwang大大：
測試成功

謝謝您的耐心和指導和熱心幫忙~感恩

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