Ошибка выполнения 50290 При попытке ввести значение времени в диапазон - PullRequest
Новая
       19

Ошибка выполнения 50290 При попытке ввести значение времени в диапазон

0 голосов
/ 19 декабря 2018

Я создаю пользовательскую форму, чтобы отслеживать время, необходимое для выполнения чего-либо, и сравнивать его с тем, сколько времени это должно было занять.

Мой код выполняется большую часть времени, но время от времени я сталкиваюсь сОшибка выполнения 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

1 Ответ

0 голосов
/ 19 декабря 2018

Попробуйте нижеприведенное и укажите обратную связь: 

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
...