主题：[求助] 判断是否能整除

老师，在  数字   列  输入数值时，如何判断 该数值是否是0.5 的整数倍？如果不是就禁止输入。谢谢！

validateEdit或者datacolchanging事件写代码

 

If e.Col.name = "第一列" Then

    If cint(val(e.text) / 0.5)<> val(e.text) / 0.5 Then

        msgbox("不是0.5整数倍")

        e.cancel = True

    End If

End If

学习