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 · ベストアンサー

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

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

お礼

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

回答No.3

hallo-2007

良くわからないのですが
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の方と両方がうまくできました。
甲乙がつけがたいのですが独断と偏見で決めさせていただきました。

回答No.1

High_Score

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

お礼

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

Private Sub Worksheet_Change(ByVal Target As Range)