Question

excel vba 怎么求50个随机数字的最大值 最小值？

excel vba 怎么求50个随机数字的最大值 最小值？
程序怎么写 在线等

Answer 1

jackychen0 - 少校 的写法是利用Excel表格中的数据，以及Excel的用户函数，直接得到结果。

如果楼主是为了研究Excel VBA算法的话，我写一段小代码抛砖引玉：

Sub test()
Dim mydate(1 To 50) As Single
Dim i As Integer, Maxdate As Single, Mindate As Single
'因为默认的随机数据范围在 0~1之间
Maxdate = -1
Mindate = 9999
Randomize
For i = 1 To 50
mydate(i) = Rnd * 9 + 1 '产生1~10的随机数
If mydate(i) > Maxdate Then Maxdate = mydate(i)
If mydate(i) < Mindate Then Mindate = mydate(i)
Next i
MsgBox "最大数与最小数分别为：" & Maxdate & "、" & Mindate & Chr(13) & Chr(13) _
& "50个随机数保存在数组 mydate(50) 中", vbInformation
End Sub

希望能对楼主有帮助。Good luck!

Answer 2

iMax = Application.WorksheetFunction.Max(Range("A1:A50"))
iMin = Application.WorksheetFunction.Min(Range("A1:A50"))