如何在 Excel 的特定單元格中只允許日期格式？

Author Xiaoyang Last modified 2025-08-23

在 Excel 中限制特定單元格只允許日期格式，對於確保數據一致性非常有用。本指南介紹了兩種方法：使用「資料驗證」功能或簡單的 VBA 程式碼來強制在選定的單元格中只輸入日期。

使用資料驗證功能在特定單元格中只允許日期格式

在 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. 完成設置後，點擊「確定」按鈕，現在，當您輸入不是有效日期格式的數據時，將會彈出一個提示框通知您，如下方截圖所示：

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

使用 VBA 程式碼在特定單元格中只允許日期格式

第二種方法介紹了一個用於完成此任務的 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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多