標題:
[發問]
名次有並排時，則作雙列比對的語法。
[打印本頁]
作者:
Airman
時間:
2019-5-29 03:33
標題:
名次有並排時，則作雙列比對的語法。
詳如測試檔(內附範例和需求說明) : [attach]30707[/attach]
作者:
准提部林
時間:
2019-5-30 17:20
一樣使用公式法:
[attach]30724[/attach]
作者:
Scott090
時間:
2019-5-30 20:33
回復
1#
Airman
請參考
[attach]30732[/attach]
作者:
Airman
時間:
2019-5-30 23:20
回復
2#
准提部林
准大:
謝謝您的公式解。
小弟研讀完再作報告^^
作者:
Airman
時間:
2019-5-30 23:25
回復
3#
Scott090
Scott090大大 :
謝謝您再次賜教。
您是不是有修整程式?
初次測試，感覺執行速率變快了^^
等小弟研讀完貴程式後，再作測試報告。
作者:
Airman
時間:
2019-5-31 02:19
回復
2#
准提部林
准大:
測試結果~答案全部正確~感恩^^
如果想將答案放置在CE : DH的話~
請問程式碼要怎麼改?
小弟有將AZ改為CE；將CC改為DH；BA改為CF；但AY要怎麼改?
AY不改或AY改為CD~答案都不對?
正如當初二位版主的公式解，小弟也是因為同樣問題而放棄，所以改求程式解^^"
PS : B74 :AX78的程式部分可以省略(移除)。
待您有空檔~再勞駕您~謝謝您^^
作者:
Airman
時間:
2019-5-31 02:27
本帖最後由 Airman 於 2019-5-31 02:29 編輯
回復
3#
Scott090
Scott090大大 :
測試結果~答案全部正確~感恩^^
研讀貴程式解後，您並不是雙層另寫一段，而是將但單層和雙層融會編寫~
執行的結果比只執行單層時的速率還快^^
謝謝您的耐心協助和指導~感恩^^
作者:
Scott090
時間:
2019-5-31 06:35
回復
7#
Airman
順著流程一起把單、雙解決比較流暢；
假如分開寫，流程邏輯結構、變數會比較複雜或部分需要重構吧?
不知是否有需要一定要分開它?
作者:
Airman
時間:
2019-5-31 08:46
本帖最後由 Airman 於 2019-5-31 08:50 編輯
回復
8#
Scott090
Scott090大大 : 早安!
您太有雅量了~萬分感激!
不用分開它~這個解答檔正是小弟所需
還有二個工序~小弟正在酌量如何作表格的結構為宜~不好意思，每天給您添麻煩~下星期您如果有空檔且不介意的話~再冒昧勞駕您費神~謝謝您!
祝:
週休假期愉悅
作者:
准提部林
時間:
2019-5-31 14:03
用了輔助表公式:
[attach]30747[/attach]
就這樣, 再多一層可能難辦~~
作者:
Airman
時間:
2019-5-31 18:49
本帖最後由 Airman 於 2019-5-31 19:01 編輯
回復
10#
准提部林
准大 :
謝謝您重新費心整理單層和雙層的需求程式碼~感恩!
公式解在桌面測試6個檔案~耗時只有1秒多不到2秒~厲害!
沒有想到您們二位加了雙層~執行效率反而比只有單層時還快~佩服!
因為一期有49個檔案，一期又有6種排列，所以小弟先研究同樣5欄格式的均值,合數,尾數3種。
尚有另1個雙層和三層的工序，小弟也考慮是否需要?尤其三層是否能以雙層再人工檢視即可。
萬分感激您多日來耐心的指導和賜教
祝:
週休假日愉悅
作者:
准提部林
時間:
2019-6-1 14:53
雙層的公式有誤,少加一個條件, 修正:
[attach]30754[/attach]
太多數據, 沒法一一比對~~
作者:
Airman
時間:
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]
但~檔案名稱中沒有"
均值
"的語法小弟不會編寫^^"
作者:
准提部林
時間:
2019-6-1 19:59
再做個純vba+自訂函數:
[attach]30755[/attach]
沒辦法一一比對正確性, 今非昔比, 眼力差太多了,
另一帖問題, 有時間再去看看~~
作者:
Airman
時間:
2019-6-2 08:59
回復
14#
准提部林
准大 :
比對答案是小弟應盡的責任^^
謝謝您不吝耐心賜教~感恩^^
另題待您有空檔再麻煩您~謝謝您 !
作者:
准提部林
時間:
2019-6-2 09:06
將自訂函數直接在工作表使用, 可測試其正確性:
[attach]30756[/attach]
為了避免"次數"皆為0的錯誤,以下改改
For i = 1 To U
Jr(i) = ((ar2(1, i)
+ 1
) * 10000 + ar3(1, i)
+ 1
) * 100 * V - ar1(1, i)
Next i
作者:
Airman
時間:
2019-6-2 09:23
回復
16#
准提部林
准大:
再次謝恩^^
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
