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

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


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

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

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

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

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

 

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

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

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

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

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

Count Unique UDF Function.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

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

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

 

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

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

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

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

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

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

 

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

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

 

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

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

الأخ الفاضل aall

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

 

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

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

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

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

 

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

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

 

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

 

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

 

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

 

 

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

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

 

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

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

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

 

 

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

 

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

 

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

 

 

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

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

 

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

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

 

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

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

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

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

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

تقبل تحياتي

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

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