Excel VBAでの" "の正しい使い方

質問

Excel 2003を使っています。

セルY1には0又は1の数値が入ります。

セルI6とI7の「セルの書式設定」をY1の値によって変化させるのが目的です。

セルY1が0の場合はI6の「セルの書式設定」を「m"月"d"日("aaa")　17:00～　艇　庫"」に、I7は空白にする。

また、セルY1が1の場合はI6の「セルの書式設定」を「m"月"d"日("aaa")　16:00～　艇　庫"」に、

I7は「m"月"d"日("aaa")　17:00～　艇　庫"」にしたいのです。

　とりあえず、VBAで以下のようなものを作りましたが、" "の使い方が間違っているようで、意図した結果が出ません。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Address = "$Y$1" Then
　　　　 If Range("Y1") = 0 Then
　　　　　　Range("I6").NumberFormatLocal = "m""月""d""日（""aaa""）　17：00～　艇　庫"
　　　　　　Range("I7").NumberFormatLocal = ""
　　　　Else
　　　　　　Range("I6").NumberFormatLocal = "m""月""d""日（""aaa""）　16：00～　艇　庫"
　　　　　　Range("I7").NumberFormatLocal = "m""月""d""日（""aaa""）　17：00～　艇　庫"
　　　　End If
　　 End If
End Sub

　どのように修正すればよいか、お教えください。画像も何もなくて分かりにくいかもしれませんが、よろしくお願いします。

回答No.1

keithin · ベストアンサー

ツールメニューのマクロの「新しいマクロの記録」を使い、

＞I6の「セルの書式設定」を「m"月"d"日("aaa")　17:00～　艇　庫"」に

という操作を実際に手で行ってマクロに録ってみれば、

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2014/7/30 ユーザー名 :
'

'
　　Selection.NumberFormatLocal = "m""月""d""日(""aaa"")　17:00～　艇　庫"""
End Sub

といった具合にすればよいと、タチドコロに判ります。
何がどうならこうすればよいのかはおおまかアナタのマクロで合ってますので、そのまま流用してください。

＃ただしゼロの時にＩ７を「空白にする」には、書式を設定するんじゃなく
range("I7").clearcontents
などのようにして、セルを消去します。

お礼

早速のご教示ありがとうございました。Selectionの部分をRange("I6")に置き換えて動かしてみるとうまくいきました。感激です。「新しいマクロの記録」は浮かびませんでした。これで意図したものが出来上がりました。本当にありがとうございました。