[已解决]以前的问题接着问。

user9910

• Sub 求和()
•     Dim str$, arr, k%, isum%
•     str = Application.InputBox(prompt:="请输入数据", Type:=2)
•     arr = Split(str, ",")
•     For k = 0 To UBound(arr) - 1
•         isum = isum + arr(k)
•     Next k
•     MsgBox "输入数据合计为" & isum
• End Sub
  

  上次要写个input 加合的代码，谢谢热心朋友。但是如果没输入，点击退出程序就蹦溃了，有人有好的方法解决这个问题吗？

也就是说弥补取消输入框正常退出程序报错的问题？

最佳答案

月排行榜 / 总排行榜

xdragon

2014-3-26 09:17

1. if str="False" then exit sub

复制代码

加上判断语句就可以了。（then后面的随你写哈）

跳转到最佳答案楼层

风林火山

1. Sub 求和()
   
2.     Dim str$, arr, k%, isum%
   
3.     str = Application.InputBox(prompt:="请输入数据", Type:=2)
   
4.     If Len(str) = 0 Then Exit Sub
   
5.     arr = Split(str, ",")
   
6.     For k = 0 To UBound(arr) - 1
   
7.         isum = isum + arr(k)
   
8.     Next k
   
9.     MsgBox "输入数据合计为" & isum
   
10. End Sub

复制代码

xdragon

1. if str="False" then exit sub

复制代码

加上判断语句就可以了。（then后面的随你写哈）

不信这样还重名

在第3行与第4行间插入一名
If str = "False" Then Exit Sub
判断下是否输入数据，若没有则退出即可

user9910

不信这样还重名 发表于 2014-3-26 09:19
在第3行与第4行间插入一名
If str = "False" Then Exit Sub
判断下是否输入数据，若没有则退出即可

哦！没看仔细呀，昨天看了一眼就写了，忘了写判断了。

user9910

哦！没看仔细呀，昨天在家看了一眼上班时忘了写判断了。

xpw6061

Dim str$, arr, k%, isum%
    str = Application.InputBox(prompt:="请输入数据", Type:=2)
    If nu = str = False Or str = "" Then
   Exit Sub
   Else
  arr = Split(str, ",")
    For k = 0 To UBound(arr) - 1
        isum = isum + arr(k)
    Next k
    MsgBox "输入数据合计为" & isum
End If
这才是最正确的写法
输入窗体有三个按钮,一个"确定",一个"取消",一个"X",当输入正确数据点确定时,没问题,能正确执行,当输入框没有输入内容而点击了确定后,返回的是"",程序会续执行,而不是退出,甚至可能错误,点击取消或"X"自然是正常退出,请楼主三思