اذهب الي المحتوي
أوفيسنا

دالة 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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information