درود به همه. لطفا فایل پیوستی رو ببینید و در صورت امکان جواب بدید.
ممنون
ممنون
=SUM(IF($A$3:$A$11=E3;($B$3:$B$11*$C$3:$C$11)))
Application.worksheetfunction (فرمول های مورد نظر)
Sub sumifs() Dim a As Range Dim c As Range j = 0 For Each a In Range("E3:E6") i = 0 For Each c In Range("A3:A11") If c.Value = a.Value Then i = i + Range("B" & c.Row) * Range("C" & c.Row) Next c Range("F" & a.Row).Value = i j = j + i Next a Range("F7").Value = j End Sub
کامنت