由于时间输入格式不正确，运行时 13 错误

Question

我有使用特定时间格式将时间输入值移动到字段的代码。但是，在输入时间时，如果输入的格式不正确，用户会收到 Runtime 13 错误，然后只能关闭用户窗体，停止代码运行，然后重试。我可以格式化一条消息以返回一个错误，告诉用户更正输入但我使用什么代码将用户放回该字段并允许他们进行更正？我将这个用户表单文本框的代码放在这里以供参考：

Private Sub txtDepartTime_AfterUpdate()
'When time is entered, time transfers immediately to spreadsheet datafield.

Dim TargetRow As Integer
TargetRow = Sheets("Codes").Range("D43").Value + 1

With Sheets("Travel Expense Voucher").Range("Data_Start").Offset(TargetRow, 25)
 .Value = TimeValue(txtDepartTime)
 .NumberFormat = "hh:mm" 'departure time

 End With

End Sub

Answer 1

首先测试 txtDepartTime 是否可以转换为时间。如果不能，则通知用户并退出执行，以便他们重新输入时间。

Private Sub txtDepartTime_AfterUpdate()
'When time is entered, time transfers immediately to spreadsheet datafield.

Dim TargetRow As Integer, TestTime As Date

On Error Resume Next
TestTime = TimeValue(txtDepartTime)
On Error GoTo 0

If TestTime = 0 Then
    MsgBox "Time entered is not valid. Please try again.", vbExclamation
    Exit Sub
End If

TargetRow = Sheets("Codes").Range("D43").Value + 1

With Sheets("Travel Expense Voucher").Range("Data_Start").Offset(TargetRow, 25)
    .Value = TimeValue(txtDepartTime)
    .NumberFormat = "hh:mm" 'departure time
End With

End Sub

（此解决方案假设没有人会故意输入 12am 或 00:00 作为时间）