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

¦^´_ 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

¦^´_ 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

¦^´_ 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

¦^´_ 24# register313


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

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


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

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ªº¤è¦¡???

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