文章目录
- 1、在上图的示例中要在 B 列输入日期,先选中“B 2”单元格。 2、单击数据 > 数据验证 > 数据验证。 3、在“数据验证”对话框“设置”选项卡中的“允许”下拉列表中选择“自定义”,然后在“公式栏”中输入以下公式: =AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D") 4、然后单击“错误警告”选项卡,输入要在提示框中显示的标题和错误消息。设置完成后,单击确定。 5、向下拖动填充柄到“B11”单元格。 现在,当在"B 2:B 11"范围中输入不是实际日期格式的数据时,将弹出一个提示框提醒。
- 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日期批量往后挪一年技巧
在 Excel 表格中如何让单元格只允许输入日期格式?在本文中,我将分享给大家两种实用方法,教你如何在 Excel 中设置特定单元格的日期格式限制。

微软Office LTSC 2021专业增强版 简体中文批量许可版 2024年09月更新
- 类型:办公软件
- 大小:2.2GB
- 语言:简体中文
- 时间:2024-09-12
查看详情

1、在上图的示例中要在 B 列输入日期,先选中“B 2”单元格。
2、单击数据 > 数据验证 > 数据验证。
3、在“数据验证”对话框“设置”选项卡中的“允许”下拉列表中选择“自定义”,然后在“公式栏”中输入以下公式:
=AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D")

4、然后单击“错误警告”选项卡,输入要在提示框中显示的标题和错误消息。设置完成后,单击确定。
5、向下拖动填充柄到“B11”单元格。

现在,当在"B 2:B 11"范围中输入不是实际日期格式的数据时,将弹出一个提示框提醒。
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日期批量往后挪一年技巧