Excel で特定のセルに日付形式の入力のみを許可するには、どうすればよいですか?
Excel で特定のセルに日付形式のみを許可すれば、データの一貫性をしっかり確保できます。このガイドでは、データの検証機能を使う方法と、簡単な VBA コードで選択したセルに日付形式を強制する方法の2 つをご紹介します。
データの検証機能で特定のセルにのみ日付形式を許可する
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 に日付形式以外の値を入力した瞬間、プロンプトボックスが表示されると同時にセルの値がクリアされます(下記スクリーンショット参照)。

最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべての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 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得