[[20150523132347]]　『シート名記入』（keiji）　ページの最後に飛ぶ

『シート名記入』（keiji）

以下でシート名を書き込みしていますが
｢20156｣と書き込まれるのですが、これを｢1506｣・｢1507｣形式で
書き込みするにはどのような修正が必要でしょうか
よろしくお願いします。

    '取得した最終日から年月を抽出
    If IsDate(wMaxDay) Then
        wNextMonth = DateSerial(DatePart("yyyy", wMaxDay), DatePart("m", wMaxDay) + 2, 0)
        wNewSheetName = DatePart("yyyy", wNextMonth) _
                & DatePart("m", wNextMonth)

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

 参考コードです。

 Sub Sample()
    MsgBox Format(Date, "yymm")
 End Sub

（β） 2015/05/23(土) 13:47

βさん
ご返事ありがとうございます。
Format(Date, "yymm")は理解できるのですが
提示したマクロコードの修正箇所が？
wNewSheetName = DatePart("yy", wNextMonth) _

                & DatePart("mm", wNextMonth)
上記のように変更するとエラー
プロシージャの呼び出しまたは引数が不正です
となります。
すみませんがよろしくお願いします。
（keiji） 2015/05/23(土) 13:55

 DatePart関数の引数　interval には "yy" や "mm" はありませんのでエラーになりますよね。

 私がいいたかったのは

        wNewSheetName = DatePart("yyyy", wNextMonth) _
                & DatePart("m", wNextMonth)

 これを

        wNewSheetName = Format(wNextMonth, "yymm")

 こされたらいいのでは？　ということですが。

（β） 2015/05/23(土) 14:06

βさん
ありがとうございました。
＞DatePart関数の引数　interval には "yy" や "mm" はありませんのでエラーになりますよね。
引数が無いのですね
わかりました。勉強します。
解決です！
（keiji） 2015/05/23(土) 14:21

コメント返信：

[ 一覧(最新更新順) ]

[[20150523132347]] 『シート名記入』（keiji） ページの最後に飛ぶ

[[20150523132347]]　『シート名記入』（keiji）　ページの最後に飛ぶ