某一列限定输入日期格式

athena_chen123

各位高手，在网上看了很久自己编了段代码，为了完成限定指定工作表中“F”列只能输入“yyyy/mm/dd"格式的日期，要是日期型的哟，但是不能运行，无论怎么输入都说我的输入格式不对。求修改！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Column <> 6 Then Exit Sub
    If Target.NumberFormatLocal <> "yyyy/mm/dd" Then
    Application.EnableEvents = False
        MsgBox "请按照“YYYY/MM/DD”格式输入年月日！", 64
        Target = ""
    Application.EnableEvents = True
End If
End Sub

爱疯

对该列设置数据有效性不行吗

suye1010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target = "" Then Exit Sub
   
4. If Target.Column <> 1 Then
   
5.     Exit Sub
   
6. Else
   
7.     Target.NumberFormatLocal = "YYYY/MM/DD"
   
8. End If
   
9. If Not Target.Text Like "####/##/##" Then
   
10.      Application.EnableEvents = False
    
11.          MsgBox "请按照“YYYY/MM/DD”格式输入年月日！", 64
    
12.          Target = ""
    
13.      Application.EnableEvents = True
    
14. End If
    
15. End Sub

复制代码

Target.NumberFormatLocal 可以返回和设置单元格的格式，这个跟判断输入的格式是否与要求相符没有关系。 Target.Text是返回单元格显示的内容。日期在Excel中实际就是一个数字。

yyyydddd8888

我也做了一个：
限制以日期格式输入.rar (8.04 KB, 下载次数: 6)

2014-1-3 17:10 上传

点击文件名下载附件