特定の数のワークシートで新しいワークブックを作成するにはどうすればよいですか？

通常、新しいブックを作成すると、デフォルトでExcel 2007/2010では2013つのワークシート、ExcelXNUMXではXNUMXつのシートが含まれます。 後で、必要に応じてタブを追加または削除できます。 しかし、必要なたびに特定の数のワークシートを使用して新しいワークブックを作成しようとしたことがありますか？

VBAコードを使用して、特定の数のワークシートで新しいワークブックを作成します

Kutools for Excelを使用して、特定の数のワークシートで新しいワークブックを作成します

VBAコードを使用して、特定の数のワークシートで新しいワークブックを作成します

次のVBAコードを使用して、特定の数のタブを含む新しいブックを作成できます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：特定の数のワークシートを使用して新しいワークブックを作成します

Sub MakeWorkbook()
'update Extendoffice
    Dim xOldCount As Integer
    Dim xNewCount As Variant
    xOldCount = Application.SheetsInNewWorkbook
    xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Kutools for Excel", , , , , , 1)
    If xNewCount = False Then Exit Sub
    If (xNewCount < 1) Or (CLng(xNewCount) > 255) Then
        MsgBox "The number must between 1 and 255!"
        Exit Sub
    End If
    With Application
        .SheetsInNewWorkbook = xNewCount
        .Workbooks.Add
        .SheetsInNewWorkbook = xNewCount
    End With
End Sub

3. コードを貼り付けたら、を押します F5 このコードを実行するためのキーを押し、プロンプトボックスに、ワークブック内に必要なシートの数を入力してください。スクリーンショットを参照してください。

4。 次に、をクリックします OK ボタンをクリックすると、必要なシート数を指定して新しいワークブックが作成されます。

Kutools for Excelを使用して、特定の数のワークシートで新しいワークブックを作成します

VBAコードに慣れていない場合は、便利なツールを適用できます– Kutools for Excelそのと シーケンスワークシートの作成 ユーティリティを使用すると、デフォルトのシート名、カスタムシート名などを使用して新しいワークブックをすばやく作成できます。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 Enterprise > ワークシート > シーケンスワークシートの作成、スクリーンショットを参照してください：

2. シーケンスワークシートの作成 ダイアログボックスで、次の操作を実行します。

（1.）選択 空白のワークシート 下 基本ワークシート ドロップダウンリスト;

（2.）新しいワークブック内のシート数を下に入力します 作成の数 テキストボックス;

（3.）から に基づくシート名 セクション、選択 Excelのデフォルト名 オプションを選択します。

今すぐExcel用Kutoolsを無料でダウンロード

3。 次に、をクリックします OK ボタンをクリックすると、特定の数のワークシートで新しいワークブックが作成されます。

このCreateSequenceWorksheetユーティリティの詳細については、ここをクリックしてください…

今すぐExcel用Kutoolsを無料でダウンロード

関連記事：

Excelのセルの範囲からシーケンスワークシートを作成するにはどうすればよいですか？

Excelで現在の日付の新しいワークシートを追加するにはどうすればよいですか？