新規シートを右側に作るマクロ～すぐに役立つ3行マクロ

3行マクロMENU

新規シートは右側に作成～すぐに役立つ3行マクロ

新規シートを右側に作るマクロ

　通常、シートの挿入をすると、表示していたシートの左側に挿入されて、
　順番を入れ替えなければならないので、とても面倒です。

　毎回、使いにくい思いをしているのなら、マクロを作って、
　右側に挿入するようにしてみたらどうでしょう。
（サンプルファイルは、こちらから 3行マクロ2回サンプルデータ）

マクロの記録で、シートを追加する記録をとると、

コードは、

Sub シートを追加()
    Sheets.Add
End Sub

これだと、単にシートを追加する命令だけです。

そこで、命令に対する条件を追加して

After:=ActiveSheet　
で現在のシートの後方（右隣）という意味になります。

追加したコードです。

Sub 新規シートを右側に作るマクロ()
 　Sheets.Add After:=ActiveSheet 
End Sub

サンプルでは、マクロをボタンに割り付けています。

シートはアクティブシートの常に右側に作成されます。

　ところで、Addという動作（メソッド）には、Afterのほかにも、
　引数があります。

ワークシートの追加位置を前に指定する引数Before、
ワークシートの数を指定できる引数Count、
ワークシートの種類を指定する引数Type、

新規シートを左側につくるマクロは、追加位置を前に指定して

コードです。

Sub 新規シートを左側に作るマクロ()
        Sheets.Add Before:=ActiveSheet
End Sub

新規シートを末尾（右端）に、2枚追加にするマクロは、数を指定する引数Countを使い

コードです。

Sub 新規シートを末尾に2枚追加する()
        Sheets.Add After:=Worksheets(Worksheets.Count),_ Count:=2
End Sub

新規シートを末尾（右端）につくり名前を現在時間にするマクロは、
コードです。

Sub 新規シートを末尾に作るマクロ()
        Sheets.Add(After:=Worksheets(Worksheets.Count)) _
        .Name = Format(Now(), "h時mm分ss秒")
End Sub