下記コードはシートを追加し年月の名前をつける
Worksheets.Add(After:=Worksheets(Worksheets.Count)) _
.Name = Year(Now) & "年" & Month(Now) & "月"
0 件のコメント:
コメントを投稿