여러 매개 변수가있는 함수

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