[[20170608134051]]　『ワークシートの名前の付け方』（みくに）　ページの最後に飛ぶ

『ワークシートの名前の付け方』（みくに）

お世話になっております
教えていただけないでしょうか

下記の様に取得した使途の名前を
去年の年号にしたいのですが
どの様にすればいいのでしょうか

Sub 下まで()
'

 Worksheets("報告書").Copy After:=ActiveSheet
 ActiveSheet.Name = Format(Now(), "yyyy")

End Sub

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 Year(Date)-1
 で昨年が取得できます。
（カリーニン） 2017/06/08(木) 13:51

 ちなみに、

 Date

 で今日の日付を取得します。
（カリーニン） 2017/06/08(木) 13:53

カリーニン様

有難う御座います

（みくに） 2017/06/08(木) 13:56

コメント返信：