Airman

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

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

萬分感激您多日來耐心的指導和賜教
祝:
週休假日愉悅

准提部林

雙層的公式有誤,少加一個條件, 修正:
(MF)-前3大&小雙層比對後之中式排名的語法_v2.rar (69.27 KB)

下載次數: 3

2019-6-1 14:53

太多數據, 沒法一一比對~~

Airman

回復 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]

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

准提部林

再做個純vba+自訂函數:
(MF)-前3大&小雙層比對後之中式排名的語法_v3.rar (57.86 KB)

下載次數: 3

2019-6-1 19:58

沒辦法一一比對正確性, 今非昔比, 眼力差太多了,
另一帖問題, 有時間再去看看~~

Airman

回復 14# 准提部林
准大 :
比對答案是小弟應盡的責任^^
謝謝您不吝耐心賜教~感恩^^

另題待您有空檔再麻煩您~謝謝您 !

准提部林

將自訂函數直接在工作表使用, 可測試其正確性:
(01)公式測試檔3.rar (12.98 KB)

下載次數: 4

2019-6-2 09:04

為了避免"次數"皆為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

回復 16# 准提部林
准大:
再次謝恩^^