Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


57695 / 76732 ←次へ | 前へ→

【23771】Re:今日よりも過去の日付を削除する
回答  ponpon  - 05/4/3(日) 21:31 -

引用なし
パスワード
    ▼経理課手形大量発行担当 さん:
 ponponです。こんばんは。
オートフィルターを使ってやってみました。
一行目には、見出しが入っているものとし、データは2行目からとします。
また、sheetは、アクティブになっているものとします。


>Eの列に様々な日付が入っております(例:2010/3/31という形式で)。
>もし、今日よりも過去の日付が存在したならば、その行を削除して上へ詰めたいとき、マクロはどうしたらよいでしょうか。
>よろしくお願いします。

Sub test()
  Dim FilterRng As Range
  
  Set FilterRng = Range("E1").CurrentRegion
    ’フィルターをかける範囲は、"E1"のCurrentRegionとします
  With FilterRng
    .AutoFilter field:=5, Criteria1:="<" & DateValue(Now)
    ’A列からデータがあるとするのでE列は5番目、今日より前
    Application.DisplayAlerts = False
    .SpecialCells(xlCellTypeVisible).Delete
    Application.DisplayAlerts = True
  End With
End Sub


1 hits

【23763】今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/3(日) 16:25 質問
【23764】Re:今日よりも過去の日付を削除する IROC 05/4/3(日) 17:03 回答
【23771】Re:今日よりも過去の日付を削除する ponpon 05/4/3(日) 21:31 回答
【23774】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/3(日) 23:21 質問
【23775】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 0:08 回答
【23805】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/4(月) 22:37 発言
【23809】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 22:59 回答
【23810】Re:今日よりも過去の日付を削除する ウッシ 05/4/4(月) 23:09 回答
【23815】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 23:35 質問
【23816】Re:今日よりも過去の日付を削除する ウッシ 05/4/4(月) 23:46 回答
【23817】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 23:57 発言
【23811】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/4(月) 23:09 お礼
【23772】Re:今日よりも過去の日付を削除する ちゃっぴ 05/4/3(日) 23:00 回答
【23777】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 1:57 質問
【23778】Re:今日よりも過去の日付を削除する ちゃっぴ 05/4/4(月) 2:21 回答
【23779】Re:今日よりも過去の日付を削除する ちゃっぴ 05/4/4(月) 2:35 回答
【23795】Re:今日よりも過去の日付を削除する ponpon 05/4/4(月) 18:20 発言
【23786】Re:今日よりも過去の日付を削除する Kein 05/4/4(月) 12:33 回答
【23808】Re:今日よりも過去の日付を削除する 経理課手形大量発行担当 05/4/4(月) 22:52 お礼
【23813】Re:今日よりも過去の日付を削除する Kein 05/4/4(月) 23:34 回答

57695 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free