excel - 如何验证 2 个变量是整数类型？

Question

我想让用户输入两个整数(两个文本框)
虽然不满足此条件，但我想让用户再次填写文本框。

这是我尝试过的，但这不是正确的答案:

Sub verif_type(n1, n2)


    If TypeName(n1) = "Integer" And TypeName(n2) = "Integer" Then
        MsgBox ("C'est bon !")

    Else
        MsgBox ("C'est pas bon, recommencez !")
        Unload UserForm1
        Call verif_type(n1, n2)
    End If

End Sub

提前致谢。

Answer 1

从文本框中读取很可能每次都会返回一个字符串。因此，对于整数检查，请确保该数字是数字并且没有 ,或 .在里面。为了确保它是一个 VBA 整数，您还可以查看它是否在 -32768 到 32767 的边界内。

Option Explicit

Sub TestMe()

    verifType InputBox("Please enter value")

End Sub

Sub verifType(n1)

    If IsNumeric(n1) _
            And InStr(1, n1, ",") = 0 _
            And InStr(1, n1, ".") = 0 Then

        Debug.Print "Numeric!"
    Else
        Debug.Print "Not Numeric!"
        TestMe
    End If

End Sub

上面的代码是通过 TestMe()调用的并且只获得一个变量(比 2 更容易编写)。如果不是 Integer然后再次调用它。遵循一些类似的逻辑来建立你的案例。