[已解决]用VBA为什么inputbox会出错如何改

大灰狼1976

输入的内容不是数值或者为空时，结束过程。不建议使用。
sub 加法计算器()
dim jiashu as integer
dim beijiashu as integer
dim he as integer
On Error GoTo 1
jiashu=inputbox("请输入加数","加法计算器")
beijiashu=inputbox("主伐输入被加数","加法计算器")
he=jiashu+beijiashu
msgbox "两数求和的结果为:" & he,vbokonly,"加法计算器"
1
end sub

laoau138

大灰狼1976 发表于 2017-4-25 16:27
输入的内容不是数值或者为空时，结束过程。不建议使用。
sub 加法计算器()
dim jiashu as integer

那么最好用什么

大灰狼1976

1. sub 加法计算器()
   
2. dim jiashu$,beijiashu$
   
3. dim he as integer
   
4. jiashu=inputbox("请输入加数","加法计算器")
   
5. beijiashu=inputbox("主伐输入被加数","加法计算器")
   
6. if isnumeric(jiashu) and isnumeric(beijiashu) then
   
7.   he=jiashu*1+beijiashu*1
   
8.   msgbox "两数求和的结果为:" & he,vbokonly,"加法计算器"
   
9. else
   
10.   msgbox "Error!"
    
11.   exit sub
    
12. end if
    
13. end sub

复制代码

laoau138

大灰狼1976 发表于 2017-4-25 16:44

为什么还要乘1

大灰狼1976

乘以1是将字符型数字转换成数值型数字的取巧方法，也可以用val(jiashu)来达到同样的效果。