求助，，在线等待，找不到工程裤。如何处理。。

lovily22

Sub Fast()
    On Error GoTo EnterError    '如果有错误就跳往EnterTimeError语句
    If Intersect(Application.Caller, Range("fasttime")) Is Nothing Then
        Exit Sub    '如果是非"fasttime"区域的单元 格被改变，则结束过程
    End If
    '如果输入值小于1或者大于2400，则显示对话框用户输入值非法
    If Application.Caller < 1 Or Application.Caller > 2400 Then
        MsgBox "对不起，您的输入值非法！", vbExclamation
        Application.Caller.Value = ""
        Exit Sub
    End If
    '\ 将输入值改成 HH:MM格式
    Application.Caller.Value = Format(Application.Caller, "00:00")
    Exit Sub                          找不到工程裤
EnterError:                        帮忙谢谢
    Exit Sub
End Sub

lovily22

怎么没人理我啊