ワークシートの追加・削除(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ソース 実行前
実行後
関連記事
-
-
ウィンドウのタイトル(Window.Caption プロパティ)
ウィンドウのタイトル(Caption プロパティ) Windows.Captio …
-
-
簡易印刷(PageSetup.Draft プロパティ)
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
-
ファイル保存の既定の形式を取得・設定(DefaultSaveFormat プロパティ)
DefaultSaveFormat プロパティ DefaultSaveForma …
-
-
行列番号を含めて印刷(PageSetup.PrintHeadings プロパティ)
PageSetup.PrintHeadings プロパティ PageSetup. …
-
-
印刷:余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt(ポイント:約 0.03528 cm) …
-
-
印刷の倍率(拡大/縮小)(PageSetup.Zoom プロパティ)
PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …
-
-
ワークシートをファイルに保存する(SaveAs メソッド)
SaveAs メソッド ワークシートを名前を付けてファイルに保存します。Work …
-
-
印刷設定(ヘッダーに文字列を指定)LeftHeader,CenterHeader,RightHeader
PageSetup.LeftHeader プロパティ PageSetup.Lef …
-
-
ユーザー設定のビュー(CustomViews プロパティ)
ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …
-
-
印刷・印刷プレビュー(PrintOut メソッド、PrintPreview メソッド)
PrintOut メソッド 印刷するには、PrintOut メソッド を使用しま …