excel学习库

在 Excel 表格中如何让单元格只允许输入日期格式？在本文中，我将分享给大家两种实用方法，教你如何在 Excel 中设置特定单元格的日期格式限制。

使用 Excel 中的数据验证功能

1、在上图的示例中要在 B 列输入日期，先选中“B 2”单元格。
2、单击数据 > 数据验证 > 数据验证。
3、在“数据验证”对话框“设置”选项卡中的“允许”下拉列表中选择“自定义”，然后在“公式栏”中输入以下公式：

=AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D")

4、然后单击“错误警告”选项卡，输入要在提示框中显示的标题和错误消息。设置完成后，单击确定。

5、向下拖动填充柄到“B11”单元格。

现在，当在"B 2：B 11"范围中输入不是实际日期格式的数据时，将弹出一个提示框提醒。

使用 VBA 代码

1、鼠标移至工作表标签上，单击右键在菜单中选择“查看代码”。

2、将以下代码复制并粘贴到 VBA 代码窗口中。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("B2:B11") ' 修改为你的特定单元格范围

    If Not Intersect(Target, rng) Is Nothing Then
        Application.EnableEvents = False

        If Not IsDate(Target.Value) Then
            MsgBox "只允许输入日期格式！", vbExclamation, "格式错误"
            Target.ClearContents
            Target.Select
        End If

        Application.EnableEvents = True
    End If

End Sub

3、然后保存并关闭 vba 代码窗口。

现在，当在范围 "B 2：B 11" 中输入不是日期格式的值时，会弹出一个提示框提醒，并且单元格值将同时清除。

我是 Excel 从繁到简，关注我，持续分享更多的 Excel 技巧！