ワークシートの追加・削除(Add メソッド・Delete メソッド)
2015/10/22
新しいワークシートを作成
Add メソッドで、新しいワークシートを指定した場所に作成します。
object.Add ( [ before, after, count, type ] )
引数・戻り値
- object ・・・ 対象となる Sheets コレクション、Worksheets コレクション、Charts コレクション を指定します。
- before ・・・ ここで指定したシートの直前に、新規のシートを追加します(省略可)。
- after ・・・ ここで指定したシートの直後に、新規のシートを追加します(省略可)。
- count ・・・ 追加するシートの数を指定します(省略可)。
- type ・・・ 追加するシートの種類を XlSheetType 列挙型 の定数またはその値を指定します。object により追加できるシートの種類に違いがあるので注意してください(省略可)。
定数 値 内容 xlWorksheet -4167 ワークシート xlExcel4MacroSheet 3 Excel 4 マクロ シート xlExcel4IntlMacroSheet 4 Excel 4 インターナショナルマクロシート xlDialogSheet -4116 ダイアログ シート xlChart -4109 グラフ
ワークシートの追加と名前の設定
新規にワークシートを作成し、名前を設定するには、Add メソッド を使用して、新規ワークシートを挿入後、Name プロパティ(詳細は、ブック・シートの名前を取得・設定(Name プロパティ) を参照)で名前を設定しますが、以下の様な書式を使って、1行で書くこともできます。
object.Add( [ before, after, count, type ] ).Name = sheetname
引数・戻り値
- object ・・・ 対象となる Sheets コレクション、Worksheets コレクション、Charts コレクション を指定します。
- before, after, count, type ・・・ 上記 Add メソッドの引数を参照してください。
- sheetname ・・・ 設定するシート名を文字列で指定します。
「TEST」という名前のワークシートを新規に作成する例
Worksheets.Add
Activesheet.Name = “TEST”
上記を1行で書く例
Worksheets.Add.Name = “TEST”
指定したワークシートを削除
Delete メソッド で、指定したワークシートを削除します。
object.Delete
引数・戻り値
- object ・・・ 対象となる Sheet オブジェクト、Worksheet オブジェクト、Chart オブジェクト を指定します。
- object で指定したシートを削除します。
Delete メソッド を実行すると、削除する前に、確認メッセージが表示されます。確認メッセージを表示させずに削除するには、一時的に、DisplayAlerts プロパティ を False に設定します。
Application.DisplayAlerts = False
ActiveWorksheet.Delete
Application.DisplayAlerts = True
Add メソッド・Delete メソッド 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Sub Sample_WSht_Add_Delete() '新規ワークシートを「Sheet2」の直後に挿入 Application.Worksheets.Add after:=Worksheets("Sheet2") '「Sheet1」を削除 Application.DisplayAlerts = False Worksheets("Sheet1").Delete Application.DisplayAlerts = True End Sub |
実行結果
サンプルVBAソース 実行前
実行後
関連記事
-
-
ブックのファイル形式を調べる(FileFormat プロパティ)
ブックのファイル形式を調べる(FileFormat プロパティ) 指定したブック …
-
-
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ)
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ) …
-
-
印刷設定(ヘッダーに文字列を指定)LeftHeader,CenterHeader,RightHeader
PageSetup.LeftHeader プロパティ PageSetup.Lef …
-
-
白黒印刷(PageSetup.BlackAndWhite プロパティ)
PageSetup.BlackAndWhite プロパティ PageSetup. …
-
-
ブックを別名で保存(SaveAs メソッド)
ブックを別名で保存(SaveAs メソッド) ブックの変更を保存したり、新規ブッ …
-
-
Excel を全画面表示(DisplayFullScreen プロパティ)
DisplayFullScreen プロパティ DisplayFullScree …
-
-
ユーザー設定のドキュメントプロパティ(CustomDocumentProperties プロパティ)
CustomDocumentProperties プロパティ ユーザー設定のドキ …
-
-
シート見出しの色を設定(Tab プロパティ)
シート見出しの色を設定 Tab オブジェクトの Color プロパティ、Colo …
-
-
印刷のタイトル行、タイトル列を設定(PrintTitleRows,PrintTitleColumns)
PageSetup.PrintTitleRows プロパティ PageSetup …
-
-
ブックのコピーを保存(SaveCopyAs メソッド)
SaveCopyAs メソッド SaveCopyAs メソッド は、現在開いてい …