如何在VBA用户窗体中编写MAXIF语句？

核心问题说明 #

VBA本身没有内置Max函数，要调用Excel的工作表函数需通过WorksheetFunction前缀，或者使用Evaluate方法执行Excel公式。针对你的需求，有两种可靠实现方式：

方案一：使用MAXIFS函数（推荐，Excel 2019/365及以上版本） #

MAXIFS是Excel原生的多条件最大值函数，直接匹配你的需求逻辑，代码更简洁高效：

Dim targetWs As Worksheet
' 绑定目标工作表，避免重复引用
Set targetWs = ThisWorkbook.Worksheets("TELEDATA IN PROGRESS (4.18.23)")

' 赋值文本框：在F列等于指定值的前提下，取C列的最大值
SalesForm.BHSDRECORDTD.Value = WorksheetFunction.MaxIfs( _
    targetWs.Range("C:C"), _
    targetWs.Range("F:F"), _
    SalesForm.BHSDMAINNUMBERLF.Value _
)

方案二：模拟数组公式MAX(IF(...))（兼容旧版Excel） #

如果使用的是Excel 2016及更早版本，没有MAXIFS函数，可以通过Evaluate执行数组公式实现：

Dim targetWs As Worksheet
Set targetWs = ThisWorkbook.Worksheets("TELEDATA IN PROGRESS (4.18.23)")

Dim conditionVal As String
conditionVal = SalesForm.BHSDMAINNUMBERLF.Value

' 用Evaluate执行数组公式，注意文本条件需用双引号转义（VBA中用两个双引号表示一个）
Dim maxResult As Variant
maxResult = targetWs.Evaluate("MAX(IF(F:F=""" & conditionVal & """,C:C))")

' 处理无匹配结果的情况（此时maxResult会返回错误值）
If Not IsError(maxResult) Then
    SalesForm.BHSDRECORDTD.Value = maxResult
Else
    SalesForm.BHSDRECORDTD.Value = "" ' 无匹配时设置为空，可根据需求调整
End If

优化建议 #

• 尽量避免整列引用（F:F、C:C），替换为实际数据的有效范围（比如targetWs.Range("F1:F" & targetWs.Cells(targetWs.Rows.Count, "F").End(xlUp).Row)），能大幅提升代码执行效率。
• 如果BHSDMAINNUMBERLF的值是数字类型，公式中的双引号可以去掉，改为"MAX(IF(F:F=" & conditionVal & ",C:C))"。

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