[VBA ] inputbox 與運算

作者: HugoStiglitz (Meine Ehre heisst Treue)   2014-03-29 17:47:56
新手遇到一個想不通的問題@@
Sub q1()
Dim a, b, c As Integer
a = InputBox("")
b = InputBox("")
c = a + b
MsgBox c
End Sub
輸入a=1 b=2 msgbox 顯示出的卻是12 而不是3
我的問題是:為什麼已經宣告a,b 是整數型態 VBA卻仍然把他當成字串??
符號 + 變成字串連結子而不是運算子?
我知道的解決的方法是改成 c= val(a) + val(b)
但是我另外又想到一個問題
Sub q2()
Dim a, b, c, d, e As Integer
a = InputBox("")
b = InputBox("")
c = a
d = b
e = c + d
MsgBox e
End Sub
這樣的結果會和上面一樣是12
可是只要改變宣告變數的順序
Dim a, b, e, c, d As Integer
msgbox就會顯示3
這其中的差異到底在哪裡呢??
作者: MOONRAKER (㊣牛鶴鰻毛人)   2014-03-29 18:45:00
你碰到bug了。沒事用一用val()ㄅ
作者: tsongs (......)   2014-03-29 18:55:00
a = Val(InputBox(""))你寫法不是直接出錯就是變成你看到的宣告之後 最好還是用Cstr Val 之類指定變數型態比較穩
作者: knstt   2014-03-29 19:19:00
不是bug,是你沒有完整宣告Dim a (As Variant), b (As Variant), c As Integer你只有c宣告成整數,忽略的話預設是宣告成 Variant正確的宣告是dim a as long, b as long, c as String附帶一提,用Long會比Integer 好
作者: HugoStiglitz (Meine Ehre heisst Treue)   2014-03-29 19:39:00
謝謝各位大大
作者: MOONRAKER (㊣牛鶴鰻毛人)   2014-03-31 15:18:00
OUCH 忘了DIM AS這個大陷阱了 >_<
作者: tsongs (......)   2014-04-01 10:40:00
原來是這樣 一直沒弄清楚

Links booklink

Contact Us: admin [ a t ] ucptt.com