数を指定してシートを追加するマクロ

マクロ講座

マクロ講座６-2回 シートを追加するマクロ

[マクロ]ダイアログポックスを表示させるからの続きです。

[マクロ]ダイアログポックスを表示させる　

　 Alt キー　＋　 F8 キー 

オルトキーを押したまま、続けてF8キーも押します。
[マクロ]ダイア□グボックスが表示されます。

ここで、[マクロ名]のリストから表示させたいマクロを選択し、　[編集]をクリックします。

Sub 選択範囲をコピーし新規シートに貼り付け()
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub

枚数を指定してシートを追加するマクロ

そして、新規ブックを作りマクロボタンをクリックして以下のマクロを作ります。

（4）マクロ名を、シートを追加するマクロにしましょう。
　作成ボタンを押します。

すると、そこには今入力した名前が付けられていて以下のようになっています。

Sub シートを追加するマクロ()
End Sub

Sub シートを追加するマクロ()
	Sheets.Add After:=ActiveSheet
End Sub

マクロ本文を1行貼り付けました。

位置を指定してシートを追加する

Sub シートを追加するマクロ()
	Sheets.Add Count:=3
End Sub    

これで3枚シートを追加するという意味になります。

（8）では、VBEを終了して、早速マクロを実行してみましょう。

マクロの実行ボタンをクリックすると、シートが3枚追加されます。 今日は、ここまでです。お疲れ様でした。