难题：vba判断某单元格内的数值是否为日期

kakadian · 发表于 2006-9-12 23:41

我的设想是，用程序对表格里人工输入的数据进行检查。

如果有人在应该为日期的格里输入了文本，或者干脆改了单元格的格式，弄了个小数在里面，那么我这个程序应该能检查出来。

这个如何实现呢？

有没有这个vba函数函数阿？

烟雨任平生 · 发表于 2006-9-13 02:37

用数据有效性就可以了啊，为什么要VBA函数检查呢？

不过要用函数的话，IsDate是可以的。

IsDate 函数

返回 Boolean 值，指出一个表达式是否可以转换成日期。

语法

IsDate(expression)

必要的 expression 参数是一个 Variant，包含日期表达式或字符串表达式，这里的字符串表达式是可以作为日期或时间来认定的。

说明

如果表达式是一个日期，或可以作为有效日期识别，则 IsDate 返回 True；否则返回 False。在 Microsoft Windows 中，有效日期的范围介于公元 100 年 1 月 1 日与公元 9999 年 12 月 31 日之间；其有效范围随操作系统不同而不同。

andrewyang · 发表于 2011-7-20 18:44

谢谢高人指点，学习了呵呵

y_long · 发表于 2014-12-24 17:20

x = IsDate(Range("C3"))
If x = True Then
      Range("C3").Select
      Selection.Copy
      Range("F5").Select
      ActiveSheet.Paste
Else
      Exit Sub
End If

哈哈..这样就适合我用了!!!

kaheen · 发表于 2016-7-8 21:51

正好我也用得到，这个问题VBA比EXCEL好用得多。

ning84 · 发表于 2022-12-15 12:57

y_long 发表于 2014-12-24 17:20
x = IsDate(Range("C3"))
If x = True Then
Range("C3").Select

Set Rng = Selection
Debug.Print IsDate(Format(Rng.Value, "hh:mm"))

复制代码

		自动登录	找回密码
密码			免费注册

难题：vba判断某单元格内的数值是否为日期

IsDate 函数

评分