123
返回列表 上一主題 發帖

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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
4# 跳轉到 »
發表於 2021-10-11 12:04 | 只看該作者
回復 3# ziv976688

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

TOP

ziv976688

帖子
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

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
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

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
123
返回列表 上一主題