代码在里面

office 2003 excel 上测试通过。 玩玩而已，见笑了。
每个一个例子。其他的自己加吧
/***************************************
Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("Sheet1").Activate

If Target.Address = "$B$7" And Target.Value = "1" Then
ActiveSheet.PrintOut
End If

If Range("B16").Value = "10" Then
If Not Range("B5").Value = "" Then
Worksheets("Sheet1").Range("B5").ClearContents
End If

End If


End Sub
***********************************************/