Excel 2003 マクロに関する質問です。


昨日以前の日付が入っているセルのみ「提出期限切れ」として、オートフィルタでソートしたいと考えております。
経験が浅いため、方法が分かる方がいらっしゃったらご回答お願いいたします。


ちなみに現在、昨日・本日・明日を下記のような方法でソートさせています。

▼「昨日提出」…昨日の日付が入っているセルのみソート
Sub 昨日提出()
Dim today As Date
today = Date - 1
Selection.AutoFilter Field:=14, Criteria1:=Format(today, "m月d日(aaa)")
End Sub

▼「本日提出」…昨日の日付が入っているセルのみソート
Sub 本日提出()
Dim today As Date
today = Date
Selection.AutoFilter Field:=14, Criteria1:=Format(today, "m月d日(aaa)")
End Sub

▼「明日提出」…昨日の日付が入っているセルのみソート
Sub 明日提出()
Dim today As Date
today = Date + 1
Selection.AutoFilter Field:=14, Criteria1:=Format(today, "m月d日(aaa)")
End Sub


どうぞ宜しくお願いいたします。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2012/04/12 11:40:54
  • 終了:2012/04/19 11:45:05

回答(0件)

回答はまだありません

  • id:taknt
    日付が文字列だったら 無理

    しかも 年が 入っていないようだったら 昨日以前かどうかなんて 判別できやしない。
  • id:ken3memo
    テストしていない のと、Format(today, "m月d日(aaa)")が気になったのでコメントで

    昨日がtoday = Date - 1でOKみたいなので、
    単純に"<" & todayとしてみては?

    Sub 昨日提出より前()
    Dim today As Date
    today = Date - 1
    Selection.AutoFilter Field:=14, Criteria1:="<" & today
    End Sub

    ↑で動くか、テストしてみてください。
    ※間違っていたらすみません。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません