[發問] 如何依名稱作為搜尋條件後往右一欄並顯示在注解

starry1314

以 准提部林 版大 分享的檔案作為參照
目前功能
以C:P欄為作用範圍，點擊儲存格兩下後→以當前位置往右讀取資料
並且顯示在注解內

想修改為 讀取資料再另一工作表 且比對相同名稱后往右一欄(食材內容)
1.雙擊C欄 以點擊位置之名稱 比對 【菜單(勿動)】內 同名稱后 讀取往右一欄內容(食材內容)
2.且能適用於合併儲存格,或是解除合併 執行完工能之後 再進行合併

下載 (57.01 KB)

2016-1-20 17:37

依名稱 注解顯示 食材內容.rar (33.44 KB)

下載次數: 16

2016-1-20 17:39

准提部林

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

starry1314

回復 2# 准提部林


    謝謝版大的幫助....完全達到要求

starry1314

回復 2# 准提部林


    淮大,不好意思 遇到個問題
如果所準備調出的資料放在別的路徑上的xlsm檔案可否使用填寫路徑的方式呢?
因每月有近千個檔案 如果要修正變成要一一去修正裡面的資料庫的資料

有查到這篇文章
但是單一儲存格
http://forum.twbts.com/viewthread.php?tid=6163
如何套進上面程式碼就不了解了