Excel関数内で変数を宣言する方法は？

Question

投稿

私はコードを変更しました。

Option Explicit 
Public Function Isokinectic(streamVelocity As Double, sampleVelocity As Double, probeDiameter As Double, density As Double, particleDiameter As Double, viscosity As Double) 

     Dim s As Double 
     Dim stk_coefficent As Double 
     Dim stk As Double 
     Dim d As Double 

     s = ((0.16 * 10^-4)/particleDiameter) + 1 
     stk_coefficent = (1/(18 * viscosity)) * density * particleDiameter * particleDiameter * s 
     stk = (streamVelocity/probeDiameter) * stk_coefficent 
     d = 1 + (2 + 0.62 * (sampleVelocity/streamVelocity)) * stk 
     Isokinectic = 1 + ((streamVelocity/sampleVelocity) - 1) * (1 - 1/(d)) 

End Function 

しかし、動作しません。しかし、サブMAIN（）を追加するときは、このようにします。できます。

Option Explicit 
Function Isokinectic(streamVelocity As Double, sampleVelocity As Double, probeDiameter As Double, density As Double, particleDiameter As Double, viscosity As Double) 

     Dim s As Double 
     Dim stk_coefficent As Double 
     Dim stk As Double 
     Dim d As Double 

     s = ((0.16 * 10^-4)/particleDiameter) + 1 
     stk_coefficent = (1/(18 * viscosity)) * density * particleDiameter * particleDiameter * s 
     stk = (streamVelocity/probeDiameter) * stk_coefficent 
     d = 1 + (2 + 0.62 * (sampleVelocity/streamVelocity)) * stk 
     Isokinectic = 1 + ((streamVelocity/sampleVelocity) - 1) * (1 - 1/(d)) 

End Function 

Sub MAIN() 
    MsgBox Isokinectic(0.1, 0.2, 0.3, 0.4, 0.5, 0.6) 
End Sub 

オリジナルポスト：

私は、Excel関数の式をコーディングしてみました。しかし、#valueを得ました

Function Isokinectic(streamVelocity As Double, sampleVelocity As Double, probeDiameter As Double, density As Double, particleDiamter As Double, visocity As Double) 

     Dim s As Double 
     Dim stk_coefficent As Double 
     Dim stk As Double 
     Dim d As Double 

     s = (0.16 * 10^ - 4/particleDiameter) + 1 

     stk_coefficent = (1/(18 * viscosity)) * density * particleDiamter * particleDiameter * s 

     stk = (streamVelocity/probeDiameter) * stk_coefficent 

     d = 1 + (2 + 0.62 * (sampleVelocity/streamVelocity)) * stk 

     Isokinectic = 1 + ((streamVelocity/sampleVelocity) - 1) * (1 - 1/(1 + d)) 

     End Function 

私はこのコードで間違っていましたか？少しクリーンアップで

Answer 1

：

Option Explicit 
Function Isokinectic(streamVelocity As Double, sampleVelocity As Double, probeDiameter As Double, density As Double, particleDiameter As Double, viscosity As Double) 

     Dim s As Double 
     Dim stk_coefficent As Double 
     Dim stk As Double 
     Dim d As Double 

     s = ((0.16 * 10^-4)/particleDiameter) + 1 
     stk_coefficent = (1/(18 * viscosity)) * density * particleDiameter * particleDiameter * s 
     stk = (streamVelocity/probeDiameter) * stk_coefficent 
     d = 1 + (2 + 0.62 * (sampleVelocity/streamVelocity)) * stk 
     Isokinectic = 1 + ((streamVelocity/sampleVelocity) - 1) * (1 - 1/(1 + d)) 

End Function 

Sub MAIN() 
    MsgBox Isokinectic(0.1, 0.2, 0.3, 0.4, 0.5, 0.6) 
End Sub 

Answer 2

あなたのオリジナルのポストであなたが計算したS、D、STKいますが、他のVelocity &の値を取得している後段の無いところでは、値エラーの理由です。 サブルーチンでは、式にValueを入力しているので、Function関数でそのコマンドラインを記述してください。セルからVelocityの値を渡すことを忘れないでください。