[حل شده] محاسبه هزینه های هر نفر

[mfr]

فایل اکسلی دارم دارای دو شیت 1 , 2 ... میخواهم هزینه هایی که تو شیت 2 برای هر کد پرسنلی اومده بطور تجمیع هر نفر محاسبه و جمعش توی سرفصلهای شیت 1 محاسبه بشه ... فایل نمونه هم پیوست کردم .. میخوام با ماکرو باشه چون حجم فایل زیاده ... خیلی ممنونم از اساتید خوبم

[Amir Ghasemiyan]

فایل اکسلی دارم دارای دو شیت 1 , 2 ... میخواهم هزینه هایی که تو شیت 2 برای هر کد پرسنلی اومده بطور تجمیع هر نفر محاسبه و جمعش توی سرفصلهای شیت 1 محاسبه بشه ... فایل نمونه هم پیوست کردم .. میخوام با ماکرو باشه چون حجم فایل زیاده ... خیلی ممنونم از اساتید خوبم

سلام دوست عزیز
اتفاقا چون حجم زیاده بهتره از فرمول استفاده کنید
به هر حال من هر دو روش رو براتون میذارم:
این فرمول (برای کد پرسنلی 1000 و درمان)

=SUMIFS('2'!$C:$C;'2'!$A:$A;'1'!$A2;'2'!$B:$B;'1'!B$1)

این فرمول قابل بسط برای کل محدوده است

این هم کد vba

Sub SumifsVBA()
Set Rng1 = Sheet1.Range("A2:A30")
Set Rng2 = Sheet1.Range("B1:E1")
For Each cel1 In Rng1
    For Each cel2 In Rng2
        Sheet1.Cells(cel1.Row, cel2.Column).Value = finds(cel1.Value, cel2.Value)
    Next cel2
Next cel1


End Sub


Function finds(code As Integer, hazineh As String)
LastItem = Range("A" & Sheet2.Rows.Count).End(xlUp).Row + 1
For i = 1 To LastItem
    If Sheet2.Range("A" & i) = code And Sheet2.Range("B" & i) = hazineh Then sums = sums + Sheet2.Range("C" & i)
Next i
finds = sums
End Function

[generalsamad]

با سلام
علاوه بر روشهای امیرخان عزیز میتونید از پیوت تیبل نیز استفاده کنید

[mfr]

بسیار بسیار ممنونم ... استاد ارجمند