[算表] 進階篩選問題

[MAGICXX (逢甲阿法)]

軟體:EXCEL

版本:2010


大家午安

我現在想要利用進階搜尋的方式讓他幫我把資料複製到另一張工作表裡面

因為我是用VBA介面讓使用者輸入關鍵字

讓他有三個關鍵字下去查詢

所以讓他先把range放進新作出來的表的最上面

Sheets.Add after:=Sheets(Sheets.count)

Cells(1, 1) = ComboBox1.Text
Cells(1, 2) = ComboBox2.Text
Cells(1, 3) = ComboBox3.Text
Cells(2, 1) = TextBox7.Text
Cells(2, 2) = TextBox8.Text
Cells(2, 3) = TextBox9.Text


接著這樣比較偷吃步一點 因為我在裡面是全部都找

然後把找到的整ROW複製到新的那個工作表裡面

而不是專注於哪一個欄位下去找

所以我用的是下面的語法

Sheets("工作表1").Range("A:AN").AdvancedFilter _
 Action:=xlFilterCopy, _
 CriteriaRange:=Sheets(Sheets.count).Range("A2:C2"), _
 copytorange:=Sheets(Sheets.count).Range("A4"), _
 unique:=False

這邊問題來了

我現在不管輸入甚麼字 他都只會選出第一行跟第二行的字來

即使我輸入的是資料裡面有的關鍵字 還是一樣甚麼也跑不出來...

請問我的語法哪邊有錯了@@?



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.83.60.81
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1441258808.A.28C.html
※ 編輯: MAGICXX (111.83.60.81), 09/03/2015 13:40:19
→ soyoso: criteriarange的準則範圍是否少含了表頭呢？
→ MAGICXX: 不含表頭 A2:C2 是我上面請使用者輸入的資料
→ MAGICXX:  cells(2,1)~cells(2,3)
→ soyoso: 使用上或是查到的範例都是有含表頭來進行advancedfilter
→ soyoso: 進階篩選的
→ soyoso: 另請問原po，不含表頭條件範例，這樣的寫法的參考出處是？
→ soyoso: 想說寫法上沒看過想學習或是測試看看