ワークシートの追加(Add メソッド)について説明します。
HOME | 更新履歴 | ご利用上の注意事項 | FAQ | プライバシーポリシー | サイトマップ | Excel VBA 質問掲示板
日付
累計
本日
累計
本日
:
:
:
:
:
アクセス上位ページ
- コンボボックス
- テキストファイル読込
- セルの書式(背景色・パターン)
- AutoFilter メソッド
- Dir関数
- テキストファイル新規書込
- InStr関数
- InputBoxメソッド
- Sort メソッド
- マクロ有効ブックの保存と設定
- 比較演算子 ( Like も含む)
- テキストボックス
- FileDialogオブジェクト@
- ワークシートの数
- FileDialogオブジェクトA
- セルの書式(保護)
- Hidden プロパティ
- ワークシート関数によるカウント処理
- Split関数
- オブジェクト変数と Set
- オプションボタン
- OpenTextFile メソッド
- セルの書式(表示形式)
- チェックボックス
- LBound、UBound関数
- ラベル
- リストボックス
- FSOによるファイルコピー
- プロシージャの呼び出し
- ステップ実行
最近の更新内容
- 2016/5/7 ページ追加 1.(7)-n.PrintPreview メソッド
- 2015/12/13 ページ追加 5.(2)-i.トグルボタン
- 2015/10/18 『比較演算子 ( Like も含む)』内容修正
1.(7)-o.PrintOut メソッド
1.(7)-p.印刷ヘッダー、フッターの設定
5.(2)-j.スクロールバー
5.(2)-k.スピンボタン
5.(2)-l.イメージ
(7)-b.ワークシートの数 ⇐ [PREV]
[NEXT] ⇒ (7)-d.ワークシートオブジェクトの指定方法
Excel VBA ≫ 1.基礎編 - ワークシート ≫ (7)-c.ワークシートの追加
【ページ内リンク】
ワークシートの追加 - Add メソッド
ワークシートを追加するには Worksheets コレクションの Add メソッドを使用します。
ワークシートを挿入する位置は Before または After のどちらかの引数で指定することができます。
引数 Before および After を両方省略すると一番左端にシートが追加されます。
<アクティブワークブック内のシート>
<実行結果>
ThisWorkbook
ワークブックの指定を省略すると処理時点でアクティブになっている(最前面に表示されている)ブックが処理の対象となります。もし、処理の対象を実行したマクロが組み込まれているブックに限定したい場合はシートのまえに"ThisWorkbook"をつけてください。
(例)ThisWorkbook.Worksheets.Add
<アクティブワークブック内のシート>
<実行結果>
セルのフォント名、フォントサイズも変更されてます。
参考
sample_eb073_02 では追加したシートの参照を変数 mySheet へ一旦保存しましたが、
この変数を使用せず以下のように記述することができます。
できるだけ変数の数を少なくしたい場合はこの方法で記述するとよいでしょう。
-
【構文】
Worksheets.Add ( [Before] [, After] [, Count] [, Type] ) - Add メソッドの使用例1 アクティブワークブックへワークシートを追加する例です。 引数 After, Count を指定して左から2番目にワークシートを2枚追加しています。
引数名 | 省略 | 定数/データ型 | 説明 |
---|---|---|---|
Before | ○ | Variant型 (シートオブジェクト) |
指定したシートオブジェクトの直前に、新しいシートを追加します。 |
After | ○ | Variant型 (シートオブジェクト) |
指定したシートオブジェクトの直後に、新しいシートを追加します。 |
Count | ○ | Variant型 | 追加するシートの数を指定します。 既定値は 1 です。 |
Type | ○ | xlChart | グラフシート |
xlDialogSheet | ダイアログシート | ||
xlExcel4IntlMacroSheet | Excel バージョン 4 International Macro シート |
||
xlExcel4MacroSheet | Excel バージョン 4 マクロ シート |
||
xlWorksheet | ワークシート(既定値) |
※引数をすべて省略すると一番左端にシートが1枚だけ追加されます。
Sub sample_eb073_01()
'左から2番目にシートを2枚追加
Worksheets.Add After:=Worksheets(1), Count:=2
End Sub
<アクティブワークブック内のシート>



ワークブックの指定を省略すると処理時点でアクティブになっている(最前面に表示されている)ブックが処理の対象となります。もし、処理の対象を実行したマクロが組み込まれているブックに限定したい場合はシートのまえに"ThisWorkbook"をつけてください。
(例)ThisWorkbook.Worksheets.Add
- Add メソッドの使用例2 一番右端へワークシートを追加し、シート名やフォントなどのプロパティを変更する例です。
Sub sample_eb073_02() Dim mySheet As Worksheet 'シートを追加し、その追加したシートの参照を変数へ設定 Set mySheet = Worksheets.Add _ (After:=Worksheets(Worksheets.Count)) With mySheet .Name = "DDD" '追加したシートの名前を変更 'セルのフォント名とフォントサイズを変更 With .Cells.Font .Name = "MS ゴシック" .Size = 9 End With .Range("A1").Value = "テスト" End With End Sub
<アクティブワークブック内のシート>



Sub sample_eb073_03() 'シートの追加とプロパティの変更 With Worksheets.Add(After:=Worksheets(Worksheets.Count)) .Name = "DDD" '追加したシートの名前を変更 'セルのフォント名とフォントサイズを変更 With .Cells.Font .Name = "MS ゴシック" .Size = 9 End With .Range("A1").Value = "テスト" End With End Sub
カテゴリ内ページ
Excel VBA 〜 総目次 〜
- 1.基礎編
- 1.基礎編
-- (7).ワークシート
--- (7)-a.SheetsとWorksheets
--- (7)-b.ワークシートの数
--- (7)-c.ワークシートの追加
--- (7)-d.ワークシートオブジェクトの指定方法
--- (7)-e.ワークシートの名前
--- (7)-f.ワークシートのインデックス
--- (7)-g.ワークシートの表示
--- (7)-h.オートフィルターモード
--- (7)-i.ワークシート内の使用済みセル
--- (7)-j.ワークシート内のコメント
--- (7)-k.Activate メソッド
--- (7)-l.Copy、Move メソッド
--- (7)-m.Delete メソッド
--- (7)-n.PrintPreview メソッド
--- (7)-o.PrintOut メソッド
--- (7)-p.印刷ヘッダー、フッターの設定
--- (7)-b.ワークシートの数
--- (7)-c.ワークシートの追加
--- (7)-d.ワークシートオブジェクトの指定方法
--- (7)-e.ワークシートの名前
--- (7)-f.ワークシートのインデックス
--- (7)-g.ワークシートの表示
--- (7)-h.オートフィルターモード
--- (7)-i.ワークシート内の使用済みセル
--- (7)-j.ワークシート内のコメント
--- (7)-k.Activate メソッド
--- (7)-l.Copy、Move メソッド
--- (7)-m.Delete メソッド
--- (7)-n.PrintPreview メソッド
--- (7)-o.PrintOut メソッド
--- (7)-p.印刷ヘッダー、フッターの設定