シートの追加・削除（Add,Delete）

最終更新日：2013-05-14

シートの追加・削除（Add,Delete）

マクロでいろいろ処理する場合に、作業用のシートを追加し、

このシート上で処理した結果を、他シートに反映させる等は良く使うテクニックです。

以下、シートの新規追加です。





Sub sample1()
　　Sheets.Add

　　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()
　　Dim NewSht As Worksheet
　　Set NewSht = Sheets.Add

　　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サンプル集」の記事

連続セル範囲の選択

エクセルのVBAでは、連続セル範囲の選択は頻繁に行われます。以下では、いろいろな記述方法を紹介します。このような表で、データ部（B3～D7）を選択または消去する方法になります。B3～B2、Ctrl+→、Ctrl+、の範囲になります。

１行置きにする行挿入（Insert）

A列に連続データが入っているとします。これを１行置きにします。ポイントは下から行うことです。上からやるとどんどん下に追いやられてしまいます。（Step2とするのもありですが普通は下からやりましょう） Cells(Rows.Count,1).End(xlUp).Row これで最終行を取得しています。

シートの追加・削除（Add,Delete）
シートの複数選択（Select）

複数のシートの選択方法です。シート名は、「Sheet1」「Sheet2」「Sheet3」とします。まずは、マクロの記録と同じように。シート名がわかっていれば、これで良いですが、シート名が不明な場合は困ります。

複数シートの印刷（PrintOut）

複数シートの印刷方法です。シートは、ワークシートが「Sheet1」「Sheet2」「Sheet3」があり、その他で、グラフシートもあるとします。ワークシートのみ印刷する場合です。シート名がわかっていれば、これで良いですが、シート名が不明な場合は困ります。

重複削除してコピー（AdvancedFilter）

重複データを排除して、別シートにコピーする場合です。以下の表で説明します。フィルターオプションを使います。このマクロは、この指定と同じになりります。似たような方法ですが、コピー部分を自分で記述する場合です。

ブックを安全確実に開く方法（Open）

マクロVBAの中で、他のブックを開く事はよくあります、ブックを開く時、ブックが存在しているか、既に開いてないかこれらのチェックをせずに開いてしまうと、マクロがエラー停止してしまいます。ここでは、これらのチェック方法についての具体的なVBAコードを紹介します。

ブックを閉じる（Close）

ブックを閉じる時の処理方法です。まずは、保存して閉じる場合。これは、次のように書くこともできます。Subsample2()ThisWorkbook.CloseSaveChanges:=TrueEnd Sub では、保存しないで閉じる場合。

他ブックを開いて閉じる（Open,Close）

他のブックを開いて何らかの処理（転記等）をして閉じる。よくあるパターンですね。簡単にサンプルのみ掲載します。Subsample2()DimwbAsWorkbookSetwb= Workbooks.Open("ブックのフルパス")…処理wb.CloseSaveChanges:=FalseEnd Sub 保存が必要な時は

ブックを開かずにセル値を取得（ExecuteExcel4Macro,Excel.Application）

「ブックを開かずにセル値を取得」に関する検索が非常に多いですおそらくExecuteExcel4Macroに関連しているとかもしくは大量のファイルがある為時間がかかってしまうと言うものでしょう。ExecuteExcel4Macroについての簡単な解説は「ExecuteExcel4Macroについて」サンプルを通して

罫線を簡単に引く（Borders,BorderAround）

エクセルでは、罫線を引く事が多いです。この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。とにかく、簡単に罫線を引く方法です。以下の表を作成する場合です。罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。