去编写ValidateEdit事件
If e.Col.name = "第七列" Then If e.Row.Index < 3 Then Dim d As Double If Double.TryParse(e.text, d) = false Then msgbox("必须为数字") e.cancel = True End If End IfEnd If