[[20070213111546]]　『データの自動削除』（忍者）　ページの最後に飛ぶ

『データの自動削除』（忍者）

すいません、お尋ねします。。

今食品の賞味期限をデータ管理化しようとしているんですが、データ量が膨大になることが予測されるため、古いデータについては、一定の条件を満たすと自動削除するような関数がないかと思っています。

具体的には、Ａという商品の賞味期限が２月１５日だとします。
今日は２月１３日ですが、２月１５日を過ぎた時点で、該当商品を撤去。
２月１６日時点で、該当商品は撤去をしたので、２月１５日の賞味期限データが古くなったので、それを自動消去したいです。

ＥＸ

 　　Ａ　　　　　　Ｂ
 1　賞味期限日　　商品名
 2　２月１５日　　幕の内弁当

１６日になったら、２列目を自動削除したいです。

 関数というのは入力された場所で計算をするものです。
何かの条件で勝手にセルを削除したり、また、他のセルへデータを書き込んだり、
また、自分自身を消してしまったりということはしません。
　
そういう忍術のようなことはマクロに任せます。
 Sub TEST20070213()
     Rem Sheet1のA列で"今日"より古い日付がある行を削除
     With Worksheets("sheet1")
         .Range("A1").AutoFilter field:=1, Criteria1:="<" & Date
         .Range("2:" & .Rows.Count).SpecialCells(xlCellTypeVisible).Delete
         .AutoFilterMode = False
     End With
 End Sub
　
Alt+F11
挿入＞標準モジュール　で上記コードを貼り付け、
Alt+QでExcelに戻り、Alt+F8でTEST20070213を実行。
有無を言わせず削除するので新規ブックなどへデータコピーしたものでお試し下さい。
(みやほりん)(-_∂)b

コメント返信：

[ 一覧(最新更新順) ]

[[20070213111546]] 『データの自動削除』（忍者） ページの最後に飛ぶ

[[20070213111546]]　『データの自動削除』（忍者）　ページの最後に飛ぶ