[VBA ] VBA運算請益

看板Visual_Basic作者sweetdance (此ID停止使用)時間12年前 (2013/08/24 22:50)推噓1(1推 0噓 6→)

留言7則, 3人參與討論串1/1

我的程式碼如下 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

08/24 23:29, , 1^F

08/24 23:29, 1^F

→

sweetdance

08/25 00:08, , 2^F

08/25 00:08, 2^F

→

sweetdance

08/25 00:09, , 3^F

08/25 00:09, 3^F