استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة

[ياسر خليل أبو البراء]

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

****************

إخواني الكرام في المنتدى الغالي

أقدم لكم دالة في منتهى الجمال والروعة صادفتني أثناء تصفح الانترنت ، تقوم الدالة باستخراج القيم الغير مكررة في عمود وعدد مرات تكرار هذه القيم في العمود المجاور

 

الدالة المعرفة بهذا الشكل

Function CountUniq(Rng As Range, Ref As Long, Key As Integer)
    Dim E
    With CreateObject("Scripting.Dictionary")
        For Each E In Rng.Value
            If E <> "" Then .Item(E) = .Item(E) + 1
        Next
        CountUniq = IIf(Key = 1, .keys()(Ref - 1), .items()(Ref - 1))
    End With
End Function

وإليكم ملف مرفق لتطبيق الدالة ولمعرفة كيفية الاستفادة منها

أرجو أن تنال إعجابكم

أخوكم أبو البراء

Count Unique UDF Function.rar

[Yasser Fathi Albanna]

هاتفضل طول عمرك برنس

ربنا ما يحرمنا من أعمالك ويعطيك الصحة والعافية وطولة العمر يا حبيب قلبى يا غالى يا أ / ياسر خليل

جزاك الله كل الخير

[ياسر خليل أبو البراء]

أخي الحبيب ياسر فتحي

دايما سباق بالرد على موضوعاتي ..مشكور على مرورك العطر

وجزيت خير الجزاء

تقبل ودي وحبي واحترامي وتحياتي

[سليم حاصبيا]

 اكثر من رائع يا ملك الكودات

[عبدالله المجرب]

دالة في منتهى الروعة

بارك الله فيك استاذ ياسر

[ياسر خليل أبو البراء]

الأخ الحبيب الغالي سليم

مشكور على مرورك العطر وإطرائك الجميل

بارك الله فيك وجمع الله بيننا في الجنة في مستقر رحمته

 

 

الأخ الكبير الحبيب عبد الله المجرب

جزيت خيراً على مرروك العطر وبارك الله فيك

 

تقبلوا ودي واحترامي وتحياتي

[ابوحمزه المصرى]

دائماً متألق أخى الفاضل ابو البراء ... جزاك الله كل خير وزاذك علماً نافعاً

[محمد حسن المحمد]

دالة رائعة ........راجياً لك التوفيق.

[بكار للأبد]

رائع دوماً كعادتك جزاك الله كل خير

[عبدالسلام علي]

مشكور يا استاذ فعلا دلة ابحث على عليها لعمل احصائيات بها

[ياسر خليل أبو البراء]

الأخ الحبيب صلاح الدين الأيوبي

الأخ الغالي محمد حسن أبو يوسف

الأخ الكريم بكار للأبد

الأخ الفاضل عبد السلام علي

 

بارك الله فيكم وجزاكم الله خيراً

ومشكور على مروركم العطر بالموضوع وأرجو الله أن تكونوا قد استفدتم منها

 

تقبلوا تحياتي

[aall]

جزاك الله خيرا

[ياسر خليل أبو البراء]

الأخ الفاضل aall

أحمد أشرف لافي لاشين (بخمن الاسم)

 

أهلا بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية

كما يرجى الإطلاع على رابط التوجيهات

http://www.officena.net/ib/index.php?s=c7acb668488f8d07036da191baebb919&showtopic=60147

 

وجزيت خيراً على مرورك العطر بالموضوع

[علي الرويلي]

شكرا يا ياسر دائما مبدع

 

بس فيه طلب صغنون ااد كدا .

 

لو تكون النتائج مرتبه تلقائي من الاكبر للاصغر

[محمد حسن المحمد]

بارك الله بهمتك أخ ياسر خليل أبو البراء...

[ياسر خليل أبو البراء]

 

شكرا يا ياسر دائما مبدع

 

بس فيه طلب صغنون ااد كدا .

 

لو تكون النتائج مرتبه تلقائي من الاكبر للاصغر

 

 

مشكور على مرورك العطر أخي الفاضل علي الرويلي

هو الطلب مش صغنون أبداً .. بس إن شاء الله أحاول فيه

 

الأخ الغالي أبو يوسف

مشكور على شعورك الطيب والصورة المرفقة الرائعة بارك الله فيك (بس قلنا إزاي الصورة دي أخدتها .. بأي برنامج !! لأنها عجبتني جداً)

[محمد حسن المحمد]

 

 

شكرا يا ياسر دائما مبدع

 

بس فيه طلب صغنون ااد كدا .

 

لو تكون النتائج مرتبه تلقائي من الاكبر للاصغر

 

 

مشكور على مرورك العطر أخي الفاضل علي الرويلي

هو الطلب مش صغنون أبداً .. بس إن شاء الله أحاول فيه

 

الأخ الغالي أبو يوسف

مشكور على شعورك الطيب والصورة المرفقة الرائعة بارك الله فيك (بس قلنا إزاي الصورة دي أخدتها .. بأي برنامج !! لأنها عجبتني جداً)

 

السلام عليكم أخي أبو البراء : سألتني عن طريقة أخذ هذه الصورة.أجيبك - أخذت Print Screen للشاشة ,ثم لصقتها ببرنامج الـ Word .أجريت عليها التنسيق المطلوب مع خلفية للصفحة .كتبت أسفلها العبارة التي تليق بك وبأمثالك من الرواد بعلم الحاسوب ثم نقلتها إلى برنامج الرسام ...قمت بقص جوانبها لتظهر لك كزهرة تفوح شذى وعطراً...هدية متواضعة أرجو أن تكون مقبولة لديك ...مع أجمل أمنياتي... والسلام عليكم.

[ياسر خليل أبو البراء]

بارك الله فيك أخي وحبيبي في الله أبو يوسف

ومشكور على الهدية الرائعة وهدية مقبولة منك ..بارك الله فيك

وجزيت خيراً على المعلومات القيمة التي أثريتنا بها

تقبل تحياتي