عدد الذكور والاناث والبالغين على الفورم

[Alaaq3]

السلام عليكم ورحمة الله : احصائية.xlsmاريد احضائية بيانات تظهر على الفورم معرفة عدد الذكور ..عدد الاناث.. عدد الاذكور البالغين الموظفين .. عدد الذكور البالغين العاطلين ... عدد الذكور الاحداث الموظفين ... الخ 

 

 

احصائية.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

جعل الكود هكذا

Private Sub UserForm_Initialize()
 Label6 = WorksheetFunction.CountIf(Range("B2: B22"), "ذكر")
 Label7 = WorksheetFunction.CountIf(Range("B2: B22"), "انثى")
 Label8 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _
 "بالغ", Range("D2: D22"), "موظف")
  Label9 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _
 "بالغ", Range("D2: D22"), "عاطل")
  Label10 = WorksheetFunction.CountIfs(Range("B2: B22"), "ذكر", Range("C2: C22"), _
 "حدث", Range("D2: D22"), "عاطل")
End Sub

 

[Alaaq3]

احسنت اخي الكريم : جزاك الله الف خير