GBKEE

¦^´_ 2# starry1314

1. Option Explicit
   
2. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
3.     Dim xF As Range, St As String
   
4.     With Target.Item(1)
   
5.         If .Column <> 3 Then Exit Sub
   
6.         Cancel = True
   
7.         .ClearComments
   
8.         Set xF = Sheets("µæ³æ(¤Å°Ê)").[B:B].Find(.Value, Lookat:=xlWhole)
   
9.         If Not xF Is Nothing Then
   
10.             .NoteText xF & "," & xF(1, 2).Text
    
11.             St = xF(1, 2)
    
12.             Do
    
13.                 Set xF = Sheets("µæ³æ(¤Å°Ê)").[B:B].FindNext(xF)
    
14.                 If xF(1, 2) = St Then Exit Do
    
15.                 .NoteText .NoteText & Chr(10) & xF & "," & xF(1, 2).Text
    
16.             Loop
    
17.             .Comment.Visible = True
    
18.         End If
    
19.     End With
    
20. End Sub

½Æ»s¥N½X