Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

Andy 發問時間: 電腦與網際網路軟體 · 9 年前

EXCEL篩選一定要選黑三角形再選自訂嗎??

2003版黑色三角形很小,又要選自訂才可輸入,而且又要選包含或*---* !!

可以怎麼簡化呢??

或用巨集執行前段步驟,跳出輸入視窗-自行輸入編號enter後得到想要的包含結果,怎麼寫VBA??

已更新項目:

我表達的不清楚!補充

工作表已經設好第10列自動篩選,想偷懶-篩選B10時用巨集執行上述方法,跳出輸入的BOX

輸入後ENTER自動篩選出想要的包含結果

PS:我是不是太異想天開了!!如果是!!潑個冷水吧!

2 個已更新項目:

AABB設為常數是什麼意思??是欄位嗎??

執行到AA = InputBox("up")---停下來,但是有跳出輸入的BOX了!!

我異想天開又期待!!請大大解救一下!!謝謝!!

3 個已更新項目:

謝謝冰大!!

測試有成功!!但我表達不完整-跟我的需求不大一樣!!

上傳一測試檔及一圖片--表達我的需求!!

拜託!!

http://www.funp.net/434753

4 個已更新項目:

http://www.funp.net/320374--%E6%B8%AC%E8%A9%A6%E7%...

可是像我上傳的圖片一樣用包含的方式嗎??而且第46列也一定要被選到!!不然我的自動登錄會失敗!!

如果EXCEL不能這樣處理,那我就要考慮大改我的其它巨集--就請冰大在回答區作答

PS:B43~B45這三格的 "." 不小心被我刪掉了!!謝冰大提醒!!

5 個已更新項目:

TO:冰大--SORRY-B46是"%"為了遮醜把他設為與底色同色,不是空列,其他看起來是是空列的,在B欄也有"."(除了B43~B45被我不小心刪掉),請冰大幫我補進去之後再測試,SORRY!!

B46若要改其他符號也OK

6 個已更新項目:

B10的篩選從8個字到20個字都有-所以要設包含(不必KEY20個字就可以篩選到想要的)

7 個已更新項目:

測試結果

輸入5A4-2174後出現--

執行階段錯誤'13':

型態不符合

結束 偵錯 說明

8 個已更新項目:

好神奇!!

為什麼先輸入任意9位數以下的數字(不含"-")-ENTER

會再跳出另一BOX--輸入5A4-2174就會篩選到

PS:不小心試到的!!

9 個已更新項目:

修改後沒有出現錯誤訊息,但是

輸入5A4-2174後-沒有得到篩選結果

跳出另一BOX後再輸入5A4-2174就可篩選出

另試--第一次的BOX直接按ENTER

跳出另一BOX後再輸入5A4-2174就可篩選出

請問第一次的BOX一定要存在嗎??

10 個已更新項目:

更正!!

要輸入2次5A4-2174才篩選得到

11 個已更新項目:

超厲害!!

謝謝冰大!!

請作答!!

12 個已更新項目:

Sub test()

Dim Af As AutoFilter

Dim strNo1$, strNo2 As String

Set Af = Worksheets("管制表").AutoFilter

If Not Af Is Nothing Then [A1].AutoFilter

strNo1 = InputBox("請輸入查詢號" & Chr(10) & "例: 0a0-0000")

13 個已更新項目:

超過補充限制!!!

後段貼不上了!!

SORRY!!

14 個已更新項目:

局部-試過了OK!!

謝謝提醒!!

請作答!!

1 個解答

評分
  • 冰淇
    Lv 6
    9 年前
    最佳解答

    Sub test()

    Dim Af As AutoFilter

    Set Af = Worksheets("GD").AutoFilter

    If Not Af Is Nothing Then [A1].AutoFilter

    [A1].AutoFilter field:=1, Criteria1:=">1000", Operator:=xlAnd, _

    Criteria2:="<9999"

    end sub

    2012-09-15 18:23:10 補充:

    前同

    Dim AA&, BB&

    AA = InputBox("up")

    BB = InputBox("down")

    Rows("10:10").AutoFilter

    Selection.AutoFilter Field:=2, Criteria1:=">" & AA, Operator:=xlAnd, _

    Criteria2:="<" & BB

    AABB設常數

    2012-09-16 11:47:55 補充:

    Dim AA&, BB& ==> 設定AA,BB為數值

    輸入數值,篩選範圍為介於AA~BB間的數值

    Dim AA$, BB$ ==> 設定AA,BB為文字

    輸入文字,篩選範圍為介於AA~BB間的文字

    ~前同為

    Sub test()

    Dim Af As AutoFilter

    Set Af = Worksheets("GD").AutoFilter

    If Not Af Is Nothing Then [A1].AutoFilter

    版主自行試試

    2012-09-17 21:52:02 補充:

    Dim strNo1&, strNo2 As String

    Dim strNo1$, strNo2 As String

    2012-09-17 23:08:53 補充:

    謝謝 版主

    ~

    Sub test02()

    Dim Af As AutoFilter

    Dim strNo1$, strNo2 As String

    Set Af = Worksheets("管制表").AutoFilter

    ' 如篩選存在,解除篩選

    If Not Af Is Nothing Then [A1].AutoFilter

    strNo1 = InputBox("請輸入查詢號" & Chr(10) & "例: 0A0-0000")

    '以第10列為篩選啟始

    Rows("10:10").AutoFilter

    '進行條件篩選

    Selection.AutoFilter Field:=2, Criteria1:="=*" & strNo1 & "*", Operator:=xlOr, _

    Criteria2:="=%"

    End Sub

還有問題?馬上發問,尋求解答。