Validating事件
If e.Sender.Value < 0 OrElse e.Sender.Value <> Int(e.Sender.Value) Then e.Cancel = TrueEnd If