excel - 如何在 vba 上创建仅小时格式（HH：mm）的文本框

Question

我需要创建一个仅适用于日期格式（HH：mm）的文本框，用户只能写一个小时（12:34）而不是（12:65）或（1200）我该怎么做？

代码是：

 Private Sub bTNOK_Click()

    TextBoxHour.Value = Format(TextBoxHour.Value, "HH:mm")

End Sub

Private Sub UserForm_Initialize()

    TextBoxHour.Value = "00:00"
    TextBoxHour.MaxLength = 5


End Sub

谢谢您的帮助！

标签： excelvba

Answer 1

使用退出事件

Private Sub TextBoxHour_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        If IsDate(TextBoxHour.Value) And Len(TextBoxHour.Text) = 5 Then
        Else
            MsgBox "Input Hour like this Example 05:35"
            TextBoxHour.Text = ""
        End If
End Sub