エクセル2007 マクロの勉強

質問

マクロを勉強しようとしています。
開いたシートで決まったところに本日日付（平成２４年３月１１日）と曜日を入れたいと思いマクロの記録でやってみましたがこれだといつも３月１１日と入るのではないでしょうか？

Sub Macro4()
'本日日付と曜日を入れたい
Range("A7:D7").Select
ActiveCell.FormulaR1C1 = "3/11/2012"
Range("E7").Select
　　'ここで曜日を入れたい

End Sub

よろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんにちは！
一例です。

Sheetが決まっている場合は
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストして、そのSheetをアクティブにしてみてください。

Private Sub Worksheet_Activate()
With Range("A7:D7")
.Value = Date
.NumberFormatLocal = "m/d/yyyy" '←「ggge年m月d日」とか・・・
End With
With Range("E7")
.Value = Date
.NumberFormatLocal = "aaa"
.Select
End With
End Sub

※　すべてのSheetで同様の操作を行いたい場合は
Alt+F11キー　→　画面左下の「This Workbook」をダブルクリックして
↓のコードをコピー＆ペースト

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Range("A7:D7")
.Value = Date
.NumberFormatLocal = "m/d/yyyy" '←「ggge年m月d日"」とか・・・
End With
With Range("E7")
.Value = Date
.NumberFormatLocal = "aaa"
.Select
End With
End Sub

これですべてのSheetでアクティブにした場合は同様の操作になります。

こんな感じで参考になりますかね？m(_ _)m

お礼

早速の回答ありがとうございます。

希望通りの動作です。