¶Ç¦^«ü©wªº­È

©P¤j°¶

¤j¤j­Ì, ¦n
¥i§_¨ó§U¤p§Ì§âªþ¥ó¤º¥Îµ{¦¡§¹¦¨, §Æ±æ¤j¤j­Ì¯à±Ð¾É,ÁÂÁÂ!!
cc.rar (19.34 KB)

¤U¸ü¦¸¼Æ: 11

2011-4-3 21:29

Hsieh

¦^´_ 1# ©P¤j°¶

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target(1).Column = 1 Then
   
3.    For Each a In Target
   
4.       r = Application.Match(a, Sheets("Sheet1").[D:D], 0)
   
5.       If IsNumeric(r) Then
   
6.          a.Offset(, 1).Resize(, 2) = Sheets("Sheet1").Cells(r, 5).Resize(, 2).Value
   
7.       End If
   
8.     Next
   
9. End If
   
10. End Sub

½Æ»s¥N½X

©P¤j°¶

hsieh,¤j¤j,
·PÁ¨ó§U, ¤u§@ªí¥i¹B¦æ, ¦ý¤p§Ì²{®É©ó¤u§@ªí¤¤¦³¤@­Ó¤é´Á¨ç¼Æ, ¤j¤j¥i§_¨ó§UÂରµ{¦¡, »P¥ý«eµ{¦¡Õ¥¤J¨Ï¥Î, ¨ó§U»P§_, ¤p§Ì³£¤w¸U¤À·P¿E, ¯¬§Ö¼Ö°·±d, ÁÂÁÂ!
xx.rar (32.38 KB)

¤U¸ü¦¸¼Æ: 13

2011-4-4 19:35

Hsieh

¦^´_ 3# ©P¤j°¶

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. If Target(1).Column = 1 Then
   
4.    For Each a In Target
   
5.       r = Application.Match(a, Sheets("Sheet1").[D:D], 0)
   
6.       If IsNumeric(r) Then
   
7.          a.Offset(, 1).Resize(, 2) = Sheets("Sheet1").Cells(r, 5).Resize(, 2).Value
   
8.       End If
   
9.     Next
   
10. End If
    
11. If Target(1).Column = 7 Then
    
12.    For Each a In Target
    
13.    If IsDate(a) Then a.Offset(, 1) = DateDiff("yyyy", a, Date)
    
14.    Next
    
15. End If
    
16. Application.EnableEvents = True
    
17. End Sub

½Æ»s¥N½X

©P¤j°¶

hsieh¤j¤j,
ÁÂÁ¨ó§U, ¯¬§Ö¼Ö....