vb如何呼叫excel的求和、求平均、求最大、求最小等的公式
uj5u.com熱心網友回復：
先創建 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
uj5u.com熱心網友回復：
這幾個函式自己寫都比excel里面繞一圈方便吧uj5u.com熱心網友回復：
而且效率肯定會比這個高出很多倍uj5u.com熱心網友回復：
比如：
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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/75317.html
標籤：VB基礎類