VBA A1セルが空白になったら隣のセルも空白に

いつもお世話になります。
WINDOWS7 EXCELL2010 です。

A1セルに文字列で５桁のID番号を入力するとI4のセルに今日の日付が入るようにマクロを作っています。

このときA1セルをキーボードのBacksPaceでID番号を消してエンターキーを押した時にI4セルも空白にしたいと考えて下記のように作りましたが

If Range("A1") = “”
Range("$I$4") = "0000/00/00"
Else
Range("$I$4").ClearContents

上の構文が上手くゆかず困り果てました。
どのようにすればいいか御指導願えませんでしょうか。

参考に
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then Range("I4").Value = Date


If Range("A1") = “”
Range("$I$4") = "0000/00/00"
Else
Range("$I$4").ClearContents


End Sub

No.2 ベストアンサー 回答者： mt2008 回答日時： 2014/11/15 20:59

こんな感じで如何でしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address = "$A$1" Then
　　　　If Target.Value = "" Then
　　　　　　Range("I4").ClearContents
　　　　Else
　　　　　　Range("I4").Value = Date
　　　　End If
　　End If
End Sub

この回答へのお礼

早速の御指導を頂きありがとうございます。
上手くできました。
本当にありがとうございました。

お礼日時：2014/11/15 21:24

No.3 回答者： hallo-2007 回答日時： 2014/11/15 21:03

良くわからないのですが

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
　If Target.Value="" Then
Range("I4").Value = ""
Else
Range("I4").Value = Date
End If
End If
End Sub

この回答へのお礼

早速の御指導を頂きありがとうございます。
上手くできました。
本当にありがとうございました。

ベストアンサーはいつもの悩みの種でNo2の方と両方がうまくできました。
甲乙がつけがたいのですが独断と偏見で決めさせていただきました。

お礼日時：2014/11/15 21:29

No.1 回答者： High_Score 回答日時： 2014/11/15 20:52

誤　if Range("A1") = “”

正　if Range("A1") <> “”

この回答へのお礼

早速ご指導いただきありがとうございます。
試させていただきましたところ下記のところが反転してエラーになります。

Private Sub Worksheet_Change(ByVal Target As Range)

お礼日時：2014/11/15 21:21