有网友问题怎么在一组数字中找到最大值,可以用DMax函数吗?回答是,如果数据是保存在表中的,那当然可以了。但他又问,说这组数据不是存在表里的该怎么做?如果这样就自己写个函数玩玩吧。
原理很简单,先把第一个值赋给一个变量假设他为最大值,然后与其他数字比较,遇到比他大的就再将值赋给这个变量,直到比较完成,最后的就是最大值了。
Private Function MyMax(strMax As String) As Single
Dim varA As Variant
Dim i As Long
Dim sngA As Single
varA = Split(strMax, ";")
sngA = 0
For i = 0 To UBound(varA) - 1
If CSng(varA(i)) > sngA Then
sngA = CSng(varA(i))
End If
Next i
MyMax = sngA
End Function
附 件:
点击下载此附件
演 示: