Использование Or и + Критерии в VBA WorksheetFunction.Sumifs - PullRequest
Новая
       14

Использование Or и + Критерии в VBA WorksheetFunction.Sumifs

0 голосов
/ 30 октября 2010

Привет
Мне было интересно, есть ли способ объединить эти 2 макроса, так как я хочу, чтобы он суммировал 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")

Ответы [ 2 ]

0 голосов
/ 01 ноября 2010 
Range("DebtorList_Credit") = Application.SumIfs( _
Range("Invoice_list_Price"), _  
Range("Invoice_list_Debtor"), _  
Range("Debtor_list_Debtors"), _  
Range("InvoiceList_Payed"), _  
"*CREDIT*")`
0 голосов
/ 31 октября 2010

Я совершенно не понимаю вашего вопроса, или это все, что вам нужно?

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