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
加好友 
发短信
Post By：2018/5/4 9:01:00 [显示全部帖子]
