|
▼イブxさん:
ご教示ありがとうございます。
シート名は文字列ですので、そのような表示になんとかしたいのですが・・。
順次4月から翌年3月まで変更するには、
DATEVALUEに置き換える必要があるのでは・・と思っています。
▼つるりん さん:
ご教示、ありがとうございます。
「12月」の次は「1月」と表示したいのです。
そこで、DateSerialを使う必要があるかと思い、
Dim 見積累計, 当月名, 当月シリアル, 翌月名, 翌月シリアル
当月名 = ActiveSheet.Name
当月シリアル = DateValue(当月名)
翌月シリアル = DateSerial(Year(当月シリアル), _
Month(当月シリアル) + 1, Day(当月シリアル))
翌月名 = Format(翌月シリアル, "m月度")
と考えてみたのですが・・・うまく行きませんでした・・・。
つるりんさんに教えていただいたコードですと、
「12月」の次からは「13月」、「14月」と表示されてしまいます。
また、「Worksheets("4月度").Range("e19").Copy mySht.Range("e18")」は、
翌々月以降からは、4月度のデータを基に最新のワークシートにコピーされてしまい、
例えば、7月度のシートの累計も、4月度の累計が反映されてしまいます。
前月の累計E19を、最新ワークシートのE18に反映させ、
当月の数値との合計を求めて、当月ワークシート累計E19とさせたいのですが・・。
せっかく、教えていただいたのに、申し訳ありません。
|
|