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

財務担当者や営業担当者の中には、日常業務の統計のために、毎日現在の日付の新しいワークシートを挿入する必要がある場合があります。 新しいワークシートを挿入してから手動で名前を変更すると、面倒になります。 今日は、この問題に対処するためのいくつかの簡単なトリックを紹介します。

VBAコードを使用して、現在の日付の新しいワークシートを追加します

Kutools for Excelを使用して、連続した日付の新しいワークシートを追加します

VBAコードを使用して、現在の日付の新しいワークシートを追加します

次のVBAコードは、コードを毎日実行するときに、現在の日付の新しいワークシートを挿入するのに役立ちます。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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

VBAコード：現在の日付の新しいワークシートを追加します

Sub AddSheets_TodayDate()
'Updateby20140717
    Dim szTodayDate As String
    szTodayDate = Format(Date, "mmm-dd-yyyy")
    On Error GoTo MakeSheet
    Sheets(szTodayDate).Activate
    Exit Sub
MakeSheet:
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = szTodayDate
End Sub

3。 次に、 F5 このコードを実行するためのキー。既存のワークシートの後に、今日の日付の新しいシートが挿入されています。 スクリーンショットを参照してください：

Note：このブックを保存して閉じるときは、次のように保存してください Excelマクロが有効なブック クリックしてフォーマット File > 名前を付けて保存。 また、翌日にワークブックを起動するときは、必ずクリックしてください コンテンツを有効にする、コードを正常に実行して新しい日付ワークシートを追加できるようにします。

Kutools for Excelを使用して、連続した日付の新しいワークシートを追加します

上記のコードは、一度に現在の日付のワークシートをXNUMXつだけ挿入するのに役立ちます。連続した日付のワークシートを複数挿入する場合は、このユーティリティを使用します。 シーケンスワークシートの作成 of Kutools for Excel あなたに有利になります。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.

Kutools for Excelをインストールしている場合は、次のようにしてください。

1。 空白のセルに今日の日付を入力し、塗りつぶしハンドルをドラッグして、必要に応じてセルに日付シーケンスを入力してください。

2。 次に、をクリックします クツールズプラス > ワークシート > シーケンスワークシートの作成.

3。 の中に シーケンスワークシートの作成 ダイアログボックスで、から新しいシートを作成するワークシートを指定します 基本ワークシート ドロップダウンリスト。 そして、 範囲内のデータ 下のオプション に基づくシート名 シート名として使用するデータ範囲を選択するセクション。 スクリーンショットを参照してください：

4。 次に、をクリックします OK、およびシート名が日付順になっている新しいワークブックが作成されます。 スクリーンショットを参照してください：

このシーケンスワークシートの作成機能の詳細については、こちらをご覧ください。

関連記事：

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