GBKEE

¦^´_ 1# av8d

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.   Dim Rng As Range, I As Integer
   
4.   With Target
   
5.     '.Select   '¦h¤@¦¸½T»{
   
6.     If .Column = 4 Or .Column = 12 Then
   
7.         If Cells(.Row, 4) <> "" And Cells(.Row, 12) <> "" Then
   
8.             For I = 1 To Cells(Rows.Count, .Column).End(xlUp).Row
   
9.                 If Cells(I, 4) = Cells(.Row, 4) And Cells(I, 12) = Cells(.Row, 12) And I <> .Row Then
   
10.                     If Rng Is Nothing Then
    
11.                         Set Rng = Union(Cells(I, 4), Cells(I, 12))
    
12.                     Else
    
13.                         Set Rng = Union(Rng, Cells(I, 4), Cells(I, 12))
    
14.                     End If
    
15.                 End If
    
16.             Next
    
17.             If Not Rng Is Nothing Then
    
18.                 Set Rng = Union(Rng, Cells(.Row, 4), Cells(.Row, 12))
    
19.                 Rng.Select
    
20.                 'MsgBox Cells(.Row, 4) & vbNewLine & Cells(.Row, 12) & vbNewLine & "¥X²{­«½Æ "
    
21.                ' UserForm2.Show
    
22.             End If
    
23.         End If
    
24.     End If
    
25.     If .Cells.Count > 1 Then Exit Sub
    
26.     If Union(.Cells, [K:K]).Address <> [K:K].Address Then Exit Sub
    
27.     If .Cells = "¬õ¦â" Then
    
28.         UserForm1.Show
    
29.     ElseIf .Cells = "ÂŦâ" Then
    
30.         UserForm3.Show
    
31.     End If
    
32.   End With   
    
33. End Sub

½Æ»s¥N½X