cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-8-14 09:35 | 只看該作者

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

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

test3.rar (3.53 KB)

樓主熱帖

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

30^#

發表於 2016-8-18 11:51 | 只看該作者

回復 29# 准提部林

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

29^#

發表於 2016-8-18 09:34 | 只看該作者

回復 28# cdkee

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

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

28^#

發表於 2016-8-18 00:37 | 只看該作者

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

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-26

27^#

發表於 2016-8-17 22:45 | 只看該作者

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

Function GetLoseVal(xRng As Range, xInd%)
Dim Arr, xMin, i&, j&, k%, N%, xD
xMin = "": GetLoseVal = "": Arr = xRng.Value
Set xD = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(Arr)
For j = i + 1 To UBound(Arr)
If Arr(j, 1) >= Arr(i, 1) Then Exit For
If Arr(j, 1) < xMin Then k = j: xMin = Arr(j, 1)
Next
If xMin <> "" Then N = N + 1: xD(N) = xMin - Arr(i, 1): i = k: xMin = ""
Next
If xInd <= N Then GetLoseVal = Application.Small(xD.items, xInd)
End Function

複製代碼

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

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

26^#

發表於 2016-8-17 10:04 | 只看該作者

回復 21# stillfish00

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

TOP

cdkee

中學生 Rank: 2

帖子: 185
主題: 47
精華: 0
積分: 227
點名: 0
作業系統: WIN 7
軟體版本: 旗舰版
閱讀權限: 20
性別: 男
註冊時間: 2010-9-14
最後登錄: 2024-11-19

25^#

發表於 2016-8-16 22:36 | 只看該作者

回復 24# VBALearner

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

TOP

VBALearner

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

24^#

發表於 2016-8-16 20:42 | 只看該作者

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

真心感謝每一位願意分享所學、指導新手的人!

TOP

cdkee