Excel VBAは、大量のタスクを素早く実行するための強力で便利なツールです。 VBAを通じて、いくつかの条件を適用し、個々の条件に基づいて異なる結果を導き出すことができます。 さて、時には、ワークブックに特定のシートが存在するかどうかを確認したい場合があります。 そして、存在しなければ、そのシートを作成する必要があります。 この記事では、すべてのステップを紹介します。 シートを追加する が存在しない場合、Excel VBAを使用してください。

Excel VBA：シートが存在しない場合、シートを追加する（クイックビュー）

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The '" & addSheetName & _ "''シートには、'"シート""シート名""シート名""シート名'"シート名がある。Else MsgBox "The ''" & addSheetName & _ "''シートはすでにこのワークブックに存在します。", _ vbInformation, "存在しない場合はシートを追加する" End If End Sub 

上記のコードを適用するために、新しいモジュールに挿入します。

練習用ワークブックをダウンロードする

練習用ワークブックはこちらから無料でダウンロードできますよ。

Excelにシートが存在しない場合にVBAコードを適用して追加する手順

例えば、1月、2月、3月、4月という名前の4つのワークシートを含むワークブックがあるとします。 各シートには翌月の売上レポートが含まれています。 さて、ワークブック内のいくつかのシートを見つけ、シートが存在しない場合は追加する必要があります。 これを達成するには、以下のステップバイステップのガイドラインに従うことができます。

📌 ステップ1：新しいモジュールを挿入する

まず、VBAのコードを書くためのモジュールを挿入する必要があります。

• これを行うには、一番最初の段階で デベロッパー tab>> ビジュアルベーシック ツールを使用します。

• その結果 Microsoft Visual Basic for Applications のウィンドウが表示されます。
• 続いて インサート tab>> モジュール ツールを使用します。

したがって、新しいモジュールである モジュール1 が作成されました。

続きを読む エクセルVBAで名前を付けてシートを追加する方法（6つの簡単な方法）

類似の読み物

• ExcelのVBAを使用して新しいワークブックを作成し、保存する
• Excel VBA：新しいワークブックを作成して名前を付ける（6例）
• Excelでマクロを使用してテンプレートから新しいシートを作成する方法

ステップ2：必要なVBAコードを記述して保存する

あとは、モジュールの中にコードを書いて、保存するだけです。

• をクリックします。 モジュール1 オプションを指定して、コードウィンドウに以下のコードを記述してください。

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The '" & addSheetName & _ "''シートには、'"シート""シート名""シート名""シート名名 "シート名がある。は存在しなかったので追加されました", _ vbInformation, "存在しない場合はシートを追加" Else MsgBox "The ''" & addSheetName & _ "'シートはすでにこのワークブックに存在しています", _ vbInformation, "存在しない場合はシートを追加" End If End  サブ 

• その結果、コードウィンドウは以下のようになります。

🔎 コードの説明です。

♣ セグメント1

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String 

このパートでは、マクロ名と変数名を宣言しています。

♣ セグメント2

 addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name 

ここでは、入力ボックスを作成し、検索するファイルの名前を入力できるようにしました。

♣ セグメント3

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "'' sheet has been added as it wasn't exist", _ vbInformation, "Add Sheet If Not Exist" msgBox "存在しないシートを追加しました。 

ここでは、必要なシートがワークブックに存在するかどうかを確認し、存在しない場合は、必要なシートを作成し、その変更に関するメッセージを表示します。

♣ セグメント4

 Else MsgBox "The ''" & addSheetName & _ "''シートはすでにこのワークブックに存在します。", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 

このパートでは、必要なシートがすでにワークブックに存在する場合の結果を処理しました。 このシナリオでは、別のメッセージボックスが表示され、このシートが存在することを知らせます。 さらに、このパートでは、コードを適切に終了させています。

• その後、 を押してください。 Ctrl + S

• その後 マイクロソフトエクセル のウィンドウが表示されます。 いいえ ボタンをクリックします。

• その結果 名前を付けて保存 のウィンドウが表示されます。
• 続いて、以下を選択します。 タイプとして保存します。 というオプションがあります。 .xlsm をクリックします。 保存 ボタンをクリックします。

こうして、必要なコードを書いて保存しました。

注

Excelのワークブックを保存する際は、必ず .xlsm さもないと、マクロが有効にならず、コードが動作しなくなります。

続きを読む 変数名でシートを追加するExcel VBA（理想的な5つの例）

📌 ステップ3：コードの実行

あとは、コードを実行して、結果を確認します。

• これを行うには、まず何よりもまず 実行 のアイコンが表示されます。 Microsoft Visual Basic for Applications ウィンドウに表示されます。

• その結果 マクロ のウィンドウが表示されます。
• 続いて、以下を選択します。 AddSheetIfNotExist マクロを実行し 実行 ボタンをクリックします。

• このとき、私たちが作成したメッセージボックスの名前は シートがない場合は追加する が表示されます。 ここで、自動のオプションは シート5 .

• さて、チェックのために、次のように書きます。 "エイプリル" をテキストボックスでクリックし オッケー ボタンをクリックします。

• その後、別のメッセージボックスが表示され、そのシートがすでに存在していることがわかるでしょう。
• をクリックします。 オッケー ボタンをクリックします。

• その後、再度コードを実行し、次のように記述します。 "メイ" をクリックすると、メッセージボックスのテキストボックスが表示されます。 よっしゃー ボタンをクリックします。

• その結果、別のメッセージボックスが表示され、次のように通知されます。 "メイ" シートが存在しないため、このシートを作成しました。
• をクリックします。 よっしゃー ボタンをクリックします。

最後に、以前は存在しなかったシートが追加されているのがわかります。 そして、ワークブックは今このように表示されます。

続きを読む Excel VBA：最後のシートの後にシートを追加する（3つの理想的な例）

結論

この記事では、Excel VBAでシートが存在しない場合に追加するすべての手順を示しました。 それをよりよく理解し、あなたの希望する結果を達成するために慎重に記事全体を通過します。 私はあなたが有用で有益なこの記事を見つけることを願っています。 あなたがさらにクエリまたは勧告を持っているなら、私に連絡して自由に感じるしてください。

そして、訪問 エクセルウィキ 今後もこのような記事を期待しています。