メインコンテンツへスキップ

Excelで特定の名前の新しいシートを追加するにはどうすればよいですか?

新しいシートを作成し、Excelで特定の名前を自動的に付けたい場合があります。 この記事では、現在のブックに特定の名前の新しいシートを追加する方法と、Excelの新しいブックに特定の名前のワークシートを作成するXNUMXつの方法を紹介します。

VBAコードを使用して、現在のブックに特定の名前の新しいシートを自動追加する
Kutools for Excelを使用して、新しいブックに特定の名前の新しいシートを自動追加する


VBAコードを使用して、現在のブックに特定の名前の新しいシートを自動追加する

次のVBAコードを使用して、現在のブックの最後に特定の名前の新しいシートを追加できます。

1。 押す 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール.

3.以下のVBAコードをコピーしてに貼り付けます モジュール 窓。

VBAコード:現在のワークブックの最後に特定の名前の新しいシートを追加します

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4。 押す F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、このシートの名前を入力して、[ OK ボタン。 スクリーンショットを参照してください:

次に、特定の名前で新しいワークシートが作成され、現在のワークブックの最後に配置されます。


Kutools for Excelを使用して、新しいブックに特定の名前の新しいシートを自動追加する

このセクションでは、 シーケンスワークシートの作成 の有用性 Kutools for Excel。 このユーティリティを使用すると、新しいブックに特定の名前の新しいシートを簡単に追加できます。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1.特定の名前で新しいシートを追加するには、事前にこの名前をセルに入力する必要があります。 そして、 クツールズプラス > ワークシート > シーケンスワークシートの作成.

2。 の中に シーケンスワークシートの作成 ダイアログボックスで 空白のワークシート セクションに 基本ワークシート ドロップダウンリスト、選択 且つ範囲内 オプションをクリックし、特定のワークシート名を含むセルを指定して、最後に[ OK ボタン。 スクリーンショットを参照してください:

次に、セルからこの特定の名前の新しいワークシートが新しいワークブックにすぐに作成されます。

ノート:

1.特定の名前で複数の新しいシートを同時に作成する場合は、これらの名前をセルにXNUMXつずつ入力してから、セルでこれらのセルを選択してください。 範囲内のデータ ボックス。
2.これを使用して、シリーズ番号またはカスタムリストからシーケンスワークシートを作成することもできます。 シーケンスワークシートの作成 ユーティリティ。 スクリーンショットを参照してください:

  このユーティリティの無料トライアル(30日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations