VBA内置函数中没有求最大值的函数,但可以利用excel中表格可以用max函数,在VBA中也可以用,只需通过WorksheetFunction对象就可以引用,后面加函数名称,然后加range来引用单元格。举个例子:
Application.WorksheetFunction.Max(range("A1:C5"))
从 Visual Basic 中调用工作表函数:
在 Visual Basic 中,通过 WorksheetFunction 对象可使用 Microsoft Excel 工作表函数。
例如:
以
下 Sub 过程使用 Max 工作表函数来决定在某个单元格区域中的最大值。首先,将变量 myRange 声明为 Range 对象,然后将其设置为
Sheet1 上的 A1:C10 单元格区域。指定另一个变量 answer 为对 myRange 应用 Max 函数的结果。最后,answer 的值就被显示在消息框中。
编码如下:
Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Max(myRange)
MsgBox answer
End Sub