옵션 인수가있는 다른 함수에 선택적 인수를 전달하는 방법

Question

myfunction이라는 함수가 있습니다. 10 개의 선택적 인수가 있습니다. 이 함수는 myotherfunction이라는 다른 함수를 호출하는데,이 함수에는 10 개의 선택적 인수가 있습니다.

그래서 myfunction을 인수 1 만 호출한다고 가정 해 보겠습니다. 10 개의 선택적 인수 중 어느 것이 전달되었는지 알 수 없을 때 인수 1만을 사용하여 myotherfunction을 호출하려면 어떻게해야합니까?

전달해야하는 인수가 1 ~ 10 개일 수 있으므로 ret_value = myotherfunction (arg1 : = argumentone)이라고 말할 수 없습니다. 만약 2 개의 인자를 사용했다면 ret_value = myotherfunction (arg1 : = argumentone, arg2 : = argumenttwo) 일 필요가있을 것입니다.하지만 런타임에 다시 어떤 인자가 myfunction으로 전달되었는지 알지 못합니다. 함수 호출을 구문 분석 할 수있는 방법이 있습니까?

Answer 1

IsMissing을 사용하십시오.

If IsMissing(arg1) Then 
    'do something 
End If 

Variant 유형에서만 작동합니다.

Answer 2

체인을 따라 인수를 전달하십시오.

Sub foo() 
    Call bar("test") 
End Sub 
Sub bar(sOne As String, Optional sTwo) 
    Call foobar(sOne, sTwo) 
End Sub 
Sub foobar(strOne As String, Optional strTwo) 
    If IsMissing(strTwo) Then 
     MsgBox strOne 
    Else 
     MsgBox strOne & "- " & strTwo 
    End If 
End Sub 

참고 : 매우 단순한 예로는 foobar에서 IsMissing 각 루틴의 요구는 그들과 함께 아무것도하기 전에 선택적 인수를 테스트하는 것을 나타 내기 위해서 전용입니다. 아마도 그것들을 전달하는 더 명확한 예가 다음과 같습니다 :

Sub foo() 
    ' note only one parameter provided 
    Call bar("test") 
End Sub 
Sub bar(sOne As String, Optional sTwo, Optional sThree, Optional sFour) 
    ' still pass all parameters even if we only got one 
    Call foobar(sOne, sTwo, sThree, sFour) 
End Sub 
Sub foobar(strOne As String, Optional strTwo, Optional strThree, Optional strFour) 
    ' some code here 
End Sub