VBA入門① No.12 ワークシートの追加

• マクロでワークシートを追加する方法だよ
• サンプルでは、Sheet1の後ろにワークシートを一つ追加しています

文法

'【Befor】Shee1の前にワークシートを一つ追加する
Worksheets.Add Before:=Worksheets("Sheet1")

'【After】Shee1の後にワークシートを一つ追加する
Worksheets.Add Before:=Worksheets("Sheet1")

'【After + Count】Shee1の後にワークシートを３つ追加する
Worksheets.Add Before:=Worksheets("Sheet1"),Count:=3

サンプルコード

Sub AddWorksheet()

    Worksheets.Add After:=Worksheets("Sheet1")

End Sub

• ワークシートを追加して、名前を変更する

サンプルコード

Sub AddWorksheet()

Dim objWS As Worksheet

Set objWS = Worksheets.Add
objWS.Name = "新しいワークシート"

End Sub

VBA入門まとめへ戻る