Question

我正在构建一个用户表单，以跟踪执行某项操作所需的时间，并将其与应该花费的时间进行比较。

我的代码大部分时间都在运行，但是偶尔尝试输入范围内的时间值时，我会遇到运行时50290错误。

Dim TargetRow As Integer
TargetRow = Sheets("Engine").Range("B3").Value + 1 'engine B3 is current amount of entries in form  

Dim TargetRow2 As Integer
    TargetRow2 = Sheets("Engine").Range("I3").Value + 1

txt_Material1.Value = Sheets("RPRT").Range("C5").Offset(TargetRow - 1, 0).Value
txt_Hose1.Value = Sheets("RPRT").Range("C5").Offset(TargetRow - 1, 1).Value
txt_Quantity1.Value = Sheets("RPRT").Range("C5").Offset(TargetRow - 1, 2).Value

'Runtime 50290 error occurs at line of code below
Sheets("RPRT").Range("C5").Offset(TargetRow - 1, 3).Value = "'" & Format(Now, "hh:mm:ss")

lbl_PlanTime = Format(Sheets("RPRT").Range("C5").Offset(TargetRow - 1, 6).Value, "hh:mm:ss")
lbl_Timer = "00:00:00"
timer = True

Do While timer 'allows the timer to start counting
    Application.Wait (Now + #12:00:01 AM#)
    DoEvents
    lbl_Timer = Format(DateAdd("s", 1, lbl_Timer), "hh:mm:ss")
Loop

End Sub

Answer 1

请尝试以下操作并提供退款：

Option Explicit

Sub test()

    With Sheets("RPRT").Range("C5").Offset(TargetRow - 1, 3)
        .Value = Now 'Here check if the right cell get the right value
        .NumberFormat = "[$-x-systime]h:mm:ss AM/PM"
    End With

End Sub

尝试在范围中输入时间值时，运行时50290错误

1 个答案: