シートを右側に追加する3行マクロ

シートを右側に追加する

動画でExcelマクロ解説

シートを右側に追加する

エクセルでシートを追加する時 いろんな方法があります。Excel にはシートを右側に追加するというコマンドがないので3行マクロで作成して いつでも利用できるようにしましょう。 またリメイクとして、枚数を指定して追加したり、名前をつけて追加する3行マクロを作成しましょう。

シートを右側に追加する

動画内で作成したコード。

コードの解説は動画または記事解説をご覧ください。

'===============================================
'=EXCEL VBA 3行マクロ講座 Season1　2回　エクセルVBA シートを右側に追加する
'===============================================

Sub Macro1()
'
    Sheets("Sheet1").Select
    Sheets.Add
End Sub

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

Sub 新規シートを右側に2枚追加()
'Addメソッドの戻り値を利用しないので引数をかっこでくくらない。
        Sheets.Add After:=Worksheets(Worksheets.Count), Count:=2
End Sub

Sub 新規シートを右に作り名前をつける()
'Addメソッドの戻り値を利用するので、引数をかっこでくくる。
        Sheets.Add(After:=Worksheets(Worksheets.Count)). _
        Name = "売り上げ"
End Sub

Sub 新規シートを右に作り現在時間をシート名に()
'Addメソッドの戻り値を利用するので、引数をかっこでくくる。
        Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = _
            Format(Now(), "h時mm分ss秒")
End Sub