[已解决]如何用vba限定单元格输入日期格式

黄花菜

工作表C列为出生年月，请教如何用VBA限定该列只能输入xxxx-xx-xx的日期格式，如不对，则提示并清除，谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2012-3-30 16:13

黄花菜 发表于 2012-3-30 09:19
谢谢指点，但是我试验下来如果输入abc，不报错是什么原因

这个问题没考虑，修改一下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 And Target.Count <> 1 Then Exit Sub
    If Target.Value <> Format(Target, "YYYY-MM-DD") Or Not IsDate(Target.Value)  Then
        Application.EnableEvents = False
        MsgBox "请按照“YYYY-MM-DD”格式输入年月日！"
        Target = ""
        Application.EnableEvents = True
    End If
End Sub
年月日输入格式.rar (6.56 KB, 下载次数: 234)

2012-3-30 16:13 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

年月日输入格式.rar (6.56 KB, 下载次数: 82)

2012-3-30 16:17 上传

点击文件名下载附件

1091126096

1. Sub Macro1()
   
2.     Columns("C:C").Select
   
3.     Selection.NumberFormatLocal = "yyyy-m-d"
   
4. End Sub
   

复制代码

黄花菜

zjdh 发表于 2012-3-30 08:17

谢谢指点，但是我试验下来如果输入abc，不报错是什么原因

1091126096

1. 
   
2. 
   
3. Sub Macro1()
   
4.   Range("C2:C10000").Select
   
5.     Selection.NumberFormatLocal = "yyyy-m-d"
   
6.     With Selection.Validation
   
7.         .Delete
   
8.         .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
   
9.         xlBetween, Formula1:="1/1/1980", Formula2:="12/31/2100"
   
10.         .IgnoreBlank = True
    
11.         .InCellDropdown = True
    
12.         .InputTitle = ""
    
13.         .ErrorTitle = "出错了"
    
14.         .InputMessage = ""
    
15.         .ErrorMessage = "日期格式不对"
    
16.         .IMEMode = xlIMEModeNoControl
    
17.         .ShowInput = True
    
18.         .ShowError = True
    
19.     End With
    
20. End Sub
    

复制代码

zjdh

黄花菜 发表于 2012-3-30 09:19
谢谢指点，但是我试验下来如果输入abc，不报错是什么原因

这个问题没考虑，修改一下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 And Target.Count <> 1 Then Exit Sub
    If Target.Value <> Format(Target, "YYYY-MM-DD") Or Not IsDate(Target.Value)  Then
        Application.EnableEvents = False
        MsgBox "请按照“YYYY-MM-DD”格式输入年月日！"
        Target = ""
        Application.EnableEvents = True
    End If
End Sub
年月日输入格式.rar (6.56 KB, 下载次数: 234)

2012-3-30 16:13 上传

点击文件名下载附件

zjdh 发表于 2012-3-30 08:17

看这个不太懂，您能够把原理介绍一下么

hunter4162003

感觉3楼的办法更好呀