[VBA程序]：求助：关于optional

qiaqiadeng

请高手帮我看一下如下代码，代码意图是要求最小值，比较的值不少于2个，其他可选，但是执行结果不对，虽然我知道optional对double数据类型不起作用，但如何解决？

Public Function MinN(a1 As Double, a2 As Double, _
Optional a3, Optional a4, _
Optional a5, Optional a6, _
Optional a7, Optional a8, _
Optional a9, Optional a10) As Double   '求最小值
Dim Xxx As Double
Xxx = a1
If a2 < Xxx Then
    Xxx = a2
    'MsgBox a2
End If
If Not IsMissing(a3) And a3 < Xxx Then
    Xxx = a3
    MsgBox a3
End If

If Not IsMissing(a4) And a4 < Xxx Then
    Xxx = a4
End If

If Not IsMissing(a5) And a5 < Xxx Then
    Xxx = a5
End If

If Not IsMissing(a6) And a6 < Xxx Then
    Xxx = a6
End If

If Not IsMissing(a7) And a7 < Xxx Then
    Xxx = a7
End If

If Not IsMissing(a8) And a8 < Xxx Then
    Xxx = a8
End If

If Not IsMissing(a9) And a9 < Xxx Then
    Xxx = a9
End If

If Not IsMissing(a10) And a10 < Xxx Then
    Xxx = a10
End If
MinN = Xxx
End Function

雪山飞狐(lzh)

Function Min(ParamArray vals())
    Min = vals(0)
    For i = 1 To UBound(vals)
        If Min > vals(i) Then Min = vals(i)
    Next i
End Function

qiaqiadeng

多谢斑竹，哈哈，还是帮助的不想看，看了就不用麻烦斑竹了，再次感谢