我一直在嘗試撰寫一段相當簡單的代碼來根據當前日期動態過濾表中的日期。我在網上搜索了很多，但得到了相互矛盾的資訊，并且無法獲得任何作業。具體來說，我使用以下代碼（和變體）收到錯誤 438。
我是 VBA 的新手，正在自學，因此對任何基本錯誤表示歉意。
ActiveSheet.ListObjects.ListColumns(5).Range.AutoFilter Field:=5,Criteria1:=">=" & Date
我非常感謝任何幫助。
uj5u.com熱心網友回復：
自動過濾日期列
- 條件必須是一個字串：
Option Explicit
Sub FilterByToday()
Dim Crit1 As String: Crit1 = ">=" & Format(Date, "mm/dd/yyyy")
ActiveSheet.ListObjects("Table1").Range.AutoFilter 5, Crit1
End Sub
這對我不起作用，可能是因為我的日期分隔符是一個點，除非我更改
Crit1為：Crit1 = ">=" & Format(Date, "mm\/dd\/yyyy") ' note the backslashes
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/370750.html
下一篇：VBA日期范圍未過濾