VBA实现时分秒加法函数报ByRef参数类型不匹配错误如何解决

• 变量声明规则理解错误：VBA 同一条 Dim 语句声明多个变量时，未单独指定类型的变量会被默认定义为 Variant 类型，而非你预期的对应类型。你代码中存在两处错误声明：
  1. Dim hr1, min1, sec1, hr2, min2, sec2, h, m, s As Integer：只有末尾的 s 是 Integer 类型，其余 h、m 等变量全为 Variant 类型
  2. Dim r, c As Single：只有 c 是 Single 类型，r 为 Variant 类型，且行号、列号本身为整数，使用 Single 类型本身不符合场景需求
     调用 printhms 时传入的 h、m、r 都是 Variant 类型，但子程序要求接收 Integer 类型的引用参数，类型不匹配直接触发 ByRef 参数类型不匹配错误。
• 子程序参数语法错误：printhms 的最后一个参数声明为 ByRefc As Integer，缺少空格分割关键字和参数名，属于语法错误，也会触发编译失败。
• 可选问题：scf = mcf = hcf = False 属于不规范写法，VBA 不支持连续赋值，该语句只会给 scf 赋值，其余两个变量实际依赖 Boolean 类型的默认 False 值运行，存在潜在风险。

1. 修正所有变量声明，每个变量单独指定类型，替换 hmsa 中的变量声明部分：

' 所有时间相关变量明确声明为Integer
Dim hr1 As Integer, min1 As Integer, sec1 As Integer, hr2 As Integer, min2 As Integer, sec2 As Integer, h As Integer, m As Integer, s As Integer
Dim scf As Boolean, mcf As Boolean, hcf As Boolean
' 行号列号用Integer类型更合理
Dim r As Integer, c As Integer
' 分开赋值更规范
scf = False
mcf = False
hcf = False

2. 修正 printhms 子程序的参数声明，不需要修改的参数建议用 ByVal 传值更安全：

Public Sub printhms(ByVal hr As Integer, ByVal mn As Integer, ByVal se As Integer, ByVal r As Integer, ByVal c As Integer)
    ActiveSheet.Cells(r, c).Value = se
    ActiveSheet.Cells(r, c).Offset(-1, 0).Value = mn
    ActiveSheet.Cells(r, c).Offset(-2, 0).Value = hr
End Sub

3. 可选优化：如果你不需要 hmsa 函数返回值，可以直接将其改为 Sub 过程，避免函数调用时的多余规则限制。

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