WorkSheet_change事件的疑问

vablearner · 发表于 2018-10-15 18:06

我的VBA程序目的：如果用户输入943, 那么自动变成时间格式9:43.

写了以下程序，发现输入几次，程序就不会自动变成时间格式了。怀疑是Application.EnableEvents = False用法有问题。
请大神帮忙解决一下。

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Target.Column <= 6 And Target.Column >= 2 Then

h = Left(Target.Value, Len(Target.Value) - 2) / 24
m = Right(Target.Value, 2) / (24 * 60)
[aa1] = h + m
Target.NumberFormatLocal = "h:mm"
Target.Value = [aa1].Value
End If
[aa1].ClearContents
Application.EnableEvents = True

End Sub

李甲 · 发表于 2018-10-15 19:10

本帖最后由李甲于 2018-10-16 08:08 编辑

TRY IT

vablearner · 发表于 2018-10-15 19:53

李甲发表于 2018-10-15 19:10
你的怀疑是正确的

请问如何解决？

必缚苍龙 · 发表于 2018-10-15 21:19

你的代码没问题啊！你再试试！

vablearner · 发表于 2018-10-16 07:59

必缚苍龙发表于 2018-10-15 21:19
你的代码没问题啊！你再试试！

一般输入十几次就出现问题了。。非常奇怪

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

[求助] WorkSheet_change事件的疑问