Excelマクロ 曜日自動入力方法

マクロ初心者です。
こちらのサイトから日付の自動入力の方法がわかりました。

Sub Macro1()
Dim f As String
f = ActiveCell.NumberFormat
ActiveCell = Now
End Sub

↑の右セルに曜日を自動入力したいのですが・・・
追加するコード？を教えてほしいです。
（選択したセルA1には"7/24"をセルB1"土"　のマクロ）

No.1 回答者： mshr1962 回答日時： 2009/07/25 02:04

下記でできます。

Sub Macro1()
Dim f As String
f = ActiveCell.NumberFormat
ActiveCell = Now
ActiveCell.Offset(0,1) = Format(Now,"aaa")
End Sub

この回答へのお礼

ありがとうございました。
時間も表示されていたので、こちらを採用させて頂きます。
（セルの書式設定にて"mm/dd"とし、セルを選択すると時間も確認できました）

お礼日時：2009/07/25 12:01

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2009/07/25 11:28

こんにちは。

例えば、こんな感じになります。
'-------------------------------------------
Sub Macro2()
'選択したセルには、例えば、"7/25"をセルB1"土"を出すマクロ
　　Dim myDate As Variant
　　With ActiveCell
　　　　myDate = Date
　　　　.NumberFormatLocal = "m/d"
　　　　.Value = myDate
　　　　.Offset(, 1).Value = Format$(myDate, "aaa")
　　End With
End Sub

この回答へのお礼

ありがとうございました。
私の希望とおり日付と曜日のマクロでしたが、
Wendy02さんのマクロは時間も表示できることは思いつかなかったです。
（マクロ実行した時間も確認できる）

お礼日時：2009/07/25 12:16