| |
こんちには。かみちゃん です。
>かみちゃんさんの内容についてですが、今回の質問内容は、「集計表：3月分」ということでしたが、毎月、保存するわけなので、例えば、INPUTBOXやﾕｰｻﾞｰﾌｫｰﾑなどを使って、月を登録し、最終的にファイル名が「集計表：4月分」や「集計表：12月分」といった形にできるものでしょうか？
とりあえず、InputBox関数を使った例です。
ユーザーフォームでも、同じようなことはできます。
>> '別のブック名（「集計表：○月分」）で保存
>> Target_BookName = "集計表：３月分"
↑の部分を
Target_BookName = "集計：" & InputBox("月を指定してください。", "月指定", Format(Date, "m")) & "月分"
とすれば、
Target_BookNameに「集計：05月分」などと設定されます。
なお、Asakiさんのコードでも以下のようにすれば、できると思います。
Target_BookName = "集計：" & InputBox("月を指定してください。", "月指定", Format(Date, "m")) & "月分"
ThisWorkbook.SaveCopyAs Target_BookName
|
|
かみちゃん
- 04/5/4(火) 19:18 -
