Application.WorksheetFunction.Median报错及班次判断代码修正求助

嘿，我来帮你搞定这个问题！你遇到的“对象不支持属性或方法”错误主要有两个核心原因，咱们一步步修正：

错误原因解析 #

• Application.WorksheetFunction.IF 不存在：Excel工作表的IF函数无法通过WorksheetFunction对象在VBA中调用，VBA有自己的条件判断工具——内置的IIf函数，或者更直观的If...Then...Else语句。
• 时间参数类型不匹配：你直接传入的是时间字符串（如"19:00:00"），但Median函数需要处理数值型的时间值，文本格式的时间会导致计算逻辑失效。

修正后的代码方案 #

方案1：使用VBA内置IIf函数（简洁版） #

For Each cel In src
    cel.Offset(0, 1).Value = VBA.Format(cel.Value, "mm/dd/yyyy")
    cel.Offset(0, 2).Value = VBA.Format(cel.Value, "hh:mm:ss")
    
    ' 将文本时间转换为Date类型，确保Median计算正确
    Dim timeVal As Date
    timeVal = TimeValue(cel.Offset(0, 2).Value)
    
    ' 用IIf替代WorksheetFunction.IF，同时转换阈值为时间值
    cel.Offset(0, 3).Value = IIf(timeVal = Application.WorksheetFunction.Median(TimeValue("19:00:00"), TimeValue("06:30:00"), timeVal), "A", "B")
Next

方案2：使用If...Then...Else语句（可读性更强，易调试） #

For Each cel In src
    cel.Offset(0, 1).Value = VBA.Format(cel.Value, "mm/dd/yyyy")
    cel.Offset(0, 2).Value = VBA.Format(cel.Value, "hh:mm:ss")
    
    ' 转换时间为Date类型
    Dim timeVal As Date
    timeVal = TimeValue(cel.Offset(0, 2).Value)
    
    ' 计算中位数时间值
    Dim medianTime As Date
    medianTime = Application.WorksheetFunction.Median(TimeValue("19:00:00"), TimeValue("06:30:00"), timeVal)
    
    ' 明确的条件判断
    If timeVal = medianTime Then
        cel.Offset(0, 3).Value = "A"
    Else
        cel.Offset(0, 3).Value = "B"
    End If
Next

补充说明 #

你的核心逻辑（用Median判断时间是否处于19:00-次日06:30区间）是完全可行的：当时间落在这个夜间区间时，它会等于三个值的中位数；反之则不等于，从而正确分配班次A/B。只要确保所有时间参数都是Date类型，就能避免类型错误。

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