VBA Excelオーバーフローエラー

Question

誰かがこのコードの誤りを説明できますか？オーバーフローエラーが発生します。最初に、これは、n1、n2の大きな入力値のために私は（注文10000）、数百にそれらの値を減らした後に与えていると思った私はこのエラーを取得しています。

Private Sub CommandButton1_Click()  
Dim Ds1, Ds2, Ds3, Ds4, Ds5, n1, n2, n3, n4, n5, C, m, a0, w, D, N, i, Pi As Double 
Pi = 3.14159265359 
Ds1 = TextBox8.Text 
n1 = TextBox10.Text 
Ds2 = TextBox13.Text 
n2 = TextBox14.Text 
Ds3 = TextBox17.Text 
n3 = TextBox18.Text 
Ds4 = TextBox11.Text 
n4 = TextBox12.Text 
Ds5 = TextBox15.Text 
n5 = TextBox16.Text 
C = TextBox20.Text 
m = TextBox19.Text 
a0 = TextBox22.Text 
w = TextBox21.Text` 
D = Sqr(((n1 * (Ds1^2)) + (n2 * (Ds2^2)) + (n3 * (Ds3^2)) + (n4 * (Ds4^2)) + (n5 * (Ds5^2)))/(n1 + n2 + n3 + n4 + n5)) 
N = n1 + n2 + n3 + n4 + n5 

ReDim af1(N) As Double 
ReDim Y(N) As Double 

af1(0) = a0 

For i = 1 To N  
Y(i) = 1.12 - (0.23 * (af1(i - 1)/w)) + (10.55 * ((af1(i - 1)/w)^2)) - (21.72 * ((af1(i - 1)/w)^3)) + (30.39 * ((af1(i - 1)/w)^4)) 
af1(i) = af1(i - 1) + (C * (D^m) * (Pi^(m/2)) * ((af1(i - 1))^(m/2)) * (Y(i)^m))  
Next i  

TextBox11.Text = af1(N) 
End Sub 

Answer 1

すべての変数をDoubleとして宣言してください。現時点では唯一のPiは倍です。もしあなたが言うならば、

Dim D1, D2 as Double 

そして、D2だけがダブルです。 D1はバリアントです。それはあなたが実際のエラーとラインを投稿する場合は、上のエラーを得るのを助けるでしょう

Ds1 = CDbl(TextBox8.Text)