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

質問

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

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

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

回答No.2

Wendy02 · ベストアンサー

こんにちは。

例えば、こんな感じになります。
'-------------------------------------------
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さんのマクロは時間も表示できることは思いつかなかったです。
（マクロ実行した時間も確認できる）

回答No.1

mshr1962

下記でできます。
Sub Macro1()
Dim f As String
f = ActiveCell.NumberFormat
ActiveCell = Now
ActiveCell.Offset(0,1) = Format(Now,"aaa")
End Sub

お礼

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