我正在开发 VBA Excel 用户窗体,需要以 [h]:mm 格式输入时间。这意味着小时数可以不受限制,并且不会像 hh:mm 格式那样在 23:59 之后循环回 0。我在网上搜索过没有结果。
这是我当前使用的代码:
Private Sub Txtbx_TimeAvailable_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.Txtbx_TimeAvailable.Value <> Format(Me.Txtbx_TimeAvailable.Value, "[h]:mm") Then
MsgBox "Please enter correct time format in hh:mm"
Cancel = True
Me.Txtbx_TimeAvailable.Value = vbNullString
Else
ThisWorkbook.Sheets(SELECTEDWORKSHEET).Range("C60").Value = Txtbx_TimeAvailable.Text
Call UpdateDentistMainForm
End If
End Sub
但是,使用此代码时,如果我输入 25:53,它会将其转换为 01:53。如果我能在这方面得到任何帮助,我将不胜感激。
您需要手动解析有效性,这是一种方法:
Var = "59:59"
Dim IsValid As Boolean
Dim tok() As String: tok = Split(Var, ":")
If (UBound(tok) = 1) Then
'// `like` to prevent lead +/-
IsValid = tok(0) Like "#*" And IsNumeric(tok(0)) And tok(1) Like "#*" And IsNumeric(tok(1)) And tok(1) < 60
'// optionally normalize by removing any lead 0
Var = Val(tok(0)) & ":" & Val(tok(1))
End If
Debug.Print Var, IsValid
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)