首页 > 解决方案 > 如何验证 2 个变量是整数类型?

问题描述

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

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

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

提前致谢。

标签: excelvbatypesinteger

解决方案


首先,使用 IsNumeric 检查文本框的内容是否可以解释为数字其次,检查这些内容的值是否等于这些内容的四舍五入值

if IsNumeric(n1) then
       if val(n1) = floor(val(n1)) then
              ' number is good, take appropriate action
       else
              ' Inform user and take appropriate action
       end if
else 
       'Inform user and take appropriate action
end if

根据经验,我建议将有效性检查放在文本框上的更改事件中,并使用包含状态消息的文本框或标签反馈给用户。


推荐阅读