- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
12#
發表於 2011-7-21 17:02
| 只看該作者
本帖最後由 GBKEE 於 2011-7-21 17:04 編輯
回復 11# play9091
沒問題, 這樣進階篩選對阿.
工作表函數 ISLOGICAL 參照的值是邏輯值 傳回 TRUE ,E4 傳回 為TRUE 或FALSE 同樣是邏輯值,
=IF(ISLOGICAL(E4)," & "" & ",A10)" 永遠傳回 "" 這公式是誤打誤撞的- Sub ttt()
- Sheets("Sheet1").Range("E3") = ""
- '或 Sheets("Sheet1").Range("E3") = "ABC"
- ' 進階篩選 : 篩選準則 是計算是準則(條件裡有計算公式) , 準則欄位: 不可是資料庫內的欄位 (可以是空白欄位)
- '計算是準則 如E4= A10 是篩選不到資料
- Sheets("Sheet1").Range("E4").Value = "=AND(TEXT(RIGHT(A11, 8), ""hh:mm:ss"") >= ""02:00:00"",TEXT(RIGHT(A11, 8), ""hh:mm:ss"") <= ""21:30:00"")"
- Range("A10").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
- Range("E3:E4"), Unique:=False
- End Sub
複製代碼 |
|