[VBA ] VBA運算請益

[sweetdance (此ID停止使用)]

我的程式碼如下

Private Sub CommandButton1_Click()

For j = 1 To 16 Step 5

Me.Controls("TextBox" & j + 4).Value = Val(Me.Controls("TextBox" & j).Value)
* Val(Me.Controls("TextBox" & j + 1).Value) * Val(Me.Controls("TextBox" & j +
2).Value) / Val(Me.Controls("TextBox" & j + 3).Value)

Next

End Sub


目前是沒辦法運算的~會出現  溢位

a=TextBox縮寫

我的想法是 a5=a1*a2*a3/a4

           a10=a6*a7*a8/a9


a1,a2,a3,a4是我輸入的值,a5是計算後的值

依此類推

但是如果把最後的除法拿掉,就可以算了

我在想是不是定義

Me.Controls("TextBox" & j + 4).Value   為 long

可是寫 Dim Me.Controls("TextBox" & j + 4).Value As Long 又會出現 "必須是識別項"

請高手指導一下,感恩

謝謝
※ 編輯: sweetdance      來自: 1.164.34.170         (08/24 23:22)
※ 編輯: sweetdance      來自: 1.164.34.170         (08/24 23:27)
推 LPH66:你的 a4,a9,a14,a19 是不是有 0 ?
→ sweetdance:對,因為我要運算前我讓所有都歸零
→ sweetdance:所以是不是要寫if a4,9,14,19=0, 答案就為0?
→ sweetdance:因為a4,9,14,19-0時,其它也都是0,所以該怎寫比較好呢?
→ sweetdance:努力中,感覺快破解了!!!
→ MOONRAKER:除以零當然會OVERFLOW。
→ sweetdance:已自行測試出來了^^..謝謝樓上大大提醒