vba 中application.worksheetfunction.max

在VBA中，你可以使用`Application.WorksheetFunction.Max`函数来获取一组数值中的最大值。这个函数会返回给定参数中的最大值。

以下是一个示例：

Sub MaxExample()
    Dim maxVal As Double
    Dim arr(1 To 5) As Double
    
    '给定一组数值
    arr(1) = 10
    arr(2) = 5
    arr(3) = 15
    arr(4) = 8
    arr(5) = 12
    
    '使用Application.WorksheetFunction.Max函数获取最大值
    maxVal = Application.WorksheetFunction.Max(arr(1), arr(2), arr(3), arr(4), arr(5))
    
    MsgBox "最大值是: " & maxVal
End Sub

在上面的示例中，我们使用了一个数组`arr`来存储一组数值。然后，通过传递这些数值作为参数给`Application.WorksheetFunction.Max`函数，我们可以得到这些数值中的最大值。最后，通过`MsgBox`函数将最大值显示在一个消息框中。