如何将指定Excel公式转换为VBA代码并赋值给Label31.Caption

你可以通过两种方式实现需求，以下是具体代码和说明：

方法一：直接使用Application.Evaluate执行原公式 #

这种方法最简便，因为你的Excel公式已经验证可用，只需转义VBA字符串中的双引号即可：

Me.Label31.Caption = Application.Evaluate("COUNTA(CHOOSECOLS(FILTER(Work_Orders,(Work_Orders[Main Work Center]=""TPM Packaging Technician (P4TPMPAC)"")*(Work_Orders[Order Status]=""Technically completed""),""""),18))")

关键说明： #

• VBA字符串中的双引号必须用两个双引号代替，所以原公式里的"TPM Packaging Technician (P4TPMPAC)"要改成""TPM Packaging Technician (P4TPMPAC)""，其余双引号同理。
• Application.Evaluate会直接执行Excel公式并返回计算结果，可直接赋值给Label31.Caption。

方法二：通过ListObject操作实现（更适合大数据量） #

如果你的Work_Orders是Excel表（ListObject），可以直接通过VBA操作表对象筛选数据并统计，避免公式字符串转义：

Dim ws As Worksheet
Dim workOrdersLo As ListObject
Dim filteredCol18 As Range
Dim nonEmptyCount As Long

' 替换为Work_Orders表所在的工作表名称
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set workOrdersLo = ws.ListObjects("Work_Orders")

' 应用筛选条件
With workOrdersLo.Range
    .AutoFilter Field:=workOrdersLo.ListColumns("Main Work Center").Index, Criteria1:="TPM Packaging Technician (P4TPMPAC)"
    .AutoFilter Field:=workOrdersLo.ListColumns("Order Status").Index, Criteria1:="Technically completed"
End With

' 获取筛选后第18列的可见数据（排除表头）
On Error Resume Next
Set filteredCol18 = workOrdersLo.ListColumns(18).DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

' 统计非空单元格数量
If Not filteredCol18 Is Nothing Then
    nonEmptyCount = Application.WorksheetFunction.CountA(filteredCol18)
Else
    nonEmptyCount = 0
End If

' 关闭筛选
workOrdersLo.AutoFilter.ShowAllData

' 赋值给标签
Me.Label31.Caption = nonEmptyCount

关键说明： #

• 先指定工作表和表对象，再通过AutoFilter筛选符合条件的行。
• 用SpecialCells(xlCellTypeVisible)获取筛选后的可见数据，再用CountA统计非空值。
• 最后记得关闭筛选，恢复表的原始状态。

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