Airman

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-5-29 03:33 | 顯示全部帖子

[發問] 名次有並排時，則作雙列比對的語法。

詳如測試檔(內附範例和需求說明) :

測試檔(0529).rar (203.84 KB)

樓主熱帖

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

2^#

發表於 2019-5-30 23:20 | 顯示全部帖子

回復 2# 准提部林
准大:
謝謝您的公式解。
小弟研讀完再作報告^^

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

3^#

發表於 2019-5-30 23:25 | 顯示全部帖子

回復 3# Scott090
Scott090大大 :
謝謝您再次賜教。

您是不是有修整程式?
初次測試，感覺執行速率變快了^^
等小弟研讀完貴程式後，再作測試報告。

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

4^#

發表於 2019-5-31 02:19 | 顯示全部帖子

回復 2# 准提部林

准大:
測試結果~答案全部正確~感恩^^

如果想將答案放置在CE : DH的話~
請問程式碼要怎麼改?
小弟有將AZ改為CE；將CC改為DH；BA改為CF；但AY要怎麼改?
AY不改或AY改為CD~答案都不對?
正如當初二位版主的公式解，小弟也是因為同樣問題而放棄，所以改求程式解^^"

PS : B74 :AX78的程式部分可以省略(移除)。

待您有空檔~再勞駕您~謝謝您^^

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

5^#

發表於 2019-5-31 02:27 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-31 02:29 編輯

回復 3# Scott090
Scott090大大 :
測試結果~答案全部正確~感恩^^

研讀貴程式解後，您並不是雙層另寫一段，而是將但單層和雙層融會編寫~
執行的結果比只執行單層時的速率還快^^

謝謝您的耐心協助和指導~感恩^^

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

6^#

發表於 2019-5-31 08:46 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-31 08:50 編輯

回復 8# Scott090
Scott090大大 : 早安!
您太有雅量了~萬分感激!
不用分開它~這個解答檔正是小弟所需

還有二個工序~小弟正在酌量如何作表格的結構為宜~不好意思，每天給您添麻煩~下星期您如果有空檔且不介意的話~再冒昧勞駕您費神~謝謝您!

祝:
週休假期愉悅

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

7^#

發表於 2019-5-31 18:49 | 顯示全部帖子

本帖最後由 Airman 於 2019-5-31 19:01 編輯

回復 10# 准提部林
准大 :
謝謝您重新費心整理單層和雙層的需求程式碼~感恩!
公式解在桌面測試6個檔案~耗時只有1秒多不到2秒~厲害!
沒有想到您們二位加了雙層~執行效率反而比只有單層時還快~佩服!

因為一期有49個檔案，一期又有6種排列，所以小弟先研究同樣5欄格式的均值,合數,尾數3種。
尚有另1個雙層和三層的工序，小弟也考慮是否需要?尤其三層是否能以雙層再人工檢視即可。

萬分感激您多日來耐心的指導和賜教

祝:
週休假日愉悅

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

8^#

發表於 2019-6-1 18:34 | 顯示全部帖子

本帖最後由 Airman 於 2019-6-1 18:36 編輯

回復 12# 准提部林
准大 :
小弟還沒有覺察出錯誤^^"
謝謝您的賜正~感恩^^

===============
不好意思。下列問題可否幫小弟看一下~
http://forum.twbts.com/thread-21814-1-1.html
謝謝您^^

If檔案名稱中沒有"均值" Then GoTo 101
         [B1:BK1].Clear
         For j = 1 To 49       '均值
            Cells(1, j + 1) = j
         Next
101:             With [B1:AX1]

但~檔案名稱中沒有"均值"的語法小弟不會編寫^^"

TOP

Airman