- 帖子
- 2808
- 主題
- 10
- 精華
- 0
- 積分
- 2864
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-5-10
|
2#
發表於 2016-1-20 21:03
| 只看該作者
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 |
|
發表於 2016-1-20 17:38
| 
