Excel VBA设置hh:mm格式时数字转时分显示0:00如何解决

代码运行后所有数值单元格显示0:00，核心原因是Excel时间存储规则与单元格内的数字逻辑不匹配：

• Excel内部以浮点序列值存储时间，整数部分代表距离基准日期的天数，小数部分代表当日具体时间：数值1对应完整24小时，1/24对应1小时，1/1440（24*60）对应1分钟
• 目标区域内存储的3位、4位数字是「小时位直接拼接分钟位」的纯整数，例如330代表3点30分、1520代表15点20分。这类整数没有小数部分，直接套用hh:mm格式时，Excel会将其识别为N天整，时间分量为0，因此全部显示为0:00。

不要直接给原始整数设置时间格式，先将整数换算为Excel可识别的时间序列值，再统一设置显示格式即可，参考代码：

Dim targetRng As Range, cell As Range
' 绑定待处理的目标单元格区域
Set targetRng = ActiveSheet.Range(Cells(RowStart, TimeColNum), Cells(RowEnd, TimeColNum))

' 遍历区域完成数值转换
For Each cell In targetRng
    ' 跳过空值、非数值单元格
    If Not IsEmpty(cell.Value) And IsNumeric(cell.Value) Then
        Dim rawNum As Long
        rawNum = CLng(cell.Value)
        ' 拆分小时、分钟位，换算为标准Excel时间序列值
        cell.Value = Int(rawNum / 100) / 24 + (rawNum Mod 100) / 1440
    End If
Next

' 转换完成后设置时间显示格式
targetRng.NumberFormat = "hh:mm"

如果不需要用时间值做后续计算，仅需要视觉上显示为「小时:分钟」格式，也可以直接给区域设置自定义数字格式，无需修改单元格原始值：

' 注意：该方案仅适配4位数字存储的时间（如9点30分需存为0930），3位数字会出现显示异常
targetRng.NumberFormat = "0"":00"""

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