excel学习库

在Excel VBA中，使用InputBox函数可以创建一个输入数据的对话框，供我们输入数据，比如：

Sub InputBox函数()    Dim Str  As String    Str = InputBox("请输入信息:")    MsgBox "你输入的内容是：" & StrEnd Sub

　　下面是执行过程效果：

　　这个过程有个问题：当不在对话框中输入任何内容，直接单击【确定】，或者直接单击对话框中的【取消】按钮，InputBox函数返回的都是相同的信息，如：

Sub 判断InputBox输入内容()    Dim Str1 As String, Str2 As String    Str1 = InputBox("请直接单击【确定】按钮")    Str2 = InputBox("请直接单击【取消】按钮")    MsgBox Str1 = Str2End Sub

我们执行过程，先后单击【确定】和【取消】看看对比的结果：

　　返回的结果为True，说明比较运算符“=”不能辨别输入空白内容和单击【取消】按钮时，InputBox函数返回值的区别。

　　有什么方法可以辨别呢？可以借助 StrPtr函数解决。

　　StrPtr函数，返回真正的UNICODE字符串缓冲区的地址。

　　如果弄不明白这句话的意思也没判断，直接上代码。

Sub 辨别InputBox输入内容()  Dim Str As String  Str = InputBox("请输入内容：")  If StrPtr(Str) = 0 Then     MsgBox "你点击了【取消】或是直接关闭了窗口。"  ElseIf StrPtr(Str) <> 0 Then     If Len(Str) = 0 Then        MsgBox "你未输入数据，直接单击了【确定】按钮。"     ElseIf Len(Str) <> 0 Then        MsgBox "你输入的内容是：" & Str     End If  End IfEnd Sub

快去试试效果吧