麻辣家族討論版版 - Powered by Discuz! Board

標題: 搜尋 Excel檔案、活業簿多筆關鍵字，再多筆"完整"列出 [打印本頁]

作者: webbliu 時間: 2011-1-26 07:29 標題: 搜尋 Excel檔案、活業簿多筆關鍵字，再多筆"完整"列出

Dear 各位大大們好，
小的虛心受教來了....很抱歉不久前才發一篇搜尋多筆關鍵字的帖。
現在有新的想法想請教各位大大們。
請不吝指教，謝謝。

我舉一範例，以下是某活業簿的sheet1!

id	name	address	car	age	keywords
1	陳冠希	荷蘭	y	29	unknow;star
2	大頭王	月球	y	35	big;head
3	泥鰍王	濕地	n	5	water;生物
4	火雲邪神	火星	y	100	movie;功夫

假設我開另外一檔案，或是同一活頁簿的的sheet2!

在欄位(A1) 輸入 "荷蘭"，就會開始搜尋上述表格。
於(B1) 開始列出表格1的整列完整資料

在欄位(A2)輸入 "生物"，就會開始搜尋上述表格。
於(B2) 開始列出表格1的整列完整資料

希望能把搜尋的關鍵字加入顏色。

結果範例如下:

荷蘭	1	陳冠希	荷蘭	y	29	unknow;star
生物	3	泥鰍王	濕地	n	5	water;生物

依此類推的多關鍵字搜尋，並且列出完整資料。
希望各位大大協助，感激萬分~!!

謝謝各位大大~

作者: kimbal 時間: 2011-1-26 21:47

Dear 各位大大們好，
小的虛心受教來了....很抱歉不久前才發一篇搜尋多筆關鍵字的帖。
現在有新的想法想 ...
webbliu 發表於 2011-1-26 07:29

簡單來做,可以用輔助欄再加上自動篩選就可
[attach]4540[/attach]

作者: webbliu 時間: 2011-1-27 02:33

回復 2# kimbal

謝謝大大的指導，這個方式很方便也容易!
不妙的是我的來源檔案有上千筆，快破萬了。

篩選後瀏覽不易。所以才希望能列出有關鍵字的_完整列_的資料。
還是很感謝大大您的指導! 感恩~

作者: webbliu 時間: 2011-1-29 19:33

回復 4# brabus

Dear 大大，
如果我只搜尋關鍵字那一欄位呢?
這樣比較vlookup了吧!? keyword~

謝謝大大~

作者: Hsieh 時間: 2011-1-29 20:12

本帖最後由 Hsieh 於 2011-1-29 20:52 編輯

回復 5# webbliu
以同一活頁作範例
在工作表2的A欄輸入關鍵字試試
[attach]4580[/attach]
另外進階篩選也是不錯的選擇
[attach]4581[/attach]

作者: brabus 時間: 2011-1-29 20:40

高手就是高手
我只想到用vlookup
高手想的是用find
學到了
謝謝

作者: webbliu 時間: 2011-2-8 00:09

回復 6# Hsieh

謝謝版主，進階篩選真的很方便!

作者: b9208 時間: 2011-2-8 20:01

回復 6# Hsieh
非常好用的程式碼
下載收集
謝謝版主

作者: mchan2k 時間: 2011-4-15 17:53

我想問，如果在c6 也出現荷蘭這個字
結果會是怎樣??

作者: ericsm77 時間: 2012-3-26 18:57

回復 5# Hsieh

想請問那如果今天有兩個著荷蘭的人時會出現哪一個

作者: register313 時間: 2012-3-26 23:31

回復 9# mchan2k
回復 10# ericsm77

1.進階篩選是把所有符合篩選條件的紀錄都篩選出來
2.VBA使用FIND指令,也可把所有符合條件的都找出來

作者: jackson7015 時間: 2012-4-24 16:47

回復 5# Hsieh
想請問Hsieh版大

我使用在我的資料庫後,會出現偵測錯誤
且儲存格的格式化條件也有錯誤
而在刪除查詢資料時,會出現巨集程式錯誤

是否有哪裡需要做更正
[attach]10633[/attach]

作者: Hsieh 時間: 2012-4-24 17:47

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, Rng As Range
If Target.Column = 1 Then
With Sheets("綜合資料庫")
For i = 1 To .UsedRange.Rows.Count
Set A = .UsedRange.Rows(i).Find(Target)
If Not A Is Nothing Then
If Rng Is Nothing Then
Set Rng = .UsedRange.Rows(i)
Else
Set Rng = Union(Rng, .UsedRange.Rows(i))
End If
End If
Next
End With
End If
Application.EnableEvents = False
If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1) Else Target.Offset(, 1).Resize(, 50) = ""
Application.EnableEvents = True
End Sub

複製代碼

回復 12# jackson7015

作者: jackson7015 時間: 2012-4-26 08:55

回復 13# Hsieh

感謝Hsieh版主
程式可以正常使用了

目前還在測試中，若有其他問題再回報給您

作者: 傻超超 時間: 2014-1-4 13:25

回復 5# Hsieh

不好意思版主大大,我正在尋找有關find的資料,有幸來到這個壇但是注冊了未能下載附件,不知版主大大可不可以E給我呢??:P
[email protected]

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