­ã´£³¡ªL

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim xF As Range
With Target.Item(1)
¡@¡@¡@If .Column <> 3 Then Exit Sub
¡@¡@¡@Cancel = True
¡@¡@¡@If Not .Comment Is Nothing Then .ClearComments: Exit Sub
¡@¡@¡@If .Value = "" Then Exit Sub
¡@¡@¡@Set xF = Sheets("µæ³æ(¤Å°Ê)").[B:B].Find(.Value, Lookat:=xlWhole)
¡@¡@¡@If xF Is Nothing Then Exit Sub
¡@¡@¡@.NoteText xF & Chr(10) & xF(1, 2).Text
¡@¡@¡@.Comment.Visible = True
End With
End Sub