Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。
EXCEL篩選一定要選黑三角形再選自訂嗎??
2003版黑色三角形很小,又要選自訂才可輸入,而且又要選包含或*---* !!
可以怎麼簡化呢??
或用巨集執行前段步驟,跳出輸入視窗-自行輸入編號enter後得到想要的包含結果,怎麼寫VBA??
我表達的不清楚!補充
工作表已經設好第10列自動篩選,想偷懶-篩選B10時用巨集執行上述方法,跳出輸入的BOX
輸入後ENTER自動篩選出想要的包含結果
PS:我是不是太異想天開了!!如果是!!潑個冷水吧!
AABB設為常數是什麼意思??是欄位嗎??
執行到AA = InputBox("up")---停下來,但是有跳出輸入的BOX了!!
我異想天開又期待!!請大大解救一下!!謝謝!!
http://www.funp.net/320374--%E6%B8%AC%E8%A9%A6%E7%...
可是像我上傳的圖片一樣用包含的方式嗎??而且第46列也一定要被選到!!不然我的自動登錄會失敗!!
如果EXCEL不能這樣處理,那我就要考慮大改我的其它巨集--就請冰大在回答區作答
PS:B43~B45這三格的 "." 不小心被我刪掉了!!謝冰大提醒!!
TO:冰大--SORRY-B46是"%"為了遮醜把他設為與底色同色,不是空列,其他看起來是是空列的,在B欄也有"."(除了B43~B45被我不小心刪掉),請冰大幫我補進去之後再測試,SORRY!!
B46若要改其他符號也OK
B10的篩選從8個字到20個字都有-所以要設包含(不必KEY20個字就可以篩選到想要的)
測試結果
輸入5A4-2174後出現--
執行階段錯誤'13':
型態不符合
結束 偵錯 說明
好神奇!!
為什麼先輸入任意9位數以下的數字(不含"-")-ENTER
會再跳出另一BOX--輸入5A4-2174就會篩選到
PS:不小心試到的!!
修改後沒有出現錯誤訊息,但是
輸入5A4-2174後-沒有得到篩選結果
跳出另一BOX後再輸入5A4-2174就可篩選出
另試--第一次的BOX直接按ENTER
跳出另一BOX後再輸入5A4-2174就可篩選出
請問第一次的BOX一定要存在嗎??
更正!!
要輸入2次5A4-2174才篩選得到
超厲害!!
謝謝冰大!!
請作答!!
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")
超過補充限制!!!
後段貼不上了!!
SORRY!!
局部-試過了OK!!
謝謝提醒!!
請作答!!
1 個解答
- 冰淇Lv 69 年前最佳解答
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