mj0917m

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 17
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2015-5-18
最後登錄: 2018-2-10

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-3-13 21:46 | 只看該作者

輸入關鍵字即可找到資料

請教各位高手
由於工作上的關係
需要再A2欄位中輸入關鍵字
查詢到需要的資料，如附圖所示
先前有爬文是做看看，但一直都弄不出來
希望各位大大可以直接提供教學檔案給我
感激不盡 ^ ^

圖片1.jpg (112.49 KB)

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2016-3-14 06:52 | 只看該作者

大概是這樣
C5 =MATCH("*"&A5&"*",Sheet2!B:B,)
B5 =INDEX(Sheet2!A:A,C5)
公式往下複製

"*"&A5&"*" 表示 MATCH 使用模糊查詢，只要字串中有A5就行，*字元表示為任意字元都可以

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

mj0917m

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 17
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2015-5-18
最後登錄: 2018-2-10

論壇贊助勳章

3^#

發表於 2016-3-14 22:29 | 只看該作者

謝謝 ML089的方法提供,
但還是用不出來耶!
可否詳細說明呢?謝謝

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2016-3-15 18:11 | 只看該作者

本帖最後由 ML089 於 2016-3-15 18:12 編輯

回復 3# mj0917m

公式簡單，INDEX、MATCH函數說明按F1就可以了解
重點模糊查詢使用 *

不知道還要了解甚麼?
要不要傳檔上來，看看你做錯在哪裡

不好意思，我給你的是公式，不是VBA程式

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2016-3-21 14:48 | 只看該作者

回復 1# mj0917m

請詳細敘述說明問題所想要得結果

給你個提示：

Application.DisplayAlerts = False '提示取消
Application.ScreenUpdating = False '螢幕更新取消
Sub A()
'str = "內"
'str3 = "年"
'Cells(1, 15) = "搜尋目標源"
'Cells(1, 16) = "判斷是否找到"
'Cells(1, 17) = "關鍵字位置"
For asy = 2 To ActiveSheet.Range("b1").CurrentRegion.Rows.Count
Cells(asy, 15) = Cells(asy, 2)
For ahs = 94 To 99
Next ahs
Next asy
For i = 2 To ActiveSheet.Range("a2").CurrentRegion.Rows.Count
If Mid(Cells(i, 1), 1, 3) = "099" Or Mid(Cells(i, 1), 1, 2) = "99" Then
If (InStr(1, 工作表1.Cells(i, 1), "內") >= 1) Then
工作表1.Cells(i, 7) = "find"
工作表1.Cells(i, 11) = InStr(工作表1.Cells(i, 1), "內")
s = s + 1
End If
End If
Next
工作表1.Cells(i, 8) = "find"
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

mj0917m

小學生 Rank: 1

帖子: 12
主題: 5
精華: 0
積分: 17
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2015-5-18
最後登錄: 2018-2-10

論壇贊助勳章

6^#

發表於 2016-3-25 16:41 | 只看該作者

回復 1# mj0917m

表格.rar (7.81 KB)
不好意思，最近工作較忙，
小弟的訴求如下
需要再A2藍色欄位中輸入關鍵字
下面欄位即可跳出查詢到需要的資料，檔案如附件
煩請各位大大指導該如何製作或是可以直接提供教學檔案給我
感激不盡 ^ ^

TOP

clio

中學生 Rank: 2

帖子: 132
主題: 31
精華: 0
積分: 167
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2011-4-14
最後登錄: 2024-2-28

2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章

7^#

發表於 2016-3-25 17:01 | 只看該作者

我還無法下載妳的檔案，只能照字面去分析妳要的，我想用這個公式應該可以
=IF(ISERROR(MATCH("*"&A2&"*",B:B,0)),"查無資料",INDEX(B:B,MATCH("*"&A2&"*",B:B,0)))
也會根據妳在A2欄位輸入的字，去B:B這邊去尋找有相同內含值的，但是他只能跑出第一筆被找到的值，不知道這個是不是妳要的答案

clio

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2016-3-27 15:57 | 只看該作者

回復 6# mj0917m

ALT+F11 移到工作表一的程式內把以下程式碼貼上

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ss As String: ss = [a2]
For iui = 5 To 11
If Range("a" & iui).Value = ss Then [b2:d2] = Range("b" & iui, "d" & iui).Value
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

學到老死

中學生 Rank: 2

帖子: 44
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: Window 8
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-8-15
最後登錄: 2017-4-18

9^#

發表於 2016-3-27 19:48 | 只看該作者

猜想樓主是想把A2的欄位當成奇摩雅虎的搜尋"產品名"，再output成msgbox("編號")("放置位置")("備註")

TOP

學到老死

中學生 Rank: 2

帖子: 44
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: Window 8
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2015-8-15
最後登錄: 2017-4-18

10^#

發表於 2016-3-27 20:29 | 只看該作者

小的提供這個函數lookup給樓主參考，並提供相關教學影片如下，謝謝。

https://www.youtube.com/watch?v=Q32syItTv8Q

另外方才提供的msgbox想法，要使用到VBA程式碼，這可能要請樓上各位大大解惑了，小的也想嘗試寫看看，只是要一段時間，才剛起步學，不好意思啦。

TOP