[[20040419091829]]　『VBA シートの追加方法』（HISA）　ページの最後に飛ぶ

『VBA シートの追加方法』（HISA）

コマンドボタンを使用してシートの追加を行いたいのですが・・・

SHEET1＝月次集計
SHEET2＝AY
SHEET3＝AJ

のように3SHEETあります。
FORMを使用しリストボックス内のコード選択により「AY」「AJ」のシートにデータが格納されるようにマクロを作成しました。
月ごとに集計を行いたいので、「計上月切り替え」のコマンドを実行すると
それぞれの各シートに処理年月を追記して（例：月次集計0404のように）シートを追加したいと考えています。いい方法ありますか？説明がわかりにくいかも知れませんが・・・

 シートを現存のシートの後ろに追加していくのでしたら、
Sub シート追加()
Dim I As Integer
For I = 404 To 412
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "月次集計0" & I
Next I
For I = 501 To 503
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "月次集計0" & I
Next I
End Sub
としてたらできますが・・・　(マーヤ)

FORMの中にある「計上月切り替え」と言うコマンドボタンを使用したいのですが、

そうすると、
SUB　シート追加()を

PRIVATE　SUB　CHANGEBUTTON_CLICK()

に変えればいいのでしょうか？(HISA)

できました。
ありがとうございます。

(HISA）

コメント返信：

[ 一覧(最新更新順) ]

[[20040419091829]] 『VBA シートの追加方法』（HISA） ページの最後に飛ぶ

[[20040419091829]]　『VBA シートの追加方法』（HISA）　ページの最後に飛ぶ