“取消”的值是什么啊？

Question

bh=InputBox("请输入编号")
rs.Seek "=",bh
If rs.NoMatch then MsgBox"找不到！"
这个代码运行后当我点击取消后，就显示“找不到”，请那位高手指点一下，如何判断用户在inputbox函数框中是按了确定还是取消？

Answer 1

如果用户单击 Cancel（取消），则InputBox函数返回一个长度为零的字符串 ("")，可以根据这个情况进行判断，如果BH=""，则用户按了“取消”键，但如果用户把输入的内容清空，这时按“确定”和按“取消”一样，都返回一个长度为的字符串。

Answer 2

Dim ss = InputBox("请输入", "inputbox测试", 0)Debug.Print(s)If s = "" ThenMsgBox("您选择了取消按钮或× ")ElseMsgBox("您选择了确定按钮")End If