besselk関数を統合する関数

Question

BESSELK関数をパラメータとして持つ関数を作成しようとしています。私はfordom.free.fr上でこのコードが見つかりました：

Option Explicit 

Function F(ByVal Equation As String, Optional ByVal X As Variant = 0) As Double 
'Evaluates f(x) at position x 

'Uppercase 
Equation = UCase(Equation) 
With WorksheetFunction 
'avoid mixing up EXP with exp and X 
Equation = .Substitute(Equation, "EXP", "exp") 
'set value X instead of letter X 
Equation = .Substitute(Equation, "X", X) 
'converts comas into points 
Equation = .Substitute(Equation, ",", ".") 
'Changes)(with)*(
Equation = .Substitute(Equation, ")(", ")*(") 
End With 

'calculates expression 
F = Evaluate(Equation) 

End Function 

をさらに考慮に入れる2つのパラメータにそれを修正：

Option Explicit 

Function F(ByVal Equation As String, Optional ByVal X As Variant = 0, _ 
& **Optional ByVal Y As Variant = 0**) As Double 
'Evaluates f(x) at position x 

'Uppercase 
Equation = UCase(Equation) 
With WorksheetFunction 
'avoid mixing up EXP with exp and X 
Equation = .Substitute(Equation, "EXP", "exp") 
'set value X instead of letter X 
Equation = .Substitute(Equation, "X", X) 
**'set value Y instead of letter Y 
Equation = .Substitute(Equation, "Y", Y)** 
'converts comas into points 
Equation = .Substitute(Equation, ",", ".") 
'Changes)(with)*(
Equation = .Substitute(Equation, ")(", ")*(") 
End With 

'calculates expression 
F = Evaluate(Equation) 

End Function 

私はFをしようとすると（ "X + Y"; 5; 2） 、7を返します。これは問題ありません。しかし、私が F（ "BESSELK（x; y）"; 5; 1）を試しても、#VALUEエラーが出る

Bessel関数のドキュメントと変数の型または2つの引数をチェックしました。確かに "バリアント"です。

なぜここで間違っているのか分かりません！私も簡単な関数F（ "POWER（x; y）"; 5; 2）で試しましたが、＃VALUEエラーも出ます。

どのようなヘルプも歓迎です！どうもありがとうございました。

Answer 1

これらの線

Equation = .Substitute(Equation, "EXP", "exp")

Equation = .Substitute(Equation, "Y", Y)

のアイデアは、仮パラメータXとY式内部大文字に書き込まなければならないということです。

=F("BESSELK(X;Y)";5;1) ' <-- Capital X, capital Y 
=F("POWER(x;y)";5;2) ' <-- idem 

このUDFは、使用するロケール設定でのみ機能することに注意してください。