標題:
autofilter問題
[打印本頁]
作者:
tryagaaa
時間:
2015-10-15 10:12
標題:
autofilter問題
大家好~
我又有問題了
我利用下面的CODE當作搜索的對話窗
可是我只能設定三個變數 當我a b c d e f g 通通留著的時候 就找不到任何東西
可是當我把底下的
Rng.AutoFilter Field:=19, Criteria1:=g
複製代碼
註解掉
只剩下隨意三組 才會找的到東西
請問是不是autofilter的函數只能吃三個criteria而已?
如果 我想要弄到七個 要怎麼下指令比較好?
With Sheets("工作表1") '選定資料庫工作表
Set Rng = .UsedRange '所有資料範圍
If TextBox7.Text & TextBox8.Text & TextBox9.Text & TextBox10.Text & TextBox11.Text & TextBox12.Text & TextBox13.Text = "" Then
MsgBox "請輸入關鍵字!"
Else
Sheets.Add after:=Sheets(Sheets.count)
a = "*" & TextBox7.Text & "*"
b = "*" & TextBox8.Text & "*"
c = "*" & TextBox9.Text & "*"
d = "*" & TextBox10.Text & "*"
e = "*" & TextBox11.Text & "*"
f = "*" & TextBox12.Text & "*"
g = "*" & TextBox13.Text & "*"
Rng.AutoFilter Field:=3, Criteria1:=a
Rng.AutoFilter Field:=4, Criteria1:=b
Rng.AutoFilter Field:=5, Criteria1:=c
Rng.AutoFilter Field:=6, Criteria1:=d
Rng.AutoFilter Field:=8, Criteria1:=e
Rng.AutoFilter Field:=18, Criteria1:=f
Rng.AutoFilter Field:=19, Criteria1:=g
end with
複製代碼
作者:
stillfish00
時間:
2015-10-15 17:13
回復
1#
tryagaaa
找不到任何東西， 表示沒有一筆資料同時符合這7個條件
作者:
tryagaaa
時間:
2015-10-16 08:55
回復
2#
stillfish00
可是我只有一個textbox裡面有給字
其他的都是空的耶0.0
作者:
stillfish00
時間:
2015-10-16 09:20
回復
3#
tryagaaa
加個等號看看
g = "=*" & TextBox13.Text & "*"
作者:
准提部林
時間:
2015-10-16 09:44
本帖最後由 准提部林 於 2015-10-16 09:46 編輯
回復
3#
tryagaaa
g = "*" & TextBox13.Text & "*" 型態為〔文字〕，若此欄內容皆為〔數值〕，當然篩不到！
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
