如何将UserForm的TextBox设置为「00:00:00」格式显示单元格时间值

看起来你遇到的问题是直接把单元格时间值赋值给TextBox时，它会用Excel默认的日期时间格式展示，而非你想要的「00:00:00」时分秒样式。咱们可以通过VBA的Format函数强制指定显示格式，下面是具体的修改方案：

一、核心修改思路 #

给TextBox赋值时，不要直接用单元格原始值，而是用Format函数把时间格式化为「HH:MM:SS」（大写HH对应24小时制，小写hh是12小时制，按需选择）。

二、修改后的完整代码示例 #

假设你需要在按钮点击或窗体初始化时更新TextBox1的内容，调整后的代码如下：

Private Sub UserForm_Initialize()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Timer")
    
    ' 初始化时检查R2的值，格式化后显示到TextBox1
    If Not IsEmpty(sh.Range("R2").Value) Then
        TextBox1.Value = Format(sh.Range("R2").Value, "HH:MM:SS")
    Else
        TextBox1.Value = "00:00:00" ' 空值时显示默认格式
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Timer")
    
    sh.Range("R1").Value = "Start"
    If sh.Range("R2").Value = "" Then
        sh.Range("R2").Value = Now
        ' 赋值后立即格式化显示到TextBox1
        TextBox1.Value = Format(sh.Range("R2").Value, "HH:MM:SS")
    End If
End Sub

三、额外提示 #

• 如果你的时间是累计计时（而非当前系统时间），要确保单元格R2存储的是时间值而非文本，否则Format函数可能无法正常解析。
• 要是需要实时刷新TextBox的时间（比如做动态计时器），可以给UserForm添加一个Timer控件，设置其Interval属性为1000（即1秒），然后添加如下代码：

Private Sub Timer1_Timer()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Timer")
    
    If Not IsEmpty(sh.Range("R2").Value) Then
        TextBox1.Value = Format(sh.Range("R2").Value, "HH:MM:SS")
    End If
End Sub

内容的提问来源于stack exchange，提问作者Arnel Natividad