Excelで特定のセルに日付形式のみを許可するにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

Excelで特定のセルに日付形式のみを許可することで、データの一貫性を確保するのに役立ちます。このガイドでは、データの検証機能を使用する方法と、選択したセルでの日付入力を強制する簡単なVBAコードの2つの方法を紹介します。

データの検証機能を使用して特定のセルに日付形式のみを許可する

Excelでは、データの検証はドロップダウンリストを作成したり、重複の入力を防止したりできる強力な機能です。また、特定のセルで日付以外のデータ形式が入力されるのを防ぐこともできます。以下の手順で行ってください：

1. [データ] > [データの検証] > [データの検証] をクリックしてください。スクリーンショットをご覧ください：

A screenshot of the Data Validation menu in Excel

2. [データの検証] ダイアログボックスで、[設定] タブをクリックし、[許可] ドロップダウンリストから「カスタム」を選択して、次の数式を数式テキストボックスに入力します：=AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D")。スクリーンショットをご覧ください：

A screenshot of the Data Validation Settings tab with a custom formula entered to restrict input to date format

注釈: 上記の数式において、B2 はデータ形式を制限したい列の最初のセルです。

3. 次に、ダイアログボックスの [エラーメッセージ] タブをクリックし、以下の手順を行ってください：

A screenshot showing the Error Alert tab in Data Validation settings in Excel

(1.) 無効なデータが入力された後にエラーメッセージを表示するオプションをチェックします；

(2.) [スタイル] ドロップダウンで、「停止」オプションを選択してください；

(3.) 表示したいタイトルとエラーメッセージを入力します。

4. 設定が完了したら、[OK] ボタンをクリックします。これで、有効な日付形式ではないデータを入力すると、次のスクリーンショットのように通知するプロンプトボックスが表示されます：

A screenshot of an error alert prompt in Excel indicating invalid data entry for a non-date format

VBAコードを使用して特定のセルに日付形式のみを許可する

2番目の方法では、このタスクを達成するためのVBAコードを紹介します。

1. 使用したいワークシートをアクティブにします。

2. そして、シートタブを右クリックし、コンテキストメニューから [コードの表示] を選択します。スクリーンショットをご覧ください：

A screenshot showing the context menu to access View Code for a worksheet in Excel

3. 表示された Microsoft Visual Basic for Applications ウィンドウで、以下のコードをコピーしてモジュールに貼り付けます。スクリーンショットをご覧ください：

VBAコード: 特定のセルに日付形式の入力のみを許可する：

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub

A screenshot of VBA code in the Visual Basic for Applications editor

4. コードを保存して閉じます。これで、範囲 B2:B12 で日付形式ではない値を入力すると、プロンプトボックスがポップアップして通知し、同時にセルの値がクリアされます。スクリーンショットをご覧ください：

A screenshot of a VBA error prompt in Excel indicating invalid data entry for a non-date format

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数