Hsieh

¦^´_ 1# usana642

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Application.CountA(Cells(Target.Row, 2).Resize(, 10)) <> 10 Or Target.Row < 2 Or Target.Column > 11 Then Exit Sub
   
3.    For i = 1 To Target.Row - 1
   
4.    k = 0
   
5.       For j = 2 To 11
   
6.       k = k + IIf(Application.CountIf(Cells(Target.Row, 2).Resize(, 10), Cells(i, j)) = 1, 1, 0)
   
7.       Next
   
8.       If k = 10 Then MsgBox "»P²Ä" & i & "¦C­«½Æ": Exit Sub
   
9.    Next
   
10. End Sub

½Æ»s¥N½X