حساب عدد التوافق في الشرط من خليتين

[حسن العسوس]

السلام عليكم

لي استفسار معقد وليس بسيط

يوجد لدي جدول به مدخلات كل رقم لوحة له حالة 

اريد تجميع لعدد الحالات لكل لوحة

كيف يمكنني ذلك

01.xls

و اشكركم مقدما

[حسين مامون]

Option Explicit

Sub test()
Dim x1, x2, lr1, lr2
Application.ScreenUpdating = False
Range("f5:h100").ClearContents
lr1 = Range("b" & Rows.Count).End(xlUp).Row
lr2 = Range("e" & Rows.Count).End(xlUp).Row
For x1 = 4 To lr1
For x2 = 5 To lr2
If Cells(x1, 2) = Cells(x2, 5) Then
If Cells(x1, 3) = "A" Then
Cells(x2, 6) = Cells(x2, 6) + 1

ElseIf Cells(x1, 3) = "B" Then
Cells(x2, 7) = Cells(x2, 7) + 1

ElseIf Cells(x1, 3) = "C" Then
Cells(x2, 8) = Cells(x2, 8) + 1

'ElseIf Cells(x1, 3) = "D" Then
'Cells(x2, 9) = Cells(x2, 9) + 1
'
'ElseIf Cells(x1, 3) = "E" Then
'Cells(x2, 10) = Cells(x2, 10) + 1
'
'ElseIf Cells(x1, 3) = "G" Then
'Cells(x2, 11) = Cells(x2, 11) + 1

End If
End If
Next
Next
Application.ScreenUpdating = True

End Sub

جرب المرفق 

كود حلقات تكرارية

 

01.xls

[Ali Mohamed Ali]

 بارك الله فيك استاذ حسن كود ممتاز-وبعد اذنك أخى الكريم ولإثراء الموضوع , هذا حل أخر بالمعادلات

=COUNTIFS($B$4:$B$150,$E5,$C$4:$C$150,F$4)

 

معادلة حساب عدد التوافق في الشرط من خليتين.xls

[حسين مامون]

روعة

جزاك الله خيرا الجزاء استاذي Ali Mohamed Ali

[حسن العسوس]

اشكركم على المساعدة القيمة