GBKEE

¦^´_ 3# av8d
¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   Dim Rng As Range, I As Integer
   
3.   With Target
   
4.     .Select
   
5.     If .Column = 4 Or .Column = 9 Then
   
6.         If Cells(.Row, 4) <> "" And Cells(.Row, 9) <> "" Then
   
7.             For I = 1 To Cells(Rows.Count, .Column).End(xlUp).Row
   
8.                 If Cells(I, 4) = Cells(.Row, 4) And Cells(I, 9) = Cells(.Row, 9) And I <> .Row Then
   
9.                     If Rng Is Nothing Then
   
10.                         Set Rng = Union(Cells(I, 4), Cells(I, 9))
    
11.                     Else
    
12.                         Set Rng = Union(Rng, Cells(I, 4), Cells(I, 9))
    
13.                     End If
    
14.                 End If
    
15.             Next
    
16.             If Not Rng Is Nothing Then
    
17.                 Set Rng = Union(Rng, Cells(.Row, 4), Cells(.Row, 9))
    
18.                 Rng.Select
    
19.                 MsgBox Cells(.Row, 4) & "  " & Cells(.Row, 9) & "  ¦³­«½Æ ?"
    
20.             End If
    
21.         End If
    
22.     End If
    
23.   End With
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# av8d
«ö¤UTABÁ䪺®É­Ôª½±µ¦V¥k¤@®æ©Î«ö¤UEnterÁ䪽±µ¦V¤U¤@®æ~¤£¥Î«ö¨â¦¸©O
¥i¦A¸Ô»¡²M·¡¶Ü?

GBKEE

¦^´_ 10# av8d
¤@¯ë§Ú­Ì¦b¥´¸ê®Æ¥´§¹«á~¿é¤JENTER·|¦V¤U¤@®æ ¬O³o¼Ë´N·|¤Þµo Worksheet_Change µ{§Çªº
¬°¦ó§A­n«ö2¦¸Eneter ¶Ç¤WÀɮ׬ݬÝ

GBKEE

¦^´_ 12# av8d
¦p¹Ï:  ¬O²Ä2¦¸ªºEneter ¶Ü?
¦p¦ó¼¶¼g¨âÄæ¦ì¸ê®Æ¦P®É­«½Æªº¸õµ¡´£¿ô  ³o¤£´N¬O§Aªº¸Ñµªªü

¤U¸ü (26.96 KB)

2011-10-13 16:25

GBKEE

¦^´_ 14# av8d
­×§ï¦p¹Ï:

¤U¸ü (59.27 KB)

2011-10-17 14:24

GBKEE

¦^´_ 17# av8d
¬Oªü:
16ºO oobird¶Wª© ¤w¸Ñµª