اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

دالة Countifs بدون تكرار اسماء


jooohn

الردود الموصى بها

السلام عليكم

قمت بعمل دالة معرفة للقيام بما تريد


Function MyCont(Compny_Rng As Range, Country_Rng As Range, MyCtry As String)

Application.Volatile

For i = Country_Rng.Row To Country_Rng.Rows.Count

	 If Cells(i, Country_Rng.Column) = MyCtry Then

		 If Application.CountIf(Range(Cells(i, Compny_Rng.Column), Cells(Country_Rng.Rows.Count, Compny_Rng.Column)), Cells(i, Compny_Rng.Column)) = 1 Then

			 x = x + 1

				 End If

					 End If

Next

MyCont = x

End Function

لديك ثلاثة متغيرات

1. Compny_Rng وهو مدى الشركات

2. Country_Rng مدى اسماء الدول

3. MyCtry الخلية التي بها اسم الدولة المرد معرفة العدد بدون تكرار اسم الشركة

اليك المرفق

العد بدون تكرار.rar

  • Like 1
رابط هذا التعليق
شارك

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

بارك الله بالأخوة الكرام

حل اخر بالمعادلات

اخي السائل جرب المعادلة التالية


=SUMPRODUCT(($B$2:$B$17=A20)/COUNTIFS($A$2:$A$17;$A$2:$A$17&"";$B$2:$B$17;$B$2:$B$17&""))

في امان الله

  • Like 2
رابط هذا التعليق
شارك

  • 2 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information