具有多個參數的功能

Question

我有一個帶有多個參數的VBA函數，我需要從Excel表格中獲取，而不是從一個子表格獲取，我如何將輸入分成我需要的參數數量？

例：

Function func(a as double,b as double) as double 
    'calculations 
    'some return value 
End Function 

這是我怎麼一直試圖獲取值：

Answer 1

這是你想要的嗎？

代碼：

Function TestFunction(a As Double, b As Double) As Double 

    TestFunction = a + b 

End Function 

Excel工作表：

=TestFunction(A1,B1) 

Answer 2

如果要處理多個參數，其中你不知道的號碼，然後使用 ParamArray參數

爲

例如，假設func()應簡單地總結你通過它的參數：

Function func(ParamArray args() As Variant) As Double 
    Dim i As Long 
    Dim cell As Range 

    For i = LBound(args) To UBound(args) '<--| loop through each passed argument 
     If TypeName(args(i)) = "Range" Then '<--| if the current element is a Range 
      For Each cell In args(i) '<--| loop through range cells 
       func = func + cell.Value 
      Next cell 
     Else '<--| otherwise 
      func = func + args(i) '<--| simply process the current argument value 
     End If 
    Next i 
End Function