每個一個例子。其他的自己加吧
/***************************************
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
***********************************************/