inputbox输入正整数问题

excel菜菜子

使用inputbox，无法判断输入数字正整数问题：

Sub test()
Dim a
a = InputBox("输入整数", "test")
If a > 0 And a = Int(a) Then
    MsgBox a & "是整数"
Else
    MsgBox a & "不是整数"
End If
End Sub

ggsmart

因为InputBox函数返回的结果一定是String类型。

ggsmart

因为InputBox函数返回的结果一定是String类型。而Int函数返回的是数值。
也就是说，你在这部分代码“a = Int(a)”中，是在将一个文本类型的数据和一个数值类型的数据对比，无论它们是什么数，返回的一定都是False
也因此不能判断输入的数据是否整数。
你可以在比较前先把它们的数据类型转为同一类数据类型

excel菜菜子

ggsmart 发表于 2017-11-4 18:27
因为InputBox函数返回的结果一定是String类型。而Int函数返回的是数值。
也就是说，你在这部分代码“a = I ...

3q了，当初我也猜测是这样。谢谢你，问题之前已经解决了