回答編集履歴
1
誤字脱字修正
answer
CHANGED
@@ -35,7 +35,7 @@
|
|
35
35
|
dtmToday = Date '今日の日付を取得
|
36
36
|
|
37
37
|
'日付を記入
|
38
|
-
With
|
38
|
+
With wbkNew.Worksheets("はじめ")
|
39
39
|
.Name = Format(dtmToday, "m_d")
|
40
40
|
.Range("A2").Value = dtmToday
|
41
41
|
End With
|