年度が変わったら自動でファイルを更新するマクロ

年度が変わった時に新たにファイルを作成することをしないといけなかったので
自動でできるようにしてみました。

忘れたり、工数を低減することが出来ます。

sub 年度が変わったら自動でファイルを更新するマクロ

‘変数の定義
dim FolderName as string
dim FolderUrl as string 
dim Mithumori as string

‘変数へ値の代入
FolderName = Year(date) & “年度”
FolderUrl = “フォルダーの作成先url” & FolderName
Mithumori = FolderUrl & “¥見積もり”

‘月を判別
if Month(date) = 4 then

　　‘同じ名前のフォルダがあるかを検索しなければ作成する
　　if Dir(FolderUrl, vbDirectory) = “” then

　　　　‘フォルダの作成
　　　　MkDir FolderUrl
　　　　Mkdir Mithumori

　　　　‘シートの削除操作
　　　　application.displayalerts = false
　　　　sheets(“削除するシート名”).delete

　　　　‘シートコピー操作
　　　　sheets(“コピーするシート”).copy after:=sheets(“シート名”)
　　　　activesheet.name = “作成したシートの名称”

　　　　‘ファイルの作成（名前をつけて保存）
　　　　activeworkbook.saveas filename:=FolderUrl & “¥ファイルの名前”
　　　　msgbox “新規で” & FolderName & “のファイルを作成しました”

　　endif
endif

end sub