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