- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
2#
發表於 2015-10-29 02:16
| 只看該作者
程式碼與附件如下- Function MaxRank(表 As Range, 序列 As Integer) As Double
- Dim ar() As Double
- Dim 最高() As Double
- Dim 未選() As Boolean
- For Each rg In 表
- A = A + 1
- Next
- ReDim ar(A): ReDim 最高(A): ReDim 未選(A)
- For Each rg In 表
- n = n + 1
- ar(n) = rg
- Next
- For i = 1 To A
- 最高(i) = -1.7976E+308
- 未選(i) = True
- Next i
- For i = 1 To A: For j = 1 To A
- If ar(j) > 最高(i) And 未選(j) Then
- 最高(i) = ar(j)
- B = j
- End If
- Next j
- 未選(B) = False
- Next i
- MaxRank = 最高(序列)
- End Function
|
-
-
序列函數.rar
(12.95 KB)
|
