PTT數位生活區 / Visual_Basic

[VBA ] 溢位問題

看板Visual_Basic作者時間2年前 (2021/05/12 12:24), 編輯推噓1(1推 0噓 27→)
留言28則, 4人參與, 2年前最新討論串2/2 (看更多)
請教各位大大 目前想寫個簡易計算excel數據的程式 有四個textbox textbox 1~3(a、b、c)分別顯示從excel抓取的數據或自行打上數據 textbox 4(d) 則計算textbox 1~3的數據後顯示出來 我的寫法是這樣： 當a出現數據後 d顯示計算結果 Private Sub a_Change() d.Text = Val(a.Text) * Val(b.Text) / Val(c.Text) End Sub 結果出現 執行階段錯誤'6'：溢位 我剛學VBA還請版上大大指導 感謝! -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.124.166.109 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1620793485.A.69A.html
推
05/12 21:07, 2年前 , 1F
因為 c 沒有值, Val 之後變成 0 了
05/12 21:07, 1F
→
05/13 09:17, 2年前 , 2F
感謝大大 終於找到問題了 那除了預先在格子內填入數值外
05/13 09:17, 2F
→
05/13 09:17, 2年前 , 3F
還有其他方法嗎？ 謝謝
05/13 09:17, 3F
→
05/13 09:51, 2年前 , 4F
你有聽過if嗎
05/13 09:51, 4F
→
05/14 11:10, 2年前 , 5F
Private Sub a_Change()
05/14 11:10, 5F
→
05/14 11:11, 2年前 , 6F
call cal
05/14 11:11, 6F
→
05/14 11:11, 2年前 , 7F
end sub
05/14 11:11, 7F
→
05/14 11:11, 2年前 , 8F
sub cal()
05/14 11:11, 8F
→
05/14 11:12, 2年前 , 9F
if a.Text="" or a.Text = 0 then exit sub
05/14 11:12, 9F
→
05/14 11:12, 2年前 , 10F
if b.Text="" or b.Text = 0 then exit sub
05/14 11:12, 10F
→
05/14 11:13, 2年前 , 11F
if c.Text="" or c.Text = 0 then exit sub
05/14 11:13, 11F
→
05/14 11:13, 2年前 , 12F
d.Text = Val(a.Text) * Val(b.Text) / Val(c.Text)
05/14 11:13, 12F
→
05/14 11:13, 2年前 , 13F
end sub
05/14 11:13, 13F
→
05/14 11:14, 2年前 , 14F
另外textbox的IMEmode 要改成8
05/14 11:14, 14F
→
05/14 11:15, 2年前 , 15F
如果想全靠鍵盤操作
05/14 11:15, 15F
→
05/14 11:15, 2年前 , 16F
可以把前三行取消
05/14 11:15, 16F
→
05/14 11:16, 2年前 , 17F
改用
05/14 11:16, 17F
→
05/14 11:17, 2年前 , 18F
Private Sub a_KeyDown(ByVal KeyCode As MSFors.Retur
05/14 11:17, 18F
→
05/14 11:17, 2年前 , 19F
nInteger, ByVal Shift As Integer)
05/14 11:17, 19F
→
05/14 11:17, 2年前 , 20F
If KeyCode = 13 Or KeyCode = 9 Then
05/14 11:17, 20F
→
05/14 11:17, 2年前 , 21F
Application.EnableEvents = False
05/14 11:17, 21F
→
05/14 11:17, 2年前 , 22F
Call cal
05/14 11:17, 22F
→
05/14 11:18, 2年前 , 23F
KeyCode = 0
05/14 11:18, 23F
→
05/14 11:18, 2年前 , 24F
b.SetFocus
05/14 11:18, 24F
→
05/14 11:18, 2年前 , 25F
Application.EnableEvents = True
05/14 11:18, 25F
→
05/14 11:18, 2年前 , 26F
End If
05/14 11:18, 26F
→
05/14 11:18, 2年前 , 27F
End Sub\
05/14 11:18, 27F
→
05/14 11:19, 2年前 , 28F
\ 刪掉 不小心按到
05/14 11:19, 28F
‣ 更多 areric 的文章
文章代碼(AID): #1WcrYDQQ (Visual_Basic)
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
排序： 最舊先 | 最新先 | 留言數
1
5
[VBA ] 溢位問題
hedis1010
5年前, 06/22
1
28
[VBA ] 溢位問題
areric
2年前, 05/12
在新視窗開啟完整討論串 (共2篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 areric 的文章
文章代碼(AID): #1WcrYDQQ (Visual_Basic)