- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
[發問] 如何依名稱作為搜尋條件,將所有符合資料一併秀出在註解(修改)
本帖最後由 starry1314 於 2018-1-30 17:36 編輯
想請問如何依名稱作為搜尋條件後往右一欄並將所有符合條件一併顯示在注解
 依名稱 注解顯示 食材內容.rar (32.36 KB)
因目前程式碼在做資料修改的時候,需要特地在KEY一次此格式的資料
希望以原本資料庫的格式做讀取,就不用另外在key in一次
- 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
|
|
發表於 2018-1-30 17:35
| 
