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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-10-11 05:52 | 只看該作者

[發問] 請修正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

以上  懇請賜教！  謝謝！

樓主熱帖

samwang

大學生 Rank: 4

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

2^#

發表於 2021-10-11 08:17 | 只看該作者

回復 1# ziv976688

請問：下列紅色字顏的程式碼要如何修正？
>> 不好意思，上次寫的有問題導致無法修改，請修改3個地方如下，謝謝

Dim ci%-->Dim ci  '列2
CR = Array("",1, 2, 3, 6, 7, 8)-->CR = Array(1, 2, 3, 6, 7, 8)  '列140 '列149
For ci = 1 To UBound(cR) + 2 -->For Each ci In CR    '列140 '列149

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

3^#

發表於 2021-10-11 08:54 | 只看該作者

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

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

測試結果 :

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

以上懇請賜正~謝謝您

TOP

samwang

大學生 Rank: 4

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

4^#

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

回復 3# ziv976688

不好意思，請問一下期數每次只有一個，對吧？
如果是就直接由下面的資料複制到上面位置，這樣就不用在寫迴圈取值會比較快，謝謝

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

5^#

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

本帖最後由 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

samwang

大學生 Rank: 4

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

6^#

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

本帖最後由 samwang 於 2021-10-12 07:29 編輯

回復 5# ziv976688

請參考另一個版本(Sheets("Sheet1")還沒有改格式~執行後的答案是正確的)
>> 我知道原因了，因為這次欄位和上次的不一樣了，所以上次那個又不行了，必須又要重寫且研究一下規則，謝謝

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

7^#

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

本帖最後由 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填入合計數字即可。
謝謝您