複数のパラメータを持つ関数

Question

私は複数の引数を持つVBA関数を持っていますが、これはExcelシートからではなく、サブ関数から取得する必要があります。

例：

Answer 1

はこれが何をしたいです：

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

これは私が値を取得しようとしている方法ですか？

コード：

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

    TestFunction = a + b 

End Function 

エクセルシート：

=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