GBKEE

¦^´_ 3# luhpro
½Ð°Ñ¦Ò¤@¤U

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim bNFind As Range
   
4.     With Target
   
5.         If .Count = 1 Then
   
6.             If .Row = 1 And .Column <= 7 Then  ' A1 ©Î B1(¬P´Á¤@ ¨ì ¬P´Á¤é)
   
7.                 .Range("A2").Resize(2) = ""
   
8.                 .Range("A3").Validation.Delete
   
9.                 If .Value = "" Then Exit Sub
   
10.                 Application.EnableEvents = False
    
11.                 Set bNFind = Sheets("¤u§@ªí2").Range("A:A").Find(.Value, LookAT:=xlWhole)
    
12.                 If Not bNFind Is Nothing Then
    
13.                     .Offset(1) = bNFind.Range("B1")
    
14.                     If ±Æ¯Z(bNFind.Range("C1"), Target) Then .Offset(2) = bNFind.Range("C1") & vbLf & "¨S¦³±Æ¯Z"
    
15.                 End If
    
16.                 Application.EnableEvents = True
    
17.             End If
    
18.         End If
    
19.     End With
    
20. End Sub
    
21. Private Function ±Æ¯Z(ByVal T1 As Range, T2 As Range) As Boolean
    
22.     Dim bNFind As Range, S As String
    
23.     With Sheets("¤u§@ªí1")
    
24.         Set bNFind = .Columns(T2.Column).Find(T1, LookAT:=xlWhole)
    
25.         If Not bNFind Is Nothing Then
    
26.             For Each bNFind In .Columns(T2.Column).SpecialCells(xlCellTypeConstants)
    
27.                 If bNFind.Row > 1 And bNFind <> "" Then
    
28.                     S = IIf(S <> "", S & "," & bNFind, bNFind)
    
29.                 End If
    
30.             Next
    
31.         Else
    
32.            ±Æ¯Z = True
    
33.         End If
    
34.         With T2.Range("A3")
    
35.             If Not ±Æ¯Z Then
    
36.                 .Validation.Add Type:=xlValidateList, Formula1:=S
    
37.                 .Value = T1
    
38.             End If
    
39.         End With
    
40.     End With
    
41. End Function

½Æ»s¥N½X