如何解决VBA Excel用户窗体输入时间时自动转为小数的问题

该问题是因为Excel默认将HH:MM格式的时间识别为时间序列值（1天对应数值1，小时、分钟会自动换算为十进制小数），文本框失去焦点（按下Tab键属于该场景）时会默认返回原始序列值，就会显示为小数。可通过以下方案解决：

方案1：为时间输入文本框添加AfterUpdate事件（最推荐） #

在用户窗体代码编辑界面，选中对应时间输入的文本框，在事件列表中选择AfterUpdate，添加如下代码（将TextBox1替换为你实际的文本框控件名称即可）：

Private Sub TextBox1_AfterUpdate()
    ' 校验输入是否为合法时间格式
    If IsDate(Me.TextBox1.Value) Then
        ' 强制将时间序列值转为HH:MM格式的文本显示
        Me.TextBox1.Value = Format(Me.TextBox1.Value, "HH:MM")
    Else
        ' 非法输入提示，可根据业务需求调整逻辑
        MsgBox "请输入HH:MM格式的合法时间", vbExclamation
        Me.TextBox1.Value = ""
        Me.TextBox1.SetFocus
    End If
End Sub

该事件会在文本框内容修改完成、失去焦点时自动触发，直接修正显示格式。

方案2：适配单元格绑定场景 #

如果你的文本框通过ControlSource属性绑定了工作表单元格，可提前将对应单元格的数字格式设置为「时间」分类下的HH:MM格式，搭配上述事件使用即可同时避免文本框和单元格显示小数。

方案3：取值时做类型适配 #

如果后续需要用输入的时间做数值计算，不要直接读取文本框的Value属性赋值给数值类变量，可通过TimeValue()函数显式转换：

' 示例：读取时间值用于计算
Dim inputTime As Date
inputTime = TimeValue(Me.TextBox1.Value)
' 后续计算可直接使用inputTime变量

内容的提问来源于stack exchange，提问作者Davi Pristo