作者：绿色风
分类：
时间：2022-08-17
浏览：117
楼主
chrisfang |
Q：如何判断Inputbox中是否输入了字符？
A：通常情况下，如果在Inputbox中没有输入任何字符或单击“取消”按钮或单击“关闭”按钮关闭输入对话框时，都会返回空文本。要正确地识别究竟是哪一种情况下返回的空字符，用户是否确实在文本框中输入了字符内容，可以借助StrPtr函数进行判断。
以下代码可以区分用户不同的操作方式：
- Private Sub CommandButton1_Click()
- x = InputBox("test")
- If StrPtr(x) = 0 Then
- MsgBox "按下了取消或关闭键"
- Else
- If x = "" Then
- MsgBox "没有输入任何数据！"
- Else
- MsgBox "输入数据为：" & x
- End If
- End If
- End Sub
需要注意的是，Application.InputBox函数与InputBox函数有所不同。如果使用的是Application.InputBox函数，则单击“取消”按钮或“关闭”按钮，会返回逻辑值False。因此，如果使用Application.InputBox，判断用户的代码需要修改为：
- Private Sub CommandButton1_Click()
- x = Application.InputBox("test")
- If TypeName(x) = "Boolean" Then
- MsgBox "按下了取消键或关闭键"
- Else
- If x = "" Then
- MsgBox "没有输入任何数据！"
- Else
- MsgBox "输入的数据为：" & x
- End If
- End If
- End Sub
|
2楼
zzmxy |
真不错，学习认识了StrPtr()函数……谢谢方版！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一