シートの追加・削除（Add,Delete）
マクロでいろいろ処理する場合に、作業用のシートを追加し、
このシート上で処理した結果を、他シートに反映させる等は良く使うテクニックです。
以下、シートの新規追加です。
Sub sample1() ActiveSheet.Name = "新規シート" Application.DisplayAlerts = False Sheets("新規シート").Delete Application.DisplayAlerts = True End Sub |
先頭に新規シートが作成されます。
最後に新規作成する場合は、
Sheets.Add After:=Sheets(Sheets.Count)
となります。
ActiveSheet.Name = "新規シート"
シート名の変更です。
作業用のシートなら、特に名前の変更は必要ありません。
Application.DisplayAlerts = False
シートを削除するときに出るアラートメッセージの表示を止めています。
Sheets("新規シート").Delete
シートの削除です。
オブジェクト変数を使用すると
Sub sample2() NewSht.Name = "新規シート" ' ・・・いろいろな処理 Application.DisplayAlerts = False NewSht.Delete Application.DisplayAlerts = True End Sub |
こちらの方がスマートでしょうかね。
新規シートを最後に追加する場合は、
Set NewSht = Sheets.Add(After:=Sheets(Sheets.Count))
引数を()の中に入れる必要があります。
オブジェクト変数に直接入れる場合は、このように記述します。
これは、
Sheets.Add After:=Sheets(Sheets.Count)
Set NewSht
= ActiveSheet
これと同じことになります。
同じテーマ「マクロVBAサンプル集」の記事
シートの追加・削除（Add,Delete）
シートの複数選択（Select）
複数シートの印刷（PrintOut）
重複削除してコピー（AdvancedFilter）
ブックを安全確実に開く方法（Open）
ブックを閉じる（Close）
他ブックを開いて閉じる（Open,Close）
ブックを開かずにセル値を取得（ExecuteExcel4Macro,Excel.Application）
罫線を簡単に引く（Borders,BorderAround）
マクロの開始・終了（Applicationのプロパティ）
オートフィルター（AutoFilter）
新着記事 ・・・新着記事一覧を見る
数値範囲で表検索するVLOOKUP近似一致｜エクセル関数超技（10月5日）
エクセルVBAでのシート指定方法｜VBA技術解説（9月8日）
VBAのクラスとは（Class,Property,Get,Let,Set）｜VBA技術解説（8月28日）
VBAこれだけは覚えておきたい必須基本例文10｜VBA技術解説（8月22日）
VBAの省略可能な記述について｜ExcelマクロVBA技術解説（8月11日）
複数条件判定を行う時のコツ｜ExcelマクロVBA技術解説（7月11日）
For Next の使い方いろいろ｜VBA技術解説（6月14日）
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.マクロって何？VBAって何？｜ExcelマクロVBA入門
7.定数と型宣言文字（Const）｜ExcelマクロVBA入門
8.とにかく書いて見よう（Sub,End Sub）｜VBA入門
9.繰り返し処理（For Next)｜ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
