[µo°Ý] ³o­Ó¥i¥H¨Ï¥ÎIF¤½¦¡¶Ü?

appr

½Ð¦U¦ì¬Ý¬Ý§Ú¸Ó¥Î­þºØ¤½¦¡¤~¹ï!!

²Ä¤@¡G§Ú²{¦b¦³¤@­Ó¤½¦¡¬O=SUM(D2+F2-(C2))

²Ä¤G¡G  §Ú²{¦b­n¦h¼W¥[¤@­Ó¤½¦¡¬O   E2ªº¼Æ­È·|¸òµÛD2¶]   ¤]´N¬O    ¤µ¤ÑD2 ¤£ºÞ¬O10   ¡A    20    ¡A21.......

E2ªº¼Æ­È·|¸òµÛ D2  ¨«   ¡A µM«á¦A±a¤J¨ì²Ä¤@­Ó¤½¦¡¥h¹Bºâ!!

½Ð°Ý§Ú¸Ó¥Î¬Æ»ò¼Ëªº¤½¦¡?  ¬OIF¶Ü?

½Ð¦U¦ìÀ°À°§Ú!!!§Ú¤w¸g·Q¤£¥X¨Ó¸Ó¥Î¬Æ»ò¤F!!!!

register313

¦^´_ 26# appr

³æ¦V D => E     ­YE§ó§ï«á·|±j­¢µ¥©óD

1. Set RngD = Range("D2:D4")
   
2. Set RngE = Range("E2:E4")
   
3. Set RngDE = Intersect(target, RngD)
   
4. Set RngED = Intersect(target, RngE)
   
5. If (Not RngDE Is Nothing) Or (Not RngED Is Nothing) Then          'E2~E4=D2~D4
   
6.    RngE.Value = RngD.Value
   
7. End If

½Æ»s¥N½X

appr

¦^´_ 24# register313

1. 15.Set RngD = Range("D2:D4")
   
2. 
   
3. 16.Set RngE = Range("E2:E4")
   
4. 
   
5. 17.Set RngDE = Intersect(target, RngD)
   
6. 
   
7. 18.Set RngED = Intersect(target, RngE)
   
8. 
   
9. 19.If Not RngDE Is Nothing Then          'E2~E4=D2~D4
   
10. 
    
11. 20.   RngE.Value = RngD.Value
    
12. 
    
13. 21.End If
    
14. 
    
15. 22.If Not RngED Is Nothing Then          'D2~D4=E2~E4
    
16. 
    
17. 23.   RngD.Value = RngE.Value
    
18. 
    
19. 24.End If

½Æ»s¥N½X

·Q­n½Ð°Ý¤@¤U!!!¥Ø«e³o­ÓÄÝ©ó Âù¦V!!!  ¤]´N¬O»¡¤£ºÞ¬O  ¹ïµÛ   D2  ©Î¬O   E2  ¿é¤J³£¬O¤@¼Ëªº

¦p¦ó¤~¯àÂê©w¤@­ÓÀx¦s®æ  ¤]´N¬O³æ¦Vªº¤è¦¡???

appr

¦^´_ 24# register313


    §ÚÁٯ໡¬Æ»ò????

§Ú·Q±o¨ìªº  ´N¥u¦³.....


¼F®`¼F®`!!!!

register313

