在VBA WorksheetFunction.Sumifs使用或者和+标准

嗨
我想知道如果有一种方式，我希望它总结Invoice_list_Price如果它有一个或两个"(Custom) CREDIT"或"CREDIT"标准，我可以conbine这两个宏，
谢谢。在VBA WorksheetFunction.Sumifs使用或者和+标准

Range("DebtorList_Credit") = Application.SumIfs(_ 
    Range("Invoice_list_Price"), _ 
    Range("Invoice_list_Debtor"), _ 
    Range("Debtor_list_Debtors"), _ 
    Range("InvoiceList_Payed"), _ 
    "CREDIT") 

Range("DebtorList_Credit") = Application.SumIfs(_ 
    Range("Invoice_list_Price"), _ 
    Range("Invoice_list_Debtor"), _ 
    Range("Debtor_list_Debtors"), _ 
    Range("InvoiceList_Payed"), _ 
    "(Custom) CREDIT")

来源

2010-10-30 James

你确定你的代码运行？典型的使用是这样的：http://www.excel-examples.com/sumifs.htm – 2010-10-30 15:39:11

是的代码工作正常，它只是不会让我结合2. – James 2010-10-30 19:45:10

我完全误解了你的问题，还是这是你之后的一切？

Range("DebtorList_Credit") = Application.SumIfs(_ 
    Range("Invoice_list_Price"), _ 
    Range("Invoice_list_Debtor"), _ 
    Range("Debtor_list_Debtors"), _ 
    Range("InvoiceList_Payed"), _ 
    "CREDIT") 

Range("DebtorList_Credit") = Range("DebtorList_Credit") + '<--only change 
    Application.SumIfs(_ 
    Range("Invoice_list_Price"), _ 
    Range("Invoice_list_Debtor"), _ 
    Range("Debtor_list_Debtors"), _ 
    Range("InvoiceList_Payed"), _ 
    "(Custom) CREDIT")

来源

2010-10-30 23:29:12

得到它的工作使用“**”谢谢，虽然尼克我已经尝试过，并且因为一些不明确的原因而不起作用。 – James 2010-11-01 10:08:24

Range("DebtorList_Credit") = Application.SumIfs(_ 
Range("Invoice_list_Price"), _ 
Range("Invoice_list_Debtor"), _ 
Range("Debtor_list_Debtors"), _ 
Range("InvoiceList_Payed"), _ 
"*CREDIT*")`

来源

2010-11-01 10:08:50 James

在VBA WorksheetFunction.Sumifs使用或者和+标准

回答

相关问题