如何在 Excel VBAs Worksheet 函数中添加多个 SUMIFS
How to add multiple SUMIFS in Excel VBAs Worksheet function
我正在尝试在 VBA 工作表函数中创建一个与 excel 中的以下函数相同或相似的形式。
"=sumifs(U:U,O:O,"TEXT",Q:Q,"TEXT1")+sumifs(U:U,O:O,"TEXT",Q:Q,"TEXT2")"
我目前有
myanswer = Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT1")
如果我添加更多内容,例如
Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT1")+***Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT2"***)
它给出了一个错误(我在 *** 之间突出显示了停止工作的代码部分。我确定有一个简单的 "and" 或 "or" 函数,但我的大脑是现在很疲惫。如果您需要任何说明,请告诉我(如果有任何拼写错误,我不得不翻译代码,因为它在另一台计算机上。)
这对我有用。我只是作为答案发布以显示格式,包括换行符(不是必需的,但可以使代码更易于阅读)
MsgBox Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT1") _
+ Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT2")
我正在尝试在 VBA 工作表函数中创建一个与 excel 中的以下函数相同或相似的形式。
"=sumifs(U:U,O:O,"TEXT",Q:Q,"TEXT1")+sumifs(U:U,O:O,"TEXT",Q:Q,"TEXT2")"
我目前有
myanswer = Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT1")
如果我添加更多内容,例如
Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT1")+***Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT2"***)
它给出了一个错误(我在 *** 之间突出显示了停止工作的代码部分。我确定有一个简单的 "and" 或 "or" 函数,但我的大脑是现在很疲惫。如果您需要任何说明,请告诉我(如果有任何拼写错误,我不得不翻译代码,因为它在另一台计算机上。)
这对我有用。我只是作为答案发布以显示格式,包括换行符(不是必需的,但可以使代码更易于阅读)
MsgBox Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT1") _
+ Application.WorksheetFunction.SumIfs(Range("U:U"), Range("O:O"), "TEXT", Range("Q:Q"), "TEXT2")