¦^´_ 23# appr
RngCA¦bAÄæ(A2~A4»P¿é¤J¶i³f­È¤§¥æ¤e)
­Y²{¬°1¤ë:RngCA.Offset(0, Month(Now) + 4)= RngCA.Offset(0, 1 + 4)=RngCA.Offset(0, 5)
              =AÄæ¦V¥k°¾²¾5Äæ=FÄæ
­Y²{¬°2¤ë:RngCA.Offset(0, Month(Now) + 4)= RngCA.Offset(0, 2 + 4)=RngCA.Offset(0, 6)
              =AÄæ¦V¥k°¾²¾6Äæ=GÄæ

appr

¦^´_ 22# register313

1. (0, Month(Now) + 4)

½Æ»s¥N½X

·Q½Ð°Ý¤@¤U Month ¬O¥Nªí¤ë¥÷   Now ¬O¥Nªí²{¦bªº¤é´Á   

¨º+4©Ò¥Nªíªº§t·N  ¬O   Åã¥Üªº¦ì§}¶Ü?

register313

¦^´_ 21# appr

1. Private Sub worksheet_change(ByVal target As Range)
   
2. Set RngA = Range("A2:A4")
   
3. Set RngB = Range("B2:B4")
   
4. Set RngCA = Intersect(target, RngA)
   
5. Set RngCS = Intersect(target, RngB)
   
6. If Not RngCA Is Nothing Then
   
7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
   
8.    RngCA.Offset(0, Month(Now) + 4) = RngCA.Offset(0, Month(Now) + 4) + RngCA.Value
   
9.    RngCA.Value = ""
   
10. End If
    
11. If Not RngCS Is Nothing Then
    
12.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
    
13.    RngCS.Value = ""
    
14. End If
    
15. Set RngD = Range("D2:D4")
    
16. Set RngE = Range("E2:E4")
    
17. Set RngDE = Intersect(target, RngD)
    
18. Set RngED = Intersect(target, RngE)
    
19. If Not RngDE Is Nothing Then          'E2~E4=D2~D4
    
20.    RngE.Value = RngD.Value
    
21. End If
    
22. If Not RngED Is Nothing Then          'D2~D4=E2~E4
    
23.    RngD.Value = RngE.Value
    
24. End If
    
25. End Sub

½Æ»s¥N½X

appr

¦^´_ 20# register313

·Q¦b½Ð°Ý¤@¤U¡A¬O§_¥i¥H¥Î¦Û°Ê§P§Oªº¤èªk!! ·í²{¦b¬°2¤ë¥÷ªº®É­Ô¬° G2   ¡A·í²{¦b¬°3¤ë¥÷ªº®É­Ô¬°H2   ¡A·í ²{¦b¬°4¤ë¥÷ªº®É­Ô.......

©ÎªÌ¬O»¡¥i¥H¥Î¦Û­qªí³æªº¤è¦¡ ?  §Ú¦³¥Î¤@­Ó¦Û­qªí³æ  !!   ¦ý¬O¦³­þÃ䥴¿ù  ¤@ª½Åã¥Ü¦³ End With    ¨S¦³   With   ???¨ì©³¬O«ç»ò¤F????



    ¬¡­¶Ã¯1.rar (13.16 KB)

¤U¸ü¦¸¼Æ: 3

2012-2-27 21:29

register313

¦^´_ 19# appr

¥Ø«e¥\¯à¦p¤U

¤U¸ü (43.8 KB)

2012-2-27 10:10

1. Private Sub worksheet_change(ByVal target As Range)
   
2. Set RngA = Range("A2:A4")
   
3. Set RngB = Range("B2:B4")
   
4. Set RngCA = Intersect(target, RngA)
   
5. Set RngCS = Intersect(target, RngB)
   
6. If Not RngCA Is Nothing Then
   
7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
   
8.    RngCA.Offset(0, 6) = RngCA.Offset(0, 6) + RngCA.Value
   
9.    RngCA.Value = ""
   
10. End If
    
11. If Not RngCS Is Nothing Then
    
12.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
    
13.    RngCS.Value = ""
    
14. End If
    
15. Set RngD = Range("D2:D4")
    
16. Set RngE = Range("E2:E4")
    
17. Set RngDE = Intersect(target, RngD)
    
18. Set RngED = Intersect(target, RngE)
    
19. If Not RngDE Is Nothing Then          'E2~E4=D2~D4
    
20.    RngE.Value = RngD.Value
    
21. End If
    
22. If Not RngED Is Nothing Then          'D2~D4=E2~E4
    
23.    RngD.Value = RngE.Value
    
24. End If
    
25. End Sub

½Æ»s¥N½X

¨ä¾l°ÝÃD¥HexcelÀɮק@¦¨½d¨Ò¦A¥[¥H»¡©ú

appr

¦^´_ 17# register313

¤£¦n·N«ä¡A¤S¥X²{¦b¤F¨â­Ó°ÝÃD·Q½Ð±Ð¤@¤U¡A §Ú·Q­n¦P®ÉÅýA2¸òµÛC2¥H¤ÎG2°µ¤@¼Ëªº°Ê§@!!

¦ý¨C¦¸¥Î¦n«á ¡A§Úªºexcel´N·í±¼¤F!!!¬Oµ{¦¡½X§Ú¥´¿ù¤F¶Ü?

¥H¤Î¦pªG·QÅý G2¥i¥H¬O¦Û°Ê§P§O¤ë¥÷ !!!  ¤]´N¬O»¡ 2¤ë¥÷¬O¦bG2 ·í 3¤ë¥÷·|¦Û°Ê¸õ¨ì  H2 ³o¬O­n«ç»ò³]©w????

1. Private Sub worksheet_change(ByVal target As Range)
   
2. Set RngA = Range("A2:A4")
   
3. Set RngB = Range("B2:B4")
   
4. Set RngCA = Intersect(target, RngA)
   
5. Set RngCS = Intersect(target, RngB)
   
6. If Not RngCA Is Nothing Then
   
7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
   
8.    RngCA.Value = ""
   
9. End If
   
10. If Not RngCS Is Nothing Then
    
11.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
    
12.    RngCS.Value = ""
    
13. End If
    
14. Set RngD = Range("D2:D4")
    
15. Set RngE = Range("E2:E4")
    
16. Set RngDE = Intersect(target, RngD)
    
17. Set RngED = Intersect(target, RngE)
    
18. If Not RngDE Is Nothing Then          'E2~E4=D2~D4
    
19.    RngE.Value = RngD.Value
    
20. End If
    
21. If Not RngED Is Nothing Then          'D2~D4=E2~E4
    
22.    RngD.Value = RngE.Value
    
23. End If
    
24. Set RngA = Range("A2:A4")
    
25. Set RngCA = Intersect(target, RngA)
    
26. If Not RngCA Is Nothing Then
    
27.    RngCA.Offset(0, 6) = RngCA.Offset(0, 6) + RngCA.Value
    
28.    RngCA.Value = ""
    
29. End If
    
30. End Sub

½Æ»s¥N½X