改为正确格式: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")
时间: 2024-04-22 07:26:14 浏览: 104
驱动程序-打印机驱动-博施boshi bs-880kii打印机驱动.zip
根据你提供的例子,你想使用 VBA 中的 SUMIFS 函数来筛选满足多个条件的数据并求和。下面是你提供的代码:
```vb
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"` 这部分应该使用逗号分隔条件,而不是中文逗号。请将 `,` 替换为 `,`。
修正后的代码如下:
```vb
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")
```
请根据你的实际需求和数据范围进行相应的调整。
阅读全文