VBA関数に未定義の引数を渡します。

Question

VBAと関数のExcel関数を呼び出す必要があります。

私は変数の引数の数を知りません（var1から...）。

配列を変換してパラメータとして適用する方法はありますか？ ：最終的にkwargsからPythonでのようなものがあるが

Application.Run("MyFunct", fixParam1, fixParam2, var1, var2 ... varx) 

私は...多分

Application.run("myFunct", fixParam1, fixParam2, kwargs(myArray)) 

し、paramArrayで何か？

mySub(fixParam1, fixParam2, ParamArray var() as Variant) 
    Application.run([here I'm not sure...??]) 

Answer 1

myFunctを変更して処理できる場合は、配列を渡すことができます。 http://www.cpearson.com/excel/passingandreturningarrays.htm

Application.run("myFunct", fixParam1, fixParam2, myArray) 

だから私はmyFunctはこのような引数を受け入れることを推測しています：fixParam1、fixParam2は、[VAR1]、[VAR2]、...ブラケットはオプションの引数を示しています。だからあなたはいくつかのオプション引数を持つかもしれません。

OPTION 1 だから、すべての引数を持つ配列を作成し、このようにそれを呼び出す：

Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1), _ 
    myArray(2), myArray(3), myArray(4), myArray(5)) 

うまくいけば、呼び出された関数は空白の入力を処理することができます。

OPTION 2 myFunctは、追加の引数を処理できない場合は、このような何かしなければならないことがあります。

Select Case argCount 
    Case 1 
     Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0)) 
    Case 2 
     Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1)) 
    Case 3 
     Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1), myArray(2)) 
    Case 4 
     Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1), myArray(2), myArray(3)) 
End Select 

ないかなりが、作品を。

Answer 2

このようなパラメータとして配列を受け取る関数定義：あなたのように（ `myFunct`を変更することはできませんので

testFunction myArray