owen06

¦^´_ 1# j88141

1. Private Sub Worksheet_Change(ByVal myRange As Range)
   
2. Application.EnableEvents = False
   
3. 
   
4. Set myRange = Sheet1.Range("A1")
   
5. 
   
6.    Range("A1") = "=SUM(B1:B10)"     'Àx¦s®æA1 µ¥©ó  SUM(B1:B10)
   
7. 
   
8.        If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
   
9.        '¦pªG Àx¦s®æA1 ¤j©óµ¥©ó Àx¦s®æE1 ©M ¤p©óÀx¦s®æG1ªº¸Ü
   
10. 
    
11.             MsgBox Range("D1") & ©M& & Range("F1"), vbOKOnly
    
12.        'Åã¥Ü.....
    
13. 
    
14.        ElseIf Range("A1") < Range("E1") Then
    
15.        '¦pªGÀx¦s®æA1¤p©óÀx¦s®æE1
    
16. 
    
17.             Range("A1").Interior.ColorIndex = 3
    
18.             'Àx¦s®æÅã¥Ü¬õ¦â
    
19.   
    
20.        ElseIf Range("A1") > Range("F1") Then
    
21.        '¦pªGÀx¦s®æA1¤j©óÀx¦s®æF1
    
22. 
    
23.             MsgBox Range("E1") & ©M& & Range("G1"), vbCritical
    
24.        'Åã¥Ü.....
    
25.       
    
26.       End If
    
27.   
    
28.   Application.EnableEvents = True
    
29. End Sub

½Æ»s¥N½X