Excel で締切日までの残り日数を計算するには、どうすればよいですか？

著者Xiaoyang変更日2025-08-12

日常業務やプロジェクト管理において、締切日まであと何日あるかを正確に把握することは極めて重要です。たとえば、締切日の一覧をもとに、タスクや課題、契約の満了日、プロジェクトのマイルストーンなどについて、それぞれの残り日数を的確に監視する必要があるでしょう。残り日数を効率よく計算できれば、重要な期日を見逃すことなく、スケジュール管理やタイムマネジメントをさらに強力にサポートできます。本記事では、Excel で締切日までの残り日数を計算する実用的な方法を、さまざまなニーズに合わせたステップ・バイ・ステップのガイドとともに詳しく解説します。

数式で締切日までの残り日数を計算する
VBA コード – 残り日数の計算を自動化し、必要に応じて遅延した締切日をハイライトまたは通知する

数式で締切日までの残り日数を計算する

各締切日までの残り日数を素早く計算したい場合は、Excel にシンプルな数式を使った解決策があります。これは、静的なリストや現在の日付に基づいて定期的に再計算が必要な場合に最適です。

1。結果を表示したい空白セル（たとえば、列 A の締切日の隣にある列 B など）に、次の数式を入力してください。

=A2-TODAY()

この数式は、セル A2 の締切日から今日の日付（)TODAY()関数で取得）を引いて、残り日数を算出します。

数式を入力したら、フィルハンドルを下にドラッグして、締切日を含む他の行にもこの計算を適用してください（下図参照）。

2。計算結果が数値として正しく表示されるよう、結果セルの書式を標準に設定してください。ホームタブをクリックし、数値の書式ドロップダウンから標準を選択します（下図参照）。

結果セルの書式を変更する画面のスクリーンショット

注意点と実用的なヒント：

締切日がすでに過ぎている場合（つまり、今日より前の日付の場合）、結果は負の数となり、遅延日数を示します。
負の値を表示したくない場合（たとえば、遅延タスクには0 を表示するなど）、以下の代替数式をご利用ください。

=MAX(0,A2-TODAY())

この数式は、計算された残り日数と0 を比較し、大きい方を表示することで、負の数を自動的に0 に置き換えます。

負の数を0に置き換える方法を示すスクリーンショット

この方法は、残り日数（非負の値）だけに注目したい場面——たとえば、未完了のタスクや今後の契約満了日など——で特に役立ちます。

締切日の日付が常に有効なExcel の日付値であることをご確認ください。不正な日付やテキスト形式の日付を使用すると、計算エラーや予期しない結果が発生する可能性があります。
TODAY()を含む数式は、ワークシートを開いたり再計算したりするたびに自動的に更新されます。
営業日（週末や祝日を除く）で計算したい場合は、NETWORKDAYS 関数の使用をぜひご検討ください。

締切日の一覧を定期的に確認し、残り日数を再計算することで、今後の締切日を的確に予測・対応する力が大幅に向上します。さらに高度な自動化や視覚的なリマインダーをご希望の場合は、以下の VBA ソリューションをご参照ください。

素晴らしい！Excel でChrome、Edge、Firefox、Safari のような効率的な Tabs をご利用いただけます！
毎日数千回のマウスクリックを削減し、50% もの時間を節約できます！

VBA コード – 残り日数の計算を自動化し、必要に応じて遅延した締切日をハイライトまたは通知する

多数の締切日を管理するユーザー、または業務の効率化を図りたいユーザーにとって、VBA による残り日数計算の自動化は手作業を大幅に削減できます。この方法は、特にExcel に追加の操作（たとえば、遅延した締切日を自動的にハイライト表示したり、通知を表示したりするなど）を実行させたい場合に非常に有効で、重要な日付を見落とすリスクを軽減します。

1。この方法を使用するには、まだ表示されていない場合は開発タブを有効にしてください（[ファイル] > [オプション] > [リボンのユーザー設定]で)開発をチェック）。次に、開発タブからVisual Basicをクリックして VBA エディターを開きます。VBA ウィンドウで、挿入 > 標準モジュールをクリックし、以下の VBA コードを貼り付けてください。

Sub CalculateAndHighlightDaysLeft()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim deadlineCol As String
    Dim resultCol As String
    Dim daysLeft As Long
    Dim cell As Range
    
    On Error Resume Next
    
    ' Configure columns as needed below:
    deadlineCol = "A" ' Column containing deadlines
    resultCol = "B" ' Column to place days left calculation
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, deadlineCol).End(xlUp).Row
    
    For i = 2 To lastRow
        If IsDate(ws.Cells(i, deadlineCol).Value) Then
            daysLeft = ws.Cells(i, deadlineCol).Value - Date
            ws.Cells(i, resultCol).Value = daysLeft
            
            ' Highlight overdue deadlines
            If daysLeft < 0 Then
                ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 185, 185) ' Light red fill
                
                ' Optionally show popup message for overdue (uncomment next line if desired)
                ' MsgBox "Row " & i & " is overdue! Deadline: " & ws.Cells(i, deadlineCol).Text, vbExclamation, "KutoolsforExcel"
            Else
                ws.Cells(i, deadlineCol).Interior.Pattern = xlNone
            End If
        Else
            ws.Cells(i, resultCol).Value = "Invalid date"
            ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 235, 156) ' Yellow fill for invalid data
        End If
    Next i
End Sub

2。VBA エディターを閉じてワークシートに戻り、Alt+F8 を押してください。表示されたダイアログで、CalculateAndHighlightDaysLeftを選択し、実行をクリックすると、列 A の各行（2 行目以降）の日付が処理され、列 B に残り日数が自動で書き込まれます。今日より前の日付（遅延している締切日）は薄い赤色でハイライトされ、無効な日付が含まれるセルは黄色で塗りつぶされて、結果列に「Invalid date」と表示されます。

ヒント：

コード内のdeadlineColおよびresultCol 締切日が別の列にある場合は、変更可能です。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。