[µo°Ý] ¦p¦ó¨Ì¦WºÙ§@¬°·j´M±ø¥ó,±N©Ò¦³²Å¦X¸ê®Æ¤@¨Ö¨q¥X¦bµù¸Ñ(­×§ï)

starry1314

·Q½Ð°Ý¦p¦ó¨Ì¦WºÙ§@¬°·j´M±ø¥ó«á©¹¥k¤@Äæ¨Ã±N©Ò¦³²Å¦X±ø¥ó¤@¨ÖÅã¥Ü¦bª`¸Ñ ¨Ì¦WºÙ ª`¸ÑÅã¥Ü ­¹§÷¤º®e.rar (32.36 KB)

¤U¸ü¦¸¼Æ: 8

2018-1-30 17:34

¦]¥Ø«eµ{¦¡½X¦b°µ¸ê®Æ­×§ïªº®É­Ô,»Ý­n¯S¦a¦bKEY¤@¦¸¦¹®æ¦¡ªº¸ê®Æ
§Æ±æ¥H­ì¥»¸ê®Æ®wªº®æ¦¡°µÅª¨ú,´N¤£¥Î¥t¥~¦bkey in¤@¦¸

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

½Æ»s¥N½X

starry1314

¤w¸Ñ¨M¡I
¨Ï¥Î¢á¢ß¢Ú¦A´`§ÇŪ¨ú

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

starry1314

¦^´_ 3# GBKEE


    ·PÁª©¤j,²¼ä¦³¤O °õ¦æ¤S¨³³t