改为正确格式：kI = Application.WorksheetFunction.SumIfs(Wb.Sheets("出库").Range("R:R"), Wb.Sheets("出库").Range("B:B"), Sheet2.Range("A" & i).Value,Wb.Sheets("出库").Range("T:T"), "=出客户"， Wb.Sheets("出库").Range("Q:Q"), ">1月30日")

根据你提供的例子，你想使用 VBA 中的 SUMIFS 函数来筛选满足多个条件的数据并求和。下面是你提供的代码：

kI = Application.WorksheetFunction.SumIfs(Wb.Sheets("出库").Range("R:R"), Wb.Sheets("出库").Range("B:B"), Sheet2.Range("A" & i).Value, Wb.Sheets("出库").Range("T:T"), "=出客户"， Wb.Sheets("出库").Range("Q:Q"), ">1月30日")

根据你的代码，有几个地方需要进行修正：

1. `">1月30日"` 这部分应该使用英文格式的日期，而不是中文格式。请将 `1月30日` 替换为 `1/30/2023`。

修正后的代码如下：

kI = Application.WorksheetFunction.SumIfs(Wb.Sheets("出库").Range("R:R"), Wb.Sheets("出库").Range("B:B"), Sheet2.Range("A" & i).Value, Wb.Sheets("出库").Range("T:T"), "=出客户", Wb.Sheets("出库").Range("Q:Q"), ">1/30/2023")

请根据你的实际需求和数据范围进行相应的调整。

相关问题

改为正确格式：kII = Application.WorksheetFunction.SumIfs(WbI.Sheets(2).Range("S:S"), WbI.Sheets(2).Range("B:B"), Sheet2.Range("A" & i).Value, WbI.Sheets(2).Range("U:U"), "=出客户"，WbI.Sheets(2).Range("R:R"), ">2023，1,31")

根据你提供的例子，你想使用 VBA 中的 SUMIFS 函数来筛选满足多个条件的数据并求和。下面是你提供的代码：

kII = Application.WorksheetFunction.SumIfs(WbI.Sheets(2).Range("S:S"), WbI.Sheets(2).Range("B:B"), Sheet2.Range("A" & i).Value, WbI.Sheets(2).Range("U:U"), "=出客户", WbI.Sheets(2).Range("R:R"), ">2023,1,31")

根据你的代码，有几个地方需要进行修正：

1. `">2023，1,31"` 这部分应该使用逗号分隔条件，而不是中文逗号。请将 `，` 替换为 `,`。

修正后的代码如下：

kII = Application.WorksheetFunction.SumIfs(WbI.Sheets(2).Range("S:S"), WbI.Sheets(2).Range("B:B"), Sheet2.Range("A" & i).Value, WbI.Sheets(2).Range("U:U"), "=出客户", WbI.Sheets(2).Range("R:R"), ">2023,1,31")

请根据你的实际需求和数据范围进行相应的调整。

r = Application.WorksheetFunction.CountA(Columns("B:B")) + 3

这是一个VBA中的代码，作用是统计Excel表格中B列中有值的单元格数量，并将结果加上3赋值给变量r。

其中，Application是代表Excel应用程序的对象，WorksheetFunction是一个类，可以调用Excel内置的函数。CountA是一个函数，用于统计指定范围内非空单元格的数量。Columns("B:B")表示选取B列这个范围。因此，这行代码的意思是统计B列中有值的单元格数量，并将结果加上3赋值给变量r。