[算表] VBA以其他活頁簿儲存格為篩選條件

[jumbotest (coup de foudre)]

軟體:EXCEL

版本:20XX



我想篩選A檔案的13列C欄，

條件為B檔案工作表4的儲存格B5或B6，

試寫如下：


Sub 巨集()

    Rows("13:13").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$13:$L$116").AutoFilter Field:=3, Criteria1:= _
        Workbooks("B.xlsm").Sheets("工作表4").Range("b5"),
        Operator:=xlOr, Criteria2:=Workbooks("B.xlsm").Sheets("工作表4").Range
        ("b6")

End Sub


不過出現錯誤訊息QQ

請問語法該怎麼寫才正確呢?

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.163.177.212
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1513343618.A.E1D.html
→ soyoso: 什麼錯誤訊息。陣列索引超出範圍的話，表示b.xlsm未開啟
您好，錯誤訊息經您提示已經排除了，但是篩選不出結果QQ

我的B.xlsm的工作表4的b6如圖1
https://imgur.com/a/FVlre
(本例中篩選條件為b6"106/12/19"以及不重要的b5)

巨集執行前的檔案畫面如圖2
https://imgur.com/a/ePHXO
(13列C欄包含"106/12/19"儲存格)

巨集執行結果如圖3
https://imgur.com/a/KoCbt
(106/12/19並未被篩選出)
※ 編輯: jumbotest (1.163.177.212), 12/15/2017 23:16:52
=============================================================
更新：我好像找到關鍵了!
篩選條件的格式是eee/mm/dd
巨集以為是mm/dd/yyyy ...............
https://imgur.com/a/YAkee

請問要怎麼修正呢?
※ 編輯: jumbotest (1.163.177.212), 12/15/2017 23:21:53
→ soyoso: 以format來修改，看應用於原po實際檔案內，是否可篩選出
→ soyoso: 測試以回文方式應是可行https://i.imgur.com/45NrqDI.png
感謝提點，GOOGLE FORMAT之後弄出來惹
https://imgur.com/a/WVmWh
不過有兩個小問題
1.為了讓畫面簡潔，我用dim r as寫在前面卻出現缺少with變數錯誤訊息?
2.format eee/dd/mm會錯，改成ee/dd/mm或e/dd/mm就可以了，原因不明 @@
※ 編輯: jumbotest (1.163.177.212), 12/15/2017 23:44:27
→ soyoso: 如as range要以set來指定範圍到變數