正常的.单元格事件和窗口控件不是一回事.
Dim Val As Double = Forms("控件控制").Controls("Textbox1").ValueIf Val < 0 Then Forms("控件控制").Controls("Textbox1").BackColor = Color.RedElseIf Val > 0 Then Forms("控件控制").Controls("Textbox1").BackColor = Color.GreenEnd If