目次
に関するご質問にお答えします。 エクセルで名前を付けてシートを追加する方法 ブイビーエー ここでは、そのようなユニークな仕掛けをお探しの方に、ぜひご覧いただきたい。 6 イージー＆アンプ;エクセルで名前を付けてシートを追加する実証済みの方法 ブイビーエー .
練習用ワークブックをダウンロードする
以下のExcelワークブックをダウンロードしていただくと、より理解が深まり、ご自身で練習することができます。
名前付きシートの追加.xlsm名前を付けてシートを追加するVBAコード
を使うことにします。 シートオブジェクト は、Excelでシートを追加するための基本的な ブイビーエー という名前のシートを追加するコードは、以下のようなものです。
シート.Add（[Before], [After], [Count], [Type]) 前 オプションで、特定のシートの前に新しいシートを追加します。
後です。 これもオプションです。 特定のシートの後に新しいシートを追加するものです。
カウントする。 追加するシート数を示すオプションのパラメータでもある。
タイプです。 これもオプションで、シートの種類を指定します。 ここでは、デフォルト値は xlワークシート .
Excel VBAでシートを名前付きで追加する6種類の方法
Excelでは、新しいシートを追加するために、add ⊕ アイコンが表示されます。 Excelで同じ作業を自動化しようと思ったことはありませんか？ ブイビーエー がカバーしています。
ここでは、ワークシートの名前を 売上報告 を収録しています。 デイリーセールスレポート 某食堂のコラムにて。 B , C と D の名前があります。 セールスレップ , アイテム そして 数量 を、それぞれご紹介します。
ここでは、このワークブックに他のシートを追加するために VBAマクロ .
ここでは Microsoft Excel 365 のバージョンと同じですが、お客様のご都合に合わせてご利用ください。
1.エクセルVBAで名前を付けてシートを追加する
最初のメソッドでは、シートを ユーザ入力 もし、あなたが好奇心旺盛であれば、以下の簡単なステップを踏んでください。
📌 ステップス
- 一番最初に デベロッパー タブで表示します。
- 第二に、選択 ビジュアルベーシック について コード のグループです。
- または、 を押してください。 ALT + F11 を、同じ作業をするために
注 を必ず押してください。 ALT の左側にあるキーを押します。 スペースバー を使用した場合、オペレーションは実行されません。 ALT のキーになります。
- 瞬時に Microsoft Visual Basic for Applications のウィンドウが開きます。
- その後、移動して インサート タブで表示します。
- 次に、以下を選択します。 モジュール をオプションから選択します。
- 現在、このコードを開くと モジュール .
- その後、以下のコードを モジュール .
Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub コードブレークダウン
- まず、Subプロシージャを以下のように呼び出しています。 名前付きシートの追加 .
- 次に、変数の種類を定義します。
- 後に On Error Resume Next ステートメントを使用することで、エラーは無視されます。
- その後 入力ボックス からシートの名前を取得するようにしました。 また、テキスト文字列を格納した 入力ボックス に入っています。 シート名 の変数になります。
- 次に、もし シート名 が空であれば、コードは進行しません。
- 最後に Add.Name メソッドで、新しく作成されたシートに名前を付けます。 ここでは、名前は シート名 の変数になります。
- このとき ラン (⏵) アイコンを押してください。 F5 をキーボードで入力します。
- 突然、入力ボックスが開かれる。
- ここで、新しいシートの名前を入力します。 ここでは、次のように記述しています。 利益 を箱に入れています。
- をクリックします。 よっしゃー .
- という名前のシートが追加されます。 利益 .
注 シートは、デフォルトでアクティブシートの前に配置されます。
続きを読む Excel VBAで別のワークブックにシートを追加する（3つの便利な例）
2.ExcelVBAを適用して、特定のシートの前に名前を付けてシートを追加する
2つ目の方法では、特定のシートの前に名前を付けてシートを追加します。 順を追って、その手順を探っていきましょう。
📌 ステップス
- まず、コードを表示させます モジュール のようなウィンドウが表示されます。 方法1 .
- 次に、その中に以下のコードを書き込んでください。
Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "貸借対照表" End Sub コードブレークダウン
- まず、Subプロシージャを以下のように呼び出しています。 特定のシートの前にシートを追加する .
- そして、起動します。 売上報告 これで、別のシートにいてもコードが実行されるようになります。
- 次に Add.Name というシートの前に作成されます。 利益 さらに、シートの名前を 貸借対照表 .
- その後、以下のようにコードを実行します。 方法1 .
- このように、新しいシートが追加されます 貸借対照表 というシートの前に 利益 .
続きを読む 変数名でシートを追加するExcel VBA（理想的な5つの例）
3.エクセルVBAを使って、特定のシートの後に名前を付けてシートを追加する
このメソッドでは、シートの後ろにある 利益 それでは、具体的なプロセスを見ていきましょう。
📌 ステップス
- まず、コードを表示させます。 モジュール のようなウィンドウが表示されます。 方法1 .
- その後、その中に以下のコードを書き込んでください。
Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse "終 了 Sub のコードとほぼ同様です。 方法2 ただ、ここではパラメータ 後 よりも 前 特定のシートの後に新しいシートを追加したいからです。
- その後、以下のようにコードを実行します。 方法1 .
- このように、新しいシートが追加されます 倉庫 というシートの後に 利益 .
続きを読む Excel VBAでシートが存在しない場合に追加する（クイックステップ付き）
4.ワークブックの先頭に名前をつけたシートを挿入する
このセクションでは、Excelでワークブックの先頭に新しいシートを挿入するために ブイビーエー では、早速ですが、その方法をご紹介しましょう。
📌 ステップス
- はじめに、コードを表示させる モジュール のようなウィンドウが表示されます。 方法1 .
- その後、その中に以下のコードを書き込んでください。
Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "会社案内" End Sub ここでは、ワークブックの最初のシートの前に新しいワークシートを追加しています。 つまり、ワークブックの最初にあります。 その結果、今は最初のシートになっています。 また、シートの名前を 会社概要 .
- そして、次のようなコードを実行します。 方法1 .
- したがって、新しいシートが追加されます。 会社概要 をワークブックの冒頭に表示します。
続きを読む Excelマクロ：新しいシートの作成と名前の変更（3つの理想的な例）
5.エクセルVBAを活用してワークブックの末尾にシートを追加する
この項では ワークブックの最後のシートの後にシートを追加する 以下、その手順を説明します。
📌 ステップス
- 主に、コードを開く モジュール のようなウィンドウが表示されます。 方法1 .
- 次に、その中に以下のコードを貼り付けます。
Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "損益計算書" End Sub コードブレークダウン
- まず、SubプロシージャをSheet_End_Workbookとして呼び出しています。
- 次に Add.Name メソッドを使用して、新しく作成されたシートに名前を付けます。 このシートは、ワークブックの最後のシートの後に作成します。 最後のシートの番号は シート数 さらに、シートの名前を 損益計算書 .
- その後、以下のようなコードを実行します。 方法1 .
- したがって、新しいシートが追加されます。 損益計算書 をワークブックの末尾に追加してください。
続きを読む ExcelのVBAを使用して新しいワークブックを作成し、保存する
6.エクセルVBAでセルの値を使った複数シートの導入
最後の方法は、Excelを使ってセルの範囲から名前を付けてワークブックに複数のシートを追加する方法です ブイビーエー さらに、名前を取る範囲の入力をユーザーに求めます。 では、以下の手順で見ていきましょう。
📌 ステップス
- まず、コードを開く モジュール のようなウィンドウが表示されます。 方法1 .
- その後、以下のコードをコピーして、その中にペーストしてください。
Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc in rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub コードブレークダウン
- まず、Add_Multiple_Sheets_Using_Cell_Valueとして、Subプロシージャを呼び出しています。
- 次に、変数の種類を定義します。
- その後 入力ボックス を使用して、ユーザーからデータの範囲を取得します。
- 4つ目は、シートをアクティブにすることです 売上報告 .
- 後に For Each Next ループで、選択されたセル範囲を一つずつ調べていきます。
- 次に Add.Name メソッドを使用して、新しく作成されたシートに名前を付けます。 これらのシートは、アクティブシートの後に作成します。 売上報告 ワークブックの
- では、次のようなコードを実行してください。 方法1 .
- 瞬時に Exceldemy の入力欄が開きます。
- そして、その中のセルに B5:B9 の範囲にある。
- 最後に よっしゃー .
- 最後に、挿入されます。 5 のセル値にちなんで命名されたシートです。 B5:B9 範囲、いずれもシート後 売上報告 .
結論
この記事では、Excelで名前を付けてシートを追加するための簡単で簡潔な解決策を紹介します。 ブイビーエー を忘れずにダウンロードしてください。 実践編 ファイル この記事をお読みいただきありがとうございます。 参考になりましたら幸いです。 ご不明な点やご意見がございましたら、コメント欄にてお知らせください。 弊社ホームページをご覧ください。 Exceldemy をクリックすると、さらに詳しくご覧になれます。
