由小而大改為由大而小的語法研習。 - Excel程式區

samwang

大學生 Rank: 4

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

14^# 跳轉到 »

發表於 2021-9-17 13:03 | 只看該作者

回復 13# ziv976688

改為
在Sheets("Sheet1")C$1 : AY$1的相同值之C34:AY填入前3大和前3小(中式排名)的該數值。
>> 如附件，請測試看看，謝謝

H_搜尋(統)字檔(主檔)_0917_Q.zip (32.62 KB)

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

13^#

發表於 2021-9-17 12:20 | 只看該作者

回復 12# samwang
感謝您的耐心指導~OK了~感恩

不好意思~還有一個需求~敬請指教!謝謝您 !
顯示"V"字改為顯示數值。

TEST_0917.rar (277.26 KB)
目前~H_搜尋(統)字檔(主檔)_0917_Q ~
是將所有有"統"關鍵字的名稱檔案(本題有2個)，以其第5段數字由大而小依序開啟後~
統計該檔案D&E二欄的各前3大和前3小(中式排名)之值，並以其在B欄的同列值~
在Sheets("Sheet1")C$1 : AY$1的相同值之C34:AY填入"V"~

需求：
將上述的在Sheets("Sheet1")C$1 : AY$1的相同值之C34:AY填入[b]"V"~
改為
在Sheets("Sheet1")C$1 : AY$1的相同值之C34:AY填入前3大和前3小(中式排名)的該數值。
詳如範例附檔

以上懇請賜教！謝謝您！

TOP

samwang

大學生 Rank: 4

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

12^#

發表於 2021-9-17 11:55 | 只看該作者

回復 11# ziv976688

1893H欄排名=1~13；1894H欄排名=14~24
>> 抱歉沒注意到，更新如下，列133新增 :s=0，謝謝

ActiveWindow.Close
With Sheets("Sheet1")
.[A1:A10].ClearContents: .[B:IV].Clear
End With
n1 = 0: m = 0: xD.RemoveAll: s = 0
Next

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

11^#

發表於 2021-9-17 10:50 | 只看該作者

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

回復 10# samwang
不好意思~7統_0_1895期_100_1894_3個_1次的H欄排名還是承續1893的H欄排名。
1893H欄排名=1~13；1894H欄排名=14~24
懇請賜正!謝謝您

下載 (58.42 KB)

2021-9-17 10:49

TOP

samwang

大學生 Rank: 4

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

10^#

發表於 2021-9-17 07:45 | 只看該作者

回復 9# ziv976688

不好意思處理#4問題時，沒有看前面程式碼，直接引用字典時用到重複編號，
已修正完成如附件，請再測試看看，謝謝

H_搜尋(機)字檔(主檔)_0917_samwang.zip (127.16 KB)

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

9^#

發表於 2021-9-17 01:20 | 只看該作者

本帖最後由 ziv976688 於 2021-9-17 01:29 編輯

回復 7# samwang
不好意思~但是效果檔卻有正確產生~說錯了~修正 :
7統_0_1895期_100_1893_2個_1次的效果檔是正確的~
但是7統_0_1895期_100_1894_3個_1次的效果檔之H欄排名不正確(以上述1893檔案的H欄排名再連續[/b])

TOP

ziv976688

高中生 Rank: 3 Rank: 3

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

8^#

發表於 2021-9-16 15:08 | 只看該作者

本帖最後由 ziv976688 於 2021-9-16 15:10 編輯

回復 7# samwang
非常謝謝您的補充~感恩

不好意思~如果被搜尋的資料夾名稱第5段有2個(含)以上的不同數字時，會產生偵錯~如圖片~
但是效果檔卻有正確產生
懇請賜正。謝謝您

7C_0_1895期.rar (218.83 KB)

TOP

samwang

大學生 Rank: 4

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

7^#

發表於 2021-9-16 14:20 | 只看該作者

回復 6# ziv976688

E欄(倍率) =$A$2>0時，D欄的值/$A$2；並請將E欄值取小數點後3位數，第4位四捨五入(=ROUND(D2/$A$2,3))
>> If Arr(i, 3) > 0 Then Arr(i, 4) = Round(Arr(i, 3) / .[A2], 3) 'E欄值請增加取小數點後3位數，第4位四捨五入

TOP

ziv976688