strptr函数，或许对你有用（转的O(∩_∩)O）

赵国辉

在VBA程序中，InputBox函数用于输入字符串，提供了一个文本框和确定、取消两个按钮，如果按 “确定” 则返回文本框内的内容，按 “取消” 则返回一个长度为零的字符串 ("")，但是如果文本框内没有内容，“确定”是返回("")，“取消”也是返回("")，那么怎样在VBA中区分呢？

请看下面的这一段代码：

Private Sub Test()
    Dim strTemp As String
    strTemp = Application.InputBox("test", "提示 - http://www.excelba.com", "False")
    If StrPtr(strTemp) = 0 Then
        MsgBox "You'v pressed 取消"
    Else
        MsgBox "You'v pressed 确定"
    End If
End Sub

那StrPtr何许人也，很可惜，VBA的帮助中竞找不到相关的帮助，于是就在网海里搜索：

StrPtr：返回真正的UNICODE字符串缓冲区的地址。也就是字符串变量在内存的地址！

StrPtr是唯一能直观地告诉你空字符串（点击确定时返回的值）和null字符串（点击取消时返回的值）的不同的方法。对于null字符串(vbNullString)，StrPtr的返回值为0（因为变量中什么都没有），而对于空字符串，函数的返回值为非零（即字符串地址值）。

VBA中，我们还可以利用Application.InputBox来代替InputBox函数，但有了这个方法，你就可以区别上面的情况了！

转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考：http://www.excelba.com/Art/Html/326.html

中午无聊的时候浏览网页的时候看到的，或许你已知道，就当复习了吧
调用api的时候或许你会遇到它

VBAHERO

学习了，THX

cyberstyle

MARK。。。

yiyiyicz

可以在VB中找资料
如果功夫不够深，慎用

fengtf12

好像记得Application.InputBox的取消是返回boolean值的，只有inputbox是返回空吧。

dreamhight

我的怎么点击都是弹出我点击了确定啊？

zlt1982

dreamhight 发表于 2014-4-12 12:40
我的怎么点击都是弹出我点击了确定啊？

application.inputbox 方法不能通过这个函数判断，可以输出下两种情况下的 StrPtr(strTemp) 返回值看下，都是已经分配了内存地址的。

application.inputbox 方法要判断返回的逻辑值 false，而且不能使用 “false = strTemp” 这种等号判断（当输入值本身为 false 时无法进行区分），要使用
"Boolean" = TypeName(strTemp) 。


这个帖子是完整的 http://www.exceltip.net/thread-6625-1-1.html

yqdaqinqin

StrPtr(KeyName),

水和米

MARK，随时都用得上

水和米

1.     Dim xStr&
   
2.     xStr = Application.InputBox("InputBox 测试", "Mars Wang", Type:=1)
   
3.     MsgBox xStr
   
4.     MsgBox StrPtr(xStr)

复制代码

如果是Application.InputBox，那么填0和点取消或叉叉都会一样的结果