- 帖子
- 5
- 主題
- 3
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2010
- 閱讀權限
- 10
- 註冊時間
- 2015-10-6
- 最後登錄
- 2020-3-16
|
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
|
|
發表於 2015-10-15 10:12
| 
