1

データベースからの出力である日付の列があります。この日付をフィルタリングするマクロがあり、null を除く現在の日付から 14 日より古いすべての日付を表示することを目的としています。フィルターを適用すると、シート全体がフィルター処理され、何も表示されません。- 14 I do get date を外すと、alt a、e、f を使用して、列が正しい形式であることを確認しましたが、うまくいきませんでした。

ここに私のコードスニペットがあります:

ActiveSheet.UsedRange.AutoFilter Field:=34, Criteria:="<>NULL", _
Operator:=xlAnd, Criteria2:="<" & Now()-14

に変更してみcriteria2ました"<" & Date - 14 & "# 00:00:00 AM#"

助けてください

4

1 に答える 1

1

これを試して

Criteria:="<>NULL"に変更Criteria1:="<>NULL"

ファローアップ

見出しが行1にないため、コードは機能していませんでした。正確な範囲が指定されると、コードは機能し始めました。

Option Explicit

Sub Sample()
    Dim lRow As Long

    lRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

    ActiveSheet.AutoFilterMode = False

    ActiveSheet.Range("$A$2:$BV$" & lRow).AutoFilter Field:=34, Criteria1:="<>NULL" _
    , Operator:=xlAnd, Criteria2:="<" & Format(Date - 14, "0")
End Sub
于 2012-05-21T15:17:04.497 に答える