代碼在裏麵

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
***********************************************/