返回列表 上一主題 發帖

autofilter問題

tryagaaa

帖子
5 
主題
3 
精華
0 
積分
8 
點名
0  
作業系統
WIN7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2015-10-6 
最後登錄
2020-3-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-15 10:12 | 只看該作者

autofilter問題

大家好~

我又有問題了


我利用下面的CODE當作搜索的對話窗

可是我只能設定三個變數 當我a b c d e f g 通通留著的時候 就找不到任何東西

可是當我把底下的
  1. Rng.AutoFilter Field:=19, Criteria1:=g
複製代碼
註解掉

只剩下隨意三組 才會找的到東西

請問是不是autofilter的函數只能吃三個criteria而已?

如果 我想要弄到七個 要怎麼下指令比較好?
  1.        With Sheets("工作表1")       '選定資料庫工作表
  2.         
  3.         Set Rng = .UsedRange    '所有資料範圍
  4.             If TextBox7.Text & TextBox8.Text & TextBox9.Text & TextBox10.Text & TextBox11.Text & TextBox12.Text & TextBox13.Text = "" Then
  5.                 MsgBox "請輸入關鍵字!"
  6.                
  7.             Else
  8.                     Sheets.Add after:=Sheets(Sheets.count)
  9.                   
  10.                     a = "*" & TextBox7.Text & "*"
  11.                     b = "*" & TextBox8.Text & "*"
  12.                     c = "*" & TextBox9.Text & "*"
  13.                     d = "*" & TextBox10.Text & "*"
  14.                     e = "*" & TextBox11.Text & "*"
  15.                     f = "*" & TextBox12.Text & "*"
  16.                     g = "*" & TextBox13.Text & "*"
  17.                     
  18.                     Rng.AutoFilter Field:=3, Criteria1:=a
  19.                     Rng.AutoFilter Field:=4, Criteria1:=b
  20.                     Rng.AutoFilter Field:=5, Criteria1:=c
  21.                     Rng.AutoFilter Field:=6, Criteria1:=d
  22.                     Rng.AutoFilter Field:=8, Criteria1:=e
  23.                     Rng.AutoFilter Field:=18, Criteria1:=f
  24.                     Rng.AutoFilter Field:=19, Criteria1:=g
  25. end with
複製代碼
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-10-15 17:13 | 只看該作者
回復 1# tryagaaa
找不到任何東西， 表示沒有一筆資料同時符合這7個條件
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

tryagaaa

帖子
5 
主題
3 
精華
0 
積分
8 
點名
0  
作業系統
WIN7 
軟體版本
2010 
閱讀權限
10 
註冊時間
2015-10-6 
最後登錄
2020-3-16 
3#
發表於 2015-10-16 08:55 | 只看該作者
回復 2# stillfish00


   可是我只有一個textbox裡面有給字

其他的都是空的耶0.0

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2015-10-16 09:20 | 只看該作者
回復 3# tryagaaa
加個等號看看
g = "=*" & TextBox13.Text & "*"
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
5#
發表於 2015-10-16 09:44 | 只看該作者
本帖最後由 准提部林 於 2015-10-16 09:46 編輯

回復 3# tryagaaa


g = "*" & TextBox13.Text & "*"　型態為〔文字〕，若此欄內容皆為〔數值〕，當然篩不到！

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題