シートを右側に追加する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