Excel工作表设置HH:MM格式时间戳的VBA技术求助

嘿，这事儿不难，咱们直接调整代码里的时间赋值逻辑就行，有两种常用方案，你可以根据需求选：

方案1：直接存储文本格式的小时:分钟 #

这种方式会把时间戳以纯文本的形式写入单元格，值就是hh:mm格式，完全不带日期部分。修改后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column > 11 Then Exit Sub
    With Application
        .EnableEvents = False
        ' 使用Format函数把当前时间转换为hh:mm格式的文本
        Me.Cells(Target.Row, 1) = Format(Now(), "hh:mm")
        .EnableEvents = True
    End With
End Sub

这里的Format(Now(), "hh:mm")会把系统当前的完整时间（含日期）转换成仅保留小时和分钟的字符串，比如14:35。

方案2：保留日期时间值，仅设置显示格式 #

如果后续需要对这个时间戳做时间计算（比如统计时长、排序），更推荐用这个方案：单元格实际存储的还是完整的日期时间值，但仅显示hh:mm格式。代码修改如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column > 11 Then Exit Sub
    With Application
        .EnableEvents = False
        ' 写入完整的日期时间值
        Me.Cells(Target.Row, 1) = Now
        ' 设置单元格显示格式为hh:mm
        Me.Cells(Target.Row, 1).NumberFormat = "hh:mm"
        .EnableEvents = True
    End With
End Sub

这种方式的好处是，你双击单元格或查看编辑栏时能看到完整的日期时间，单元格表面却只显示小时和分钟，而且值可以直接参与时间相关的公式计算。

小提醒 #

原代码里的EnableEvents = False/True一定要保留，它能防止修改单元格时触发循环事件（毕竟修改单元格会再次触发Worksheet_Change）。

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