在工作表代码区写上事件代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" Then If Target < 1 Then BeepEnd IfEnd Sub
