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

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

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

2^#

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

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

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

3^#

發表於 2011-5-10 15:16 | 顯示全部帖子

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

回復 5# GBKEE

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

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

附上測試後的資料夾

能.rar (25.92 KB)

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

帖子: 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 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

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

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

5^#

發表於 2011-5-10 17:27 | 顯示全部帖子

回復 9# GBKEE

1.當然沒動作XD!! 因為不知道要怎寫所以 ... 不過現在已經解決了謝謝
3.那個原始碼是套用大大您的可是剛有試驗過不能不過後來有新增我列的兩行就OK了...就是sheet1 變成 TEXT名稱 (不知道哪出錯-0-)
4.了解那行的意思了... 謝謝...

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

帖子: 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-11 08:05 | 顯示全部帖子

這些是以大大的程式碼加以延伸的..

Sub 按鈕5_Click()
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
Sheets("Sheet1").Select
Sheets("Sheet1").Name = Sh.TextBox1
End With
End Sub

複製代碼

回復 11# GBKEE

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

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

7^#

發表於 2011-5-11 10:35 | 顯示全部帖子

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

End Sub[/code]回復 13# GBKEE
剛剛發現我那兩行位置有打錯= =....(應該是後來我又亂改沒注意到抱歉ˊˋ)
原始碼差別已經附加檔案

以下是兩者的代碼

台灣的部份
Sub 按鈕5_Click()
Dim Sh As Object

On Error Resume Next

Set Sh = ThisWorkbook.Sheets(1)

With Workbooks.Add(xlWBATWorksheet)
      Sheets("sheet1").Select
      Sheets("sheet1").Name = Sh.TextBox1 ' 新增的那個檔案內的名稱為 TEXT的字眼
      Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]

      .SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1

      .Close 0

End With

End Sub

美國的部份
Sub 按鈕5_Click()
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
      ' Sheets("Sheet1").Select
      ' Sheets("Sheet1").Name = Sh.TextBox1
End With

End Sub

附加檔案內有兩個 TXT 和 EXCEL檔案  分別為美國和台灣

查詢比對.rar (10.14 KB)

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

帖子: 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-11 11:52 | 顯示全部帖子

回復 15# GBKEE

多謝指導><
習慣性都會多指定那個...