vb如何调用excel的求和、求平均、求最大、求最小等的公式

Question

vb如何调用excel的求和、求平均、求最大、求最小等的公式

Answer 1

先创建 Excel.Application对象，然后通过它调用 WorksheetFunction支持的函数。　So easy .....
' 参考代码（示例只传递了4个参数，实际上这几个函数都是支持“很多个参数”的）：
Private Sub Command1_Click()
   Dim objExcelApp As Object
   
   Set objExcelApp = CreateObject("Excel.Application")
   Me.Print "传递的参数：2, 5, 15, 3"
   Me.Print "求最大值：" & objExcelApp.WorksheetFunction.Max(2, 5, 15, 3)
   Me.Print "求最小值：" & objExcelApp.WorksheetFunction.Min(2, 5, 15, 3)
   Me.Print "求和：" & objExcelApp.WorksheetFunction.Sum(2, 5, 15, 3)
   Me.Print "平均值：" & objExcelApp.WorksheetFunction.Average(2, 5, 15, 3)
   Set objExcelApp = Nothing
End Sub

Answer 2

这几个函数自己写都比excel里面绕一圈方便吧

Answer 3

比如：Private Function Maximum(ParamArray Vals())
Dim n As Integer, MaxVal
On Error Resume Next
    MaxVal = Vals(0)
    For n = 1 To UBound(Vals)
        If Vals(n) > MaxVal Then MaxVal = Vals(n)
    Next n
    Maximum = MaxVal
End Function