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

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

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

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

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

在 Excel 中，資料驗證是一個強大的功能，可以幫助您創建下拉列表、防止重複項等。它還可以幫助您防止在特定單元格中輸入除日期以外的任何數據格式。請按照以下步驟操作：

1. 點擊「資料」>「資料驗證」>「資料驗證」，見截圖：

2. 在「資料驗證」對話框中，點擊「設定」標籤，然後從「允許」下拉列表中選擇「自訂」，然後在「公式」文本框中輸入此公式：=AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D")，見截圖：

注意：在上述公式中，B2 是您要限制數據格式的列的第一個單元格。

3. 接下來，在對話框中點擊「錯誤警告」標籤並執行以下步驟：

（1.）勾選「輸入無效數據後顯示錯誤警告」選項；

（2.）在「樣式」下拉菜單中，請選擇「停止」選項；

（3.）輸入您希望在提示框中顯示的標題和錯誤消息。

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

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

第二種方法介紹了一個用於完成此任務的 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 中輸入非日期格式的值時，將彈出一個提示框提醒您，同時該單元格的值將被清除，見截圖：