GBKEE

¦^´_ 3# luke
Sheet1 ªºµ{¦¡½X

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim M As Variant
   
4.     Application.EnableEvents = False
   
5.     Select Case Target.Column
   
6.         Case 1 To 3                             'A-CÄæÀx¦s®æ¦³¸ê®ÆÅÜ°Ê
   
7.             M = Application.Match(Cells(Target.Row, 1), Sheets("sheet2").Columns(1), 0)
   
8.             '¦b"sheet2"!AÄæ ¤¤´M§äsheet1!AÄæ¸ê®Æ
   
9.             If IsError(M) Then                  '§ä¤£¨ì®É Match¨ç¼Æ¶Ç¦^#N/A ¿ù»~­È
   
10.                 Cells(Target.Row, 2).Resize(, 2) = ""
    
11.             Else                                '§ä¨ì®É Match¨ç¼Æ¶Ç¦^Àx¦s®æªº¦C¸¹
    
12.                 Cells(Target.Row, 2).Resize(, 2) = Sheets("sheet2").Cells(M, 2).Resize(, 2).Value
    
13.             End If
    
14.         Case 4 To 7                              'D-GÄæÀx¦s®æ¦³¸ê®ÆÅÜ°Ê
    
15.             M = Application.Match(Cells(Target.Row, 4), Sheets("sheet3").Columns(1), 0)
    
16.             '¦b"sheet3"!AÄæ ¤¤´M§äsheet1!DÄæ¸ê®Æ
    
17.             If IsError(M) Then
    
18.                 Cells(Target.Row, 5).Resize(, 3) = ""
    
19.             Else
    
20.                 Cells(Target.Row, 5).Resize(, 3) = Sheets("sheet3").Cells(M, 2).Resize(, 3).Value
    
21.             End If
    
22.     End Select
    
23.     Application.EnableEvents = True
    
24. End Sub

½Æ»s¥N½X