標題: [發問] 如何依名稱作為搜尋條件後往右一欄並顯示在注解 [打印本頁]

---

作者: starry1314    時間: 2016-1-20 17:38     標題: 如何依名稱作為搜尋條件後往右一欄並顯示在注解

本帖最後由 starry1314 於 2016-1-20 17:41 編輯

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

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



[attach]23145[/attach]
[attach]23147[/attach]

---

作者: 准提部林    時間: 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

---

作者: starry1314    時間: 2016-1-21 11:27

回復 2# 准提部林


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

---

作者: starry1314    時間: 2016-11-4 09:15

本帖最後由 starry1314 於 2016-11-4 09:28 編輯

回復 2# 准提部林


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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)