webbliu

中學生 Rank: 2

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 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;生物

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

謝謝各位大大~

樓主熱帖

傻超超

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
來自: 香港
註冊時間: 2014-1-4
最後登錄: 2014-1-4

15^#

發表於 2014-1-4 13:25 | 只看該作者

回復 5# Hsieh

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

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

14^#

發表於 2012-4-26 08:55 | 只看該作者

回復 13# Hsieh

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 102
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-3

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 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