[µo°Ý] ¤£ª¾¹D­þ¸Ì¥X°ÝÃD °õ¦æ¶¥¬q¿ù»~

j88141

¤£ª¾¹D­þ¸Ì°µ¿ù
°õ¦æ¤£¥X¨Ó
ÁÂÁ¦U¦ì«ü±Ð

¤U¸ü (104.28 KB)

2014-3-13 21:34

Private Sub Worksheet_Change(ByVal myRange As Range)

Set myRange = Worksheets(1).Range("A1")
   

   Range("A1") = "=SUM(B1:B10)"     'Àx¦s®æA1 µ¥©ó  SUM(B1:B10)
         
       If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
       '¦pªG Àx¦s®æA1 ¤j©óµ¥©ó Àx¦s®æE1 ©M ¤p©óÀx¦s®æG1ªº¸Ü

            MsgBox Range("D1") & ©M& & Range("F1"), vbOKOnly
       'Åã¥Ü.....

       ElseIf Range("A1") < Range("E1") Then
       '¦pªGÀx¦s®æA1¤p©óÀx¦s®æE1

            Range("A1").Interior.ColorIndex = 3
            'Àx¦s®æÅã¥Ü¬õ¦â
  
       ElseIf Range("A1") > Range("F1") Then
       '¦pªGÀx¦s®æA1¤j©óÀx¦s®æF1

            MsgBox Range("E1") & ©M& & Range("G1"), vbCritical
       'Åã¥Ü.....
       End If
  
End Sub

j88141

¦^´_ 4# Hsieh

    ¥i¥H¦A½Ð±ÐHsieh ª©¥D
¤ñ¦p»¡¦pªG§Ú·Q¦b

Àx¦s®æ B5  ¥[¤J  
=COUNTIF(E6,"Ä«ªG")+COUNTIF(E10,"Ä«ªG")+COUNTIF(E14,"Ä«ªG")+COUNTIF(E18,"Ä«ªG")+COUNTIF(E22,"Ä«ªG")
Àx¦s®æB7 ¥[¤J
=COUNTIF(E8,"Ä«ªG")+COUNTIF(E11,"­»¿¼")+COUNTIF(E15,"­»¿¼")+COUNTIF(E19,"­»¿¼")+COUNTIF(E23,"­»¿¼")
ªº¸Ü

µ{¦¡½X´N¤£¯à°õ¦æ¤F

¨ºµ{¦¡½X¸Ó¦p¦ó§ï¼g©O?
ÁÂÁÂHsieh ª©¥DÀ°¦£

j88141

¦^´_ 4# Hsieh


    ¥i¥H¥Î~ÁÂÁÂ

Hsieh

¦^´_ 3# j88141
Worksheet_Change¨Æ¥óµ{§Ç¡A¬O¦b¤u§@ªí¤º®e§ïÅÜ®ÉIJµo
§A¦b°Ñ¼Æ¤¤³]¸m¤FByVal myRange As Range
¥Nªí§ïÅܪºÀx¦s®æ¬OmyRange
§A¨S¥²­n¦bµ{§Ç¤º¤S³]¸mSet myRange = ¤u§@ªí1.Range("A1")
ÁöµM³o¼Ë³]¸m¦pªG¬O¦b¦P¤@¤u§@ªí¤º¨ÃµL¤£¥i
¦ý¬O¡A¦pªG­n¦bµ{§Ç¤¤¥Î¨ì¨ú±o·í«eÅܤƤ§Àx¦s®æ®É´N·|³à¥¢
²q´ú¬Ý¬Ý¬O§_¬O§A­nªº

1. Private Sub Worksheet_Change(ByVal myRange As Range)
   
2. If Intersect(myRange, [B1:B10]) Is Nothing Then Exit Sub 'ÅÜ°ÊÀx¦s®æ¤£¦bB1:B10«h°h¥Xµ{§Ç
   
3.    Range("A1") = Application.Sum([B1:B10])     'Àx¦s®æA1 µ¥©ó  SUM(B1:B10)
   
4. 
   
5.        If Range("A1") >= Range("E1") And Range("A1") <= Range("G1") Then
   
6.        '¦pªG Àx¦s®æA1 ¤j©óµ¥©ó Àx¦s®æE1 ©M ¤p©óÀx¦s®æG1ªº¸Ü
   
7. 
   
8.             MsgBox Range("D1") & ©M& & Range("F1"), vbOKOnly
   
9.        'Åã¥Ü.....
   
10. 
    
11.        ElseIf Range("A1") < Range("E1") Then
    
12.        '¦pªGÀx¦s®æA1¤p©óÀx¦s®æE1
    
13. 
    
14.             Range("A1").Interior.ColorIndex = 3
    
15.             'Àx¦s®æÅã¥Ü¬õ¦â
    
16.   
    
17.        ElseIf Range("A1") > Range("F1") Then
    
18.        '¦pªGÀx¦s®æA1¤j©óÀx¦s®æF1
    
19. 
    
20.             MsgBox Range("E1") & "©M&" & Range("G1"), vbCritical
    
21.        'Åã¥Ü.....
    
22.       
    
23.       End If
    
24. End Sub

½Æ»s¥N½X

j88141

¦^´_ 2# owen06


    ·Ó§A³o¼Ë¿é¤J
¥i¬Oµ{¦¡¦n¹³¤]¤£²z§Ú
ªþÀÉ®×µ¹§A
­è¦n­è­è¤É¯Å¦¨¤¤¾Ç¥Í
¥i¥H¤U¸üªþ¥ó¤F
ÀÉ®×.rar (12.92 KB)

¤U¸ü¦¸¼Æ: 9

2014-3-14 00:21

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