Question

您好
我想知道是否有一种方法可以将这两个宏组合在一起，因为如果它有Invoice_list_Price或"(Custom) CREDIT"条件中的任何一个或两者，我希望它可以求和"CREDIT" 谢谢。

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")

Answer 1

我完全误解了你的问题，或者这就是你所追求的全部？

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")

Answer 2

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

在VBA WorksheetFunction.Sumifs中使用Or和+ Criteria

2 个答案: