[發問] 如何計算每個欄的累計最大失分

cdkee

請教大大以下如何利用VBA做到，謝謝!
7列=D欄中累計最大失分(黃色部份)
8列=D欄中累計第2大失分(綠色部份)
9列=D欄中累計第3大失分(橙色部份)
test3.rar (3.53 KB)

下載次數: 18

2016-8-14 09:32

cdkee

回復 29# 准提部林

學多樣技巧，謝謝版大教導!

准提部林

回復 28# cdkee


=ROW(A1)  >>>> = 1
下拉則遞增
=ROW(A2)  >>>> = 2
...
...

cdkee

還是有點看不懂，大約也寫一個：



Ｄ７公式：=GetLoseVal(D$20$34,ROW(A1))　右拉下拉
　
　
准提部林 發表於 2016-8-17 22:45

謝謝准提部林版大!是的，就是這樣。
請教大大，D7的公式中，用ROW(A1)有什麼作用?

准提部林

還是有點看不懂，大約也寫一個：

1. Function GetLoseVal(xRng As Range, xInd%)
   
2. Dim Arr, xMin, i&, j&, k%, N%, xD
   
3. xMin = "":  GetLoseVal = "":  Arr = xRng.Value
   
4. Set xD = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To UBound(Arr)
   
6. For j = i + 1 To UBound(Arr)
   
7.     If Arr(j, 1) >= Arr(i, 1) Then Exit For
   
8.     If Arr(j, 1) < xMin Then k = j: xMin = Arr(j, 1)
   
9. Next
   
10.     If xMin <> "" Then N = N + 1: xD(N) = xMin - Arr(i, 1): i = k: xMin = ""
    
11. Next
    
12. If xInd <= N Then GetLoseVal = Application.Small(xD.items, xInd)
    
13. End Function

複製代碼

Ｄ７公式：=GetLoseVal(D$20:D$34,ROW(A1))　右拉下拉
　
　

cdkee

回復 21# stillfish00

大大的沒有問題，今天正常了。

cdkee

回復 24# VBALearner

仍然了解中，謝謝大大指導。

VBALearner

回復 19# cdkee

我說您也稍微了解一下VBA基本的型態限制吧= ="
用integer無法計算到這麼大的數字，宣告變數要改成哪個型態網站上有寫
http://edisonx.pixnet.net/blog/post/42112370-vba-%E5%9F%BA%E6%9C%AC%E8%B3%87%E6%96%99%E5%9E%8B%E6%85%8B

cdkee

回復 21# stillfish00

作了以下修改，謝謝各位大大幫忙!
D7填上公式  =FindMaxLoss(D$20:D$34,2)
D8填上公式  =FindMaxLoss(D$20:D$34,3)
D9填上公式  =FindMaxLoss(D$20:D$34,4)

cdkee

回復 21# stillfish00

謝謝大大幫助!
測試後，發現第一最大失分，會以0減最大累計分數，請教如何修改?謝謝!