ＶＢＡ シート名を先月の名前にしたい

ＶＢＡ シート名を先月の名前にしたい
お世話になります。

excelのシート名を、当年先月の名前（2013年4月なら”2013年3月”）にしたいのです。
当月ならうまくいくのですが、ＶＢＡでいいコーディングがあればご教示ください。
宜しくお願いします。

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2013/04/28 22:49

> 当月ならうまくいくのですが

「どうやったか」は質問文中に書くべき

=format(Now()-day(Now()),"yyyy年m月")

この回答へのお礼

申し訳ありません
ActiveSheet.Name = =format(Now()-day(Now()),"yyyy年m月")
でうまくいきました。
感謝します。

お礼日時：2013/04/29 00:09

No.4 回答者： keithin 回答日時： 2013/04/28 23:40

sub macro1()

on error resume next
activesheet.name = format(dateadd("M",-1,date), "yyyy年m月")
end sub
みたいな。

この回答へのお礼

ありがとうございます。
うまくいきました。
感謝します。

お礼日時：2013/04/29 00:19

No.3 回答者： hallo-2007 回答日時： 2013/04/28 23:04

こんな感じでは如何でしょうか。

Sub ボタン1_Click()
Dim DDATE As Date
DDATE = DateSerial(Year(Date), Month(Date), 0)
ActiveSheet.Name = Year(DDATE) & "年" & Month(DDATE) & "月"
End Sub

この回答へのお礼

ありがとうございます。
フォームでボタンを作り実行し確認しました。
感謝します。

お礼日時：2013/04/29 00:17

No.2 回答者： tom04 回答日時： 2013/04/28 22:52

こんばんは！

一例です。

Sub Sheet名変更()
Dim tmp As Variant
tmp = DateAdd("m", -1, Date)
ActiveSheet.Name = Year(tmp) & "年" & Month(tmp) & "月"
End Sub

こんな感じではどうでしょうか？

※　当然のことながら同一Bookに同じシート名はつけることはできませんので、
1Sheetのみ限定となります。m(_ _)m

この回答へのお礼

ありがとうございます。
うまくいきました。感謝します。

お礼日時：2013/04/29 00:14