Excel VBA调用MaxIfs函数时>=运算符无法正常工作问题求助

问题根因 #

你代码中MaxIfs的时间条件失效的核心原因是Date类型变量拼接为字符串时的格式不兼容：
VBA将dtClosingTime和>=拼接时，会自动转换为当前系统区域设置对应的日期字符串（比如中文系统默认是yyyy/m/d格式），但Excel工作表函数的日期条件仅能识别美国格式日期字符串或原生日期序列值，格式不匹配导致条件始终判定为不成立，最终返回0。

解决方案 #

直接修改MaxIfs行的时间条件即可，推荐使用日期序列值的写法，完全规避格式兼容问题：

intAmountInAuction = Application.WorksheetFunction.MaxIfs(rngAmountAuction, rngOrderIDAuction, item, rngTimeAuction, ">=" & CDbl(dtClosingTime))

如果偏好使用字符串格式，也可以强制指定通用的无歧义日期格式：

intAmountInAuction = Application.WorksheetFunction.MaxIfs(rngAmountAuction, rngOrderIDAuction, item, rngTimeAuction, ">=" & Format(dtClosingTime, "yyyy-mm-dd"))

额外优化建议 #

如果存在某订单ID没有符合条件的记录的场景，Application.WorksheetFunction.MaxIfs会直接抛出运行时错误，你可以改用Application.MaxIfs，无匹配时会返回错误值而非中断程序，可自行加判断处理：

intAmountInAuction = Application.MaxIfs(rngAmountAuction, rngOrderIDAuction, item, rngTimeAuction, ">=" & CDbl(dtClosingTime))
If IsError(intAmountInAuction) Then intAmountInAuction = 0 ' 无匹配时默认返回0

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