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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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