ＶＢＡについての質問です。日付を条件に入れて行削除をしたいのですが、うまくいきません。

VBAの初心者です。よろしくお願いします。日付の条件を入れて行を削除したいと考えていますが、エラーになります。何故でしょうか？
コードは以下のようにしています。
よろしくお願いします。
Sub 日付条件で行削除()
Dim hiduke As Double
Set hiduke = "2009/4/30"
　 For i = 16 To 12 Step -1
If Cells(i, "a") <= hiduke Then
Rows(i).Delete
End If
Next
End Sub

No.1 ベストアンサー 回答者： 082 回答日時： 2009/05/21 22:31

以下の２つを修正したら、私の環境では、動きましたよ～

(1)Dim hiduke As Double⇒Dim hiduke As Date
　Double型でなくDate型で定義します。

(2)Set hiduke = "2009/4/30"⇒hiduke = "2009/4/30"
　Setは型がObject型の時に使用します。

この回答へのお礼

さっそく回答いただき、ありがとうございました。
やってみたらちゃんと動きました。
もっと勉強します。

お礼日時：2009/05/21 22:44

No.2 回答者： noname#99913 回答日時： 2009/05/21 22:36

3行目を次のようにしてください。

hiduke = DateValue("2009/4/30")

この回答へのお礼

さっそく回答いただきありがとうございました。
まだ理由は理解できていないのですが、勉強していきます。

お礼日時：2009/05/21 22:46