aPPlication.inputbox疑问

ysh01 · 发表于 2013-4-15 22:13

Sub test()
Dim sr
sr = Application.InputBox("输入测试", "测试", , , , , , 1)
   If sr = "" Then
MsgBox "你没有输入就点了确定"
   ElseIf sr = "False" Then
   MsgBox "你没有输入就点了确定"
  End If
End Sub
当运行此代码后,不在弹出对话框里输入数据,就点确定.为什么不能返回"你没有输入就点了确定"

hhl1984 · 发表于 2013-4-15 22:23

在判断前加入
IF len(st)=0 then Exit sub

hhl1984 · 发表于 2013-4-15 22:23

在判断前加入
IF len(st)=0 then Exit sub

hwc2ycy · 发表于 2013-4-15 22:32

使用 InputBox 可以显示一个简单的对话框，以便可以输入要在宏中使用的信息。此对话框有一个“确定”按钮和一个“取消”按钮。如果选择了“确定”按钮，则 InputBox 将返回对话框中输入的值。如果单击“取消”按钮，则 InputBox 返回 False。

ysh01 · 发表于 2013-4-16 08:55

如果不输入值,就点击确定.为什么不能运行 MsgBox "你没有输入就点了确定" ?

爱疯 · 发表于 2013-4-16 08:59

如果不输入值,就点击确定.

不管后面有啥，Application.InputBox和你还没完呢

		自动登录	找回密码
密码			注册

aPPlication.inputbox疑问

相关帖子