请问一下，如何防止输入错误的时间格式？

马小呆 · 发表于 2023-5-25 10:44

请看附件里的描述，谢谢。

suntao2000 · 发表于 2023-5-25 11:43

你想变成什么样的呢？

马小呆 · 发表于 2023-5-25 11:50

suntao2000 发表于 2023-5-25 11:43
你想变成什么样的呢？

意思就是输入数字后，变成一个时间。数字长度禁止输入4位以上。

当然我的想法可能有瑕疵，或是不足地方，大概的意思就这样的。

输入一个数字和两个数字 = 分钟。（禁止大于 60）
例如：
20 = 00:20
1 = 00:01

输入三个数字 = 小时+分钟。（后两位等于分钟，禁止大于60）
例如：
520 = 05:20
123 = 01:23

855 = 08:55

输入四个数字 = 小时+分钟。（前两位和后两位，禁止大于60）
例如：
1520 = 15:20
1123 = 11:23

1855 = 18:55

suntao2000 · 发表于 2023-5-25 12:14

Private Sub Worksheet_Change(ByVal Target As Range)
Target.NumberFormat = "00:00"
End Sub

suntao2000 · 发表于 2023-5-25 12:15

本帖最后由 suntao2000 于 2023-5-25 14:47 编辑

你这样说肯定是有输入错的时候，你是想在输错的时候禁止录入并提示吗，还是输错后变成正确的如1260 变成13:00, 5555变成 07:55

liulang0808 · 发表于 2023-5-25 13:17

附件内容供参考，细节楼主自行修正吧

马小呆 · 发表于 2023-5-25 16:17

liulang0808 发表于 2023-5-25 13:17
附件内容供参考，细节楼主自行修正吧

版主，我按你的代码修改了一下，效果不错，但是有两个小问题，不知可否看看。

dzsrmyh · 发表于 2023-5-25 16:32

马小呆发表于 2023-5-25 16:17
版主，我按你的代码修改了一下，效果不错，但是有两个小问题，不知可否看看。

If Len(字符) = 4 And Left(字符, 2) > 23 Or Right(字符, 2) > 59 Then，你前两位是不能大于24的，改为If Len(字符) = 4 And Left(字符, 2) > 59 Or Right(字符, 2) > 59 Then最大可输入5959

micch · 发表于 2023-5-25 17:53

本帖最后由 micch 于 2023-5-25 17:55 编辑

if format(x,"0000") like "[01][0-9][0-5][0-9]" or format(x,"0000") like "2[0-4][0-5][0-9]" then

复制代码

马小呆 · 发表于 2023-5-25 19:30

dzsrmyh 发表于 2023-5-25 16:32
If Len(字符) = 4 And Left(字符, 2) > 23 Or Right(字符, 2) > 59 Then，你前两位是不能大于24的，改为I ...

谢谢提醒，我只需要输入时和分。最大也就是23:59。最小00:01

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

[求助] 请问一下，如何防止输入错误的时间格式？

评分