register313

¦^´_ 1# usana642

¤u§@ªí¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column > 11 Then Exit Sub
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. LR = [A65536].End(xlUp).Row
   
5. For I = 1 To LR - 1
   
6.    For J = 2 To 10 Step 2
   
7.      d(Cells(I, J).Value) = ""
   
8.    Next J
   
9.    If d.exists(Cells(LR, 2).Value) And d.exists(Cells(LR, 4).Value) And d.exists(Cells(LR, 6).Value) And d.exists(Cells(LR, 8).Value) And d.exists(Cells(LR, 10).Value) Then
   
10.      MsgBox "»P²Ä" & I & "¦C­«ÂÐ"
    
11.    End If
    
12.    d.RemoveAll
    
13. Next I
    
14. End Sub

½Æ»s¥N½X