[發問] 多筆EXCEL搜尋的用法[已解決 2011-05-11]

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-5-10 11:01 | 只看該作者

本帖最後由 GBKEE 於 2011-5-10 11:04 編輯

回復 1# mark15jill
需求說明：
1.想利用在text內輸入查詢的鄉鎮(如台灣 )  再按查詢查詢的結果從第三列(A3)開始將該資料列出來。
   如範例：要查詢台灣的話       (資料順序並非按照 123 這樣下去  有可能是跳號 20 25  30 27 等等。
你的檔案是簡略的範例請問:
1.要搜尋的檔案是同一目錄下的檔案嗎?  ,存檔在同一目錄下嗎?
2.資料號碼是找到台灣的列號嗎? 台灣同一列往右有資料嗎? 要一起抓嗎?
3.範例可以再實際些嗎?

Hsieh

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

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

3^#

發表於 2011-5-10 11:12 | 只看該作者

是要將各年度活頁簿中，每個工作表的I欄，符合關鍵字條件的資料全部找出來
然後把這些資料的出處資料另存活頁簿嗎?
實在看不懂你的範例，要如何與你的說明配合起來
請將各年度檔案填入數據
然後把想要的結果樣式做成工作表，再配合說明

學海無涯_不恥下問

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

4^#

發表於 2011-5-10 11:23 | 只看該作者

本帖最後由 mark15jill 於 2011-5-10 11:30 編輯

回復 2# GBKEE

抱歉是我表達不好
在這說一次..
再查詢的活頁簿內的 TEXT 輸入所要查詢的字樣
然後按下查詢的COMBO的按鈕
則將 97 98 99 年度所符合的地址(例如台灣字眼的) 列在 A3 那列 (相關的案例有重附上檔案)
列出的資料包含該資料的所有 “列資料 - 如第一筆的話就是在a3 b3 c3 d3 e3 這一列 ”
然後如果按下儲存的按鈕
就會將查詢的字樣儲存為新的活頁簿 (目錄路徑與查詢的目錄同一個) EXCEL檔案及活頁簿名稱為查詢的字樣
如查詢台灣
則台灣這個EXCEL名稱和活頁簿名稱均為台灣儲存路徑與 “查詢 EXCEL檔案” 同樣目錄
不曉得這樣是否比較清楚..

我在重附一份格式的資料(大概格式)

能.rar (29.55 KB)

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-5-10 14:54 | 只看該作者

回復 4# mark15jill

Private Sub 查詢()
Dim Text$, File$, TheSh As Object, Sh As Worksheet, Rng As Range, RngAddress$
With ThisWorkbook '程式碼置於查詢總表.xls
Set TheSh = .Sheets("查詢")
TheSh.UsedRange.Offset(2).Clear
File = Dir(.Path & "\*年度*.xls")
Do While File <> ""
With Workbooks.Open(.Path & "\" & File)
For Each Sh In .Sheets
Set Rng = Sh.Range("e:e").Find(TheSh.TextBox1, LookAt:=xlWhole)
If Not Rng Is Nothing Then
RngAddress = Rng.Address
With TheSh.Range("C" & Rows.Count).End(xlUp)
.Offset(1, -2) = File
.Offset(1, -1) = Sh.Name
End With
End If
Do While Not Rng Is Nothing
With TheSh.Range("C" & Rows.Count).End(xlUp)
.Offset(1).Resize(1, 6) = Sh.Range(Sh.Cells(Rng.Row, "A"), Sh.Cells(Rng.Row, "F")).Value
End With
Set Rng = Sh.Range("e:e").FindNext(Rng)
If RngAddress = Rng.Address Then Exit Do
Loop
Next
.Close 0
End With
File = Dir
Loop
End With
End Sub
Sub 存檔() '程式碼置於查詢總表.xls
Dim Sh As Object
On Error Resume Next
Set Sh = ThisWorkbook.Sheets(1)
With Workbooks.Add(xlWBATWorksheet)
Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
.SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1
.Close 0
End With
End Sub

複製代碼

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

6^#

發表於 2011-5-10 15:16 | 只看該作者

本帖最後由 mark15jill 於 2011-5-10 15:21 編輯

回復 5# GBKEE

GBKEE 大大不好意思剛剛測試
發現以下幾個問題
1.控制鈕變成無效 (僅能巨集控制)
2.存檔仍然有疑惑無存檔動作
3.如果條件改成美國的話 (預設是台灣) 就沒辦法有存檔的動作出現

順帶一問..
我那個按鈕弄對嗎= =!! 因為有ACTIVE 和另外一種我常常都會搞混

附上測試後的資料夾

能.rar (25.92 KB)

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-5-10 15:37 | 只看該作者

本帖最後由 GBKEE 於 2011-5-10 15:42 編輯

回復 6# mark15jill
1.控制鈕變成無效 (僅能巨集控制)
指定按鈕巨集請看如圖

Sub 存檔() -> 公用會顯示
Private Sub 查詢() -> 私用(Private)不會顯示
要用: 依樣畫葫蘆打上 Sheet1.查詢

2.存檔仍然有疑惑無存檔動作
目錄裡沒此檔案直接就存檔

3.如果條件改成美國的話 (預設是台灣) 就沒辦法有存檔的動作出現
存二次美國看看

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^#

發表於 2011-5-10 15:59 | 只看該作者

本帖最後由 mark15jill 於 2011-5-10 16:06 編輯

回復 7# GBKEE

1.兩個都沒內容+.+
Sub 按鈕5_Click()

End Sub
Sub 按鈕6_Click()

End Sub

2.已經解決無法存檔和無效問題QQ  謝謝您
剛剛把程式分開裝...
拆成兩部份丟去兩邊..

3.新增後的活頁簿名稱未改變.. 不過剛剛已經解決了..
原本是sheet1.  我多+了兩行..

      .Close 0
      Sheets("Sheet1").Select
      Sheets("Sheet1").Name = Sh.TextBox1

4.另外請問一下
如果那樣的話那是只要同一列的資料不管有多少都會列出來嗎??
因為我範例檔案只有到H欄位實際上卻是到Z欄位0.0..

再次感謝您  :lol