求段有效日期的判断代码，谢谢大神们

760636412 · 发表于 2024-12-19 16:14

详细如附件，谢谢大神们:

有效日期.zip (8.56 KB, 下载次数: 5)

跪求路过大神指点指点，谢谢

ykcbf1100 · 发表于 2024-12-19 16:33

12-32本来就是字符串，不能算日期的。平时要养成好的习惯，不要用不规范的日期格式。

饮冰e士 · 发表于 2024-12-19 17:21

饮冰e士 · 发表于 2024-12-19 17:22

这种，用数据验证比较方便。

ykcbf1100 · 发表于 2024-12-19 17:26

饮冰e士发表于 2024-12-19 17:22
这种，用数据验证比较方便。

是这种日期：“12-32”。这个要转换后才可以判断。

饮冰e士 · 发表于 2024-12-19 20:14

ykcbf1100 发表于 2024-12-19 17:26
是这种日期：“12-32”。这个要转换后才可以判断。

我觉得楼主可能是想要这种效果，不是有效日期的形式可能有很多种情况

760636412 · 发表于 2024-12-19 21:10

饮冰e士发表于 2024-12-19 20:14
我觉得楼主可能是想要这种效果，不是有效日期的形式可能有很多种情况

谢谢，可以理解为，固定一个单元格，只能输入日期，有时手快，加个点，或者当月没有31号，弄错了，是想避免这样的错误发生的,感谢提供的思路,

boyayes · 发表于 2024-12-19 22:33

本帖最后由 boyayes 于 2024-12-19 22:35 编辑

单元格设置为日期格式，可以是自定义的日期格式。

试一下这个代码：

Sub shishi()
'判断是不是空值，是空值则无需提示直接退出程序
If IsEmpty(Range("K9").Value2) = True Then Exit Sub '退出sub
'判断是不是日期，不是则提示并退出程序
If IsDate(Range("K9").Value2) = False Then MsgBox "输入的不是日期", 16: Exit Sub '退出sub
'下面写你的程序代码即可：
End Sub

复制代码

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

[求助] 求段有效日期的判断代码，谢谢大神们