[已解决]有关inputbox的问题

ccq000000

有下面一段代码：
Sub d()
   Dim x
   x = InputBox("插入空行", "提示框", 20)
End Sub
在弹出的对话框中出现“确定”和“取消”这两个按钮，怎样才能知道我是点了“确定”还是“取消”？
也就是程序能否返回一个相应的值（1 or 2）? 请求指点。
。

最佳答案

月排行榜 / 总排行榜

danio112

2013-9-29 13:59

关于返回值，inputbox 与application.inputbox还是有区别的，具体如下：

Sub d()
   Dim x,y
   x = InputBox("插入空行", "提示框", 20)
   y = application.inputbox("插入空行", "提示框", 20)
End Sub

如果点确定,  x返回20,类型为string, y返回20, 类型为string
如果点取消,  x返回空,类型为string, y返回false, 类型为boolean
如果点X(关闭按钮), x返回空,类型为string, y返回空false, 类型为boolean

跳转到最佳答案楼层

suye1010

Excel 帮助中是这么说明inputbox的
InputBox 函数示例
本示例说明使用 InputBox 函数来显示用户输入数据的不同用法。如果省略 x 及 y 坐标值，则会自动将对话框放置在两个坐标的正中。如果用户单击“确定”按钮或按下“ENTER”按键，则变量 MyValue 保存用户输入的数据。如果用户单击“取消”按钮，则返回一零长度字符串。

所以可使用Len(inputbox返回值)是否为0来判断是按了确定还是取消了输入..

danio112

关于返回值，inputbox 与application.inputbox还是有区别的，具体如下：

Sub d()
   Dim x,y
   x = InputBox("插入空行", "提示框", 20)
   y = application.inputbox("插入空行", "提示框", 20)
End Sub

如果点确定,  x返回20,类型为string, y返回20, 类型为string
如果点取消,  x返回空,类型为string, y返回false, 类型为boolean
如果点X(关闭按钮), x返回空,类型为string, y返回空false, 类型为boolean

ccq000000

danio112 发表于 2013-9-29 13:59
关于返回值，inputbox 与application.inputbox还是有区别的，具体如下：

Sub d()

谢谢您的详细回答

yezhikang

学习了