ＶＢＡ（Excel 2003）の行削除に関する質問です。

質問

初歩的な質問で申し訳ありません。

Ａ Ｂ Ｃ
１ 日付 予定 …
２ （ ） （ ）
３ （ ） （ ）
４ （ ） （ ）
：
　上記ようなのスケジュール表で、Ａ列に「日付（書式：m"月"d"日"）」、
Ｂ列に「予定」を昇順で表示しています。
　そこで、マクロを用いて、昨日までの日付の行全体を削除して、「セル
Ａ２」に今日の日付が来るように（一番上に「今日」の日付）表示するに
は、どうすればいいでしょうか？

　尚、下記のようなコードのような場合、「セルＡ２」が昨日以前の日付
の場合有効ですが、「セルＡ２」が既に「今日」の日付になっている状態
でマクロを実行すると、表示がずれてしまいます。　これでは、「起動時
にマクロ実行」の設定の場合、同じ日に２回目以降エクセルを起動する
と、問題が生じてしまいます。
　「起動時にマクロ実行」の設定で、同じ日に複数回エクセルを起動する
という前提でお願いします。

*************************************************************
Private Sub Workbook_Open()
削除行数 = WorksheetFunction.CountIf([a:a], "<" & Format(Date))
Rows("2:" & 削除行数 + 1).Delete
End Sub
*************************************************************

回答No.2

hige_082

こんな方法もあります

Private Sub Workbook_Open()
If Range("a2").Value = Date Then Exit Sub　　'追加行
削除行数 = WorksheetFunction.CountIf([a:a], "<" & Date)
Rows("2:" & 削除行数 + 1).Delete
End Sub

参考まで

お礼

hige_082さん

ご回答ありがとうございます。
勉強になります。

回答No.1

myRange

COUNTIFの結果（削除行数）を判断してやればいいでしょう。

また、Format(Date)のFormatはなくてもいいと思いますが。。。
--------------------------
　削除行数 = WorksheetFunction.CountIf([a:a], "<" & Date)
　　　If 削除行数 > 0 Then
　　　　　Rows("2:" & 削除行数 + 1).Delete
　　　End If
-------------------------

以上です。

お礼

myRangeさん
早速回答頂きありがとうございます。
頂いたコードで問題なく表示できました。