vba - 创建将分钟转换为 hh :mm:ss 的 VBA 函数

Question

我正在尝试取一个分钟值(例如 3.83 分钟)并将其转换为 hh:mm:ss 时间格式(我知道是 0:03:50)

出于某种原因，从宏记录的 .NumberFormat 不起作用并给我一个#VALUE!错误。

    Function MINtoHMS(MIN)
    MIN = MIN / (24 * 60)
    MINtoHMS = MIN
    MINtoHMS.NumberFormat = "[h]:mm:ss;@"
    End Function

Answer 1

-编辑-用作加载项

Excel 插件:http://www.filedropper.com/mintohms

使用以下代码创建一个名为 SheetChangeHandler 的类模块:

Option Explicit

Private WithEvents App As Application

Private Sub Class_Initialize()
    Set App = Application
End Sub

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Err
    If InStr(Target.Formula, "=MINtoHMS") Then
        Target.NumberFormat = "hh:mm:ss"
    End If
    On Error GoTo 0
    Exit Sub
Err:
End Sub

使用以下代码添加模块:

Option Explicit

Public MySheetHandler As SheetChangeHandler

Sub Auto_Open()
   Set MySheetHandler = New SheetChangeHandler
End Sub

Function MINtoHMS(MIN)
    MIN = MIN / (24 * 60)
    MINtoHMS = MIN
End Function

单击文件 > 另存为 > Excel 97-2003 加载项 (*.xla) > 保存

单击文件 > 选项 > 加载项

单击管理旁边的“开始...”:Excel 加载项

选中刚刚创建的加载项旁边的框

点击“确定”