搜尋 Excel檔案、活業簿多筆關鍵字，再多筆"完整"列出

webbliu

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;生物

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

謝謝各位大大~

傻超超

回復 5# Hsieh


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

jackson7015

回復 13# Hsieh

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

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

Hsieh

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range, Rng As Range
   
3. If Target.Column = 1 Then
   
4. With Sheets("綜合資料庫")
   
5. For i = 1 To .UsedRange.Rows.Count
   
6.    Set A = .UsedRange.Rows(i).Find(Target)
   
7.    If Not A Is Nothing Then
   
8.      If Rng Is Nothing Then
   
9.      Set Rng = .UsedRange.Rows(i)
   
10.      Else
    
11.      Set Rng = Union(Rng, .UsedRange.Rows(i))
    
12.      End If
    
13.     End If
    
14. Next
    
15. End With
    
16. End If
    
17. Application.EnableEvents = False
    
18. If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1) Else Target.Offset(, 1).Resize(, 50) = ""
    
19. Application.EnableEvents = True
    
20. End Sub

複製代碼

回復 12# jackson7015

jackson7015

回復 5# Hsieh
想請問Hsieh版大

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

是否有哪裡需要做更正
查詢綜合資料庫.rar (20.22 KB)

下載次數: 17

2012-4-24 16:47

register313

回復 9# mchan2k
回復 10# ericsm77

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

ericsm77

回復 5# Hsieh

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

mchan2k

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

b9208

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

webbliu

回復 6# Hsieh


